исправление границ ячеек после вставки строки VBA

Пользователь

Сообщений: 5205 Регистрация: 22.12.2012

23.10.2012 11:49:30

вставляю строку с помощью кода
Rows(ActiveCell.Row).Insert
Rows(ActiveCell.Row + 1).Copy Rows(ActiveCell.Row)
в одной строке вставляется с жирными границами, хотелось бы нижнюю границу заменить на тонкую. Макрорекордером записал но есть одно но нужно вернуться в исходную точку - не знаю как в VBA это реализовать.
в VBA - 0+ )))

Прикрепленные файлы

post_372892.xlsm (43.66 КБ)

KuklP

Пользователь

Сообщений: 14868 Регистрация: 21.12.2012

E-mail и реквизиты в профиле.

23.10.2012 12:17:39

Может так?
Sub Макрос1()
If Application.Intersect(ActiveCell, ActiveSheet.UsedRange) Is Nothing _
Or ActiveCell.Row <= 3 Then _
MsgBox "Активная ячейка вне таблицы": Exit Sub
Rows(ActiveCell.Row + 1).Insert , 1
Rows(ActiveCell.Row + 1).Copy Rows(ActiveCell.Row) 'копируем формулы с строки на 1 яч. ниже активной
End Sub

Я сам - дурнее всякого примера! ...

Guest Гость	#3 23.10.2012 12:19:30 Еще варианты:) Давно делал... Игорь67 http://www.planetaexcel.ru/forum.php?thread_id=3554 http://www.planetaexcel.ru/forum.php?thread_id=5569

VLad777 Пользователь Сообщений: 5205 Регистрация: 22.12.2012	#4 23.10.2012 13:34:01 спс за ответы буду смотреть.