![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Помогите разобраться , как выделить диапазон данных Excel.ActiveWorkBook.WorkSheets[1].Cells(?????) и обрисовать его (внешние границы)
... Заранее огромное спасибо =) |
#2
|
||||
|
||||
![]() через запись макроса глянь
Пишу программы за еду. __________________ |
#3
|
|||
|
|||
![]() пока иска что такое макросы наткнулся на
![]() |
#4
|
|||
|
|||
![]() теперь этот диапазон нужно как то обчертить покругу
![]() ![]() |
#5
|
|||
|
|||
![]() Цитата:
опять идем в запись макросов - выделяешь диапазон и обрамляешь его. Потом смотришь что делает при этом Эксель. У меня получился такой макрос: Код:
Sub Ìàêðîñ1() ' ' Ìàêðîñ1 Ìàêðîñ ' Ìàêðîñ çàïèñàí 23.07.2012 (Michael Nilov) ' ' Range("C8:H18").Select Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .Weight = xlMedium .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlMedium .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlMedium .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeRight) .LineStyle = xlContinuous .Weight = xlMedium .ColorIndex = xlAutomatic End With Selection.Borders(xlInsideVertical).LineStyle = xlNone Selection.Borders(xlInsideHorizontal).LineStyle = xlNone End Sub |