[yasenkov]

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

[NumLock]

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

[yasenkov]

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

[yasenkov]

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

[lmikle]

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

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

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

Код:

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