IMHO.WS - Показать сообщение отдельно

Alex Dark · 06.04.2010, 11:40

добавь в код три строки

Код:

        Selection.Insert Shift:=xlDown
        Selection.Borders(xlEdgeLeft).LineStyle = xlNone
        Selection.Borders(xlEdgeRight).LineStyle = xlNone
        Selection.Borders(xlInsideVertical).LineStyle = xlNone
        If IsNumeric(Cells(1, 1).Value) Then

06.04.2010, 11:40	# 685
Alex Dark КОТовский Регистрация: 12.03.2003 Адрес: ОренБюргер Пол: Male Сообщения: 1 569	добавь в код три строки Код: Selection.Insert Shift:=xlDown Selection.Borders(xlEdgeLeft).LineStyle = xlNone Selection.Borders(xlEdgeRight).LineStyle = xlNone Selection.Borders(xlInsideVertical).LineStyle = xlNone If IsNumeric(Cells(1, 1).Value) Then __________________ Все мы финансовые гении и эффективные менеджеры, только не у всех одногруппник или сосед по даче - президент.