End With

 

В процессе работы часто возникает необходимость программно оформить внешний вид таблицы. Для прорисовки контура ячеек (диапазона ячеек) существует свойства Borders и Weight.

 

Пример:

Range("A1").Borders.Weight = xlHairline ‘ тонкий контур

Range("A2").Borders.Weight = xlThin ‘ средний контур

Cells(3, 1).Borders.Weight = xlMedium ‘ полужирный контур

Cells(4, 1).Borders.Weight = xlThick ‘ жирный контур

 

Слияние ячеек можно выполнить воспользовавшись свойством MergeCells.

 

Пример:

Range("A1:F1").MergeCells = True

 

Слитые ячейки также можно оконтурить.

 

Пример:

Range("A1:F1").MergeCells = True

Range("A1:F1").Borders.Weight = xlMedium

 

При написании строк программы для получения доступа к интеллектуальному подсказчику вложенных свойств в свойство Cells существует следующее правило. В начале необходимо написать слово Cells(). без ввода индексов и поставить точку. Затем из открывшегося списка свойств и методов выбрать необходимое свойство и поставить точку. Далее из списка свойств выбрать следующее необходимое свойство, например: Cells().Interior.Color = vbRed и только после выбора всех свойств ввести в скобки свойства Cells индекс -> Cells(2,2). Interior.Color = vbRed.

Строки программы в VBA вводятся только внутри конструкции процедуры или функции.

Пример:

Sub Test()

Cells(2,2) = Range(“A1”)

End Sub

Более детально ознакомится со всеми свойствами объектов Excel можно в справочном файле VEENOB3.HLP .