Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Центр помощи > [VB и Excel] (свойства ячейки)


Автор: mashajeff 19.4.2008, 18:00
Помогите, плиз.
Из VB вызываю Excel. Все нормально, но в идеале, хотелось бы, что бы ячейки были обведены.
Заливку делаю так .Cells(2, 1).Interior.Color = &HFFFFC0, чуйствую, что границы ячеек задаются примерно так же smile

Автор: Aloha 19.4.2008, 18:29
mashajeff

Код
  With Cells(2, 2)
    With .Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .Color = &HFF0000
    End With
    With .Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .Color = &HFF0000
    End With
    With .Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .Color = &HFF0000
    End With
    With .Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .Color = &HFF0000
    End With
  End With


или, учитывая, что значения констант xlEdgeLeft, xlEdgeTop, xlEdgeBottom, xlEdgeRight лежат в диапазоне от 7 до 10
Код
  With Cells(2, 2)
    For n = 7 To 10
      With .Borders(n)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .Color = &HFF0000
      End With
    Next n
  End With


А вообще, запусти макрорекодер в Excel, выполни необходимые действия и посмотри текст записанного макроса.

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)