[yasenkov]

Помогите разобраться , как выделить диапазон данных Excel.ActiveWorkBook.WorkSheets[1].Cells(?????) и обрисовать его (внешние границы)
... Заранее огромное спасибо =)

[NumLock]

через запись макроса глянь

[yasenkov]

пока иска что такое макросы наткнулся на Excel.Range[Excel.Cells[1, 1], Excel.Cells[5, 3]].Select; огромное спасибо NumLock

[yasenkov]

теперь этот диапазон нужно как то обчертить покругу опять запарка

[lmikle]

Сообщение от yasenkov

теперь этот диапазон нужно как то обчертить покругу опять запарка

опять идем в запись макросов - выделяешь диапазон и обрамляешь его. Потом смотришь что делает при этом Эксель. У меня получился такой макрос:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

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