65. Оператор With

VBA доступ к свойствам и методам объекта осуществляется через точку. Например ActiveSheet.Cells(1,1). Если нужно обратиться к нескольким свойствам одного объекта, то придется каждый раз писать имя этого объекта. Но есть способ этого избежать. Оператор With используется для указания обьекта, с которым мы будем работать. Это выглядит так:

Sub Test()

With Application

With .Worksheets

MsgBox (.Item(1).Name)

MsgBox (Str(.Item(1).Visible))

End With

End With

End Sub

66. Range.Font. Подсвойства Range.Font.Bold, Range.Font.Shadow, Range.Font.Italic, Range.Font.Size, Range.Font.Name, Range.Font.Color, Range.Font.ColorIndex

Range.Font возвращает объект шрифта, который представляет шрифт указанного объекта.

Sub CheckFont()

Range("A1").Select

If Range("A1").Font.Name = "Arial" Then

MsgBox "The font name for this cell is 'Arial'"

Else

MsgBox "The font name for this cell is not 'Arial'"

End If

End Sub

Range.Font.Bold если шрифт или диапазон отформатированных как полужирный. Возвращает True, False или wdUndefined (смесь True и False). Может быть установлено в True, False или wdToggle. Читать / писать длинные.

Range.Font.Shadow Указывает, является ли указанный шрифт в формате тени. Чтения / записи.

Range.Font.Italic Это свойство возвращает и устанавливает курсив.

Range.Font.Size Это свойство возвращает и устанавливает размер

Range.Font.Name Возвращает или задает Variant значение, которое представляет имя объекта.

Range.Font.Color Возвращает или задает основной цвет объекта. Использование функции RGB для создания значение цвета. Считывание / запись Variant.

Range.Font.ColorIndex Возвращает или задает Вариант значение, которое представляет цвет шрифта.

Sub SetFontShadow()

If Selection.Type = pbSelectionText Then

With Selection.TextRange.Font

.Shadow = msoTrue

.Bold = msoTrue

End With

Else

MsgBox "You need to select some text."

End If

End Sub

67. Range.Interior, Range.Interior.Color, Range.Interior.Pattern

Range.Interior Возвращает Внутренний объект, который представляет внутренний объект указанного объекта.

Выражение Interior. Выражение переменная, которая представляет объект Диапазона.

Worksheets("Sheet1").Range("A1").Interior.ColorIndex = 8 ' Cyan

Range.Interior.Pattern. Узор заливки определяется выбором одного из всех возможных вариантов и задается числовой константой, которая записывается в свойство Pattern.

68. Програмне очищення діапазону чарунок, очищення даних, очищення формату.

Очистить диапазон ячеек можно с помощью метода Clear, принадлежащего Range:

Range("A1:D2").Clear

Очистить данные: Range("E1").ClearContents

Очистить формат: Range("E2").ClearFormats

69. Об’єкт Characters, поняття, приклад

Представляет Characters объект, который содержит текст. Символы объект позволяет изменить любую последовательность символов, содержащихся в полной текстовой строки. Использование символов: где начать номер стартового символа и длина количество символов, чтобы вернуться Символы объекта. Символы метод необходим только тогда, когда вам необходимо изменить некоторые из текста объекта, не затрагивая остальные (вы не можете использовать символы метод формате часть текста, если объект не поддерживает форматированный текст). Чтобы изменить весь текст в то же время, Вы можете обычно применяется соответствующий метод или свойство непосредственно на объекте.

With Worksheets("Sheet1").Range("B1")

.Value = "New Title"

.Characters(5, 5).Font.Bold = True

End With