VBA с

С заявлением в Excel VBA

Оператор with используется в VBA для доступа ко всем свойствам и методам указанного объекта. Нам нужно поставить какие объект VBAОбъект VBAОшибка «Требуется объект», также известная как ошибка 424, — это ошибка времени выполнения VBA, которая возникает, когда вы предоставляете недопустимый объект, т. е. такой, который недоступен в иерархии объектов VBA.читать далее мы имеем в виду сначала, а затем закрываем оператор With с помощью Конец с, то внутри этого утверждения. Мы можем выполнить все изменения свойств и методов указанного объекта.

Ниже приведен синтаксис оператора With в VBA.

With [OBJECT]

     [Code… What needs to be done?]

End With

Объект — это не что иное, как диапазон ячеек или ячеек, на которые мы ссылаемся, и затем мы можем изменить свойства и выполнить все методы, связанные с этой конкретной ячейкой или ячейками.

Как использовать оператор With в Excel VBA?

Ниже приведены несколько примеров использования оператора With в Excel VBA.

Вы можете скачать этот шаблон VBA с Excel здесь — VBA с шаблоном Excel

Пример №1

Предположим, у вас есть определенное значение в ячейке A1, я ввел текст как «Excel VBA» в ячейку A1.

Excel VBA с примером заявления 1.1

Теперь для этой ячейки мне нужно выполнить некоторые задачи, т.е. форматирование в экселеФорматирование в ExcelФорматирование — это полезная функция Excel, позволяющая изменять внешний вид данных на листе. Форматирование может быть выполнено различными способами. Например, мы можем использовать вкладку «Стили и формат» на вкладке «Главная», чтобы изменить шрифт ячейки или таблицы.читать далее.

Я хочу изменить размер шрифта, имя шрифта и внутренний цвет, вставить рамку и т. д.… Типично, что мы делаем, мы сначала обращаемся к ячейке с помощью используя объект VBA RANGEИспользование объекта VBA RANGEДиапазон — это свойство в VBA, которое помогает указать конкретную ячейку, диапазон ячеек, строку, столбец или трехмерный диапазон. В контексте рабочего листа Excel объект диапазона VBA включает одну или несколько ячеек, распределенных по различным строкам и столбцам.читать далее.

Код:

Sub With_Example1()

    Range ("A1")

End Sub
Excel VBA с оператором Пример 1.2

Теперь, чтобы изменить размер шрифта, мы обращаемся к свойству «шрифт» этой ячейки.

Excel VBA с оператором Пример 1.3

В свойстве FONT мы получаем доступ к свойству Size и вводим размер, ставя знак равенства.

Код:

Sub With_Example1()

    Range("A1").Font.Size = 15

End Sub
Excel VBA с оператором Пример 1.4

Теперь аналогично делаем другие задачи форматирования, как показано ниже.

Код:

Sub With_Example1()

    Range("A1").Font.Size = 15
    Range("A1").Font.Name = "Verdana"
    Range("A1").Interior.Color = vbYellow
    Range("A1").Borders.LineStyle = xlContinuous

End Sub
Excel VBA с оператором Пример 1.5

Это выполнит все упомянутые задачи, но если вы посмотрите на код для выполнения каждого действия форматирования, мы каждый раз указываем адрес ячейки. Из-за этого код выглядит длинным и трудоемким.

Теперь мы будем использовать оператор VBA With, чтобы каждый раз уменьшать ввод адреса ячейки. Откройте оператор WITH в Excel VBA и укажите адрес ячейки.

Код:

Sub With_Example1()

    With Range("A1")

End Sub
Excel VBA с оператором Пример 1.6

Внутри оператора With поставьте точку, чтобы увидеть все свойства и методы ячейки A1.

Excel VBA с оператором Пример 1.7

Теперь первое действие форматирования — изменение размера шрифта, поэтому откройте FONT и под этим доступом к свойству SIZE.

Код:

Sub With_Example1()

    With Range("A1")
         .Font.Size = 15

End Sub
Пример 1.8

Аналогичным образом укажите другие коды форматирования и закройте VBA With Statement.

Код:

Sub With_Example1()

    With Range("A1")
         .Font.Size = 15
         .Font.Name = "Verdana"
         .Interior.Color = vbYellow
         .Borders.LineStyle = xlContinuous
    End With

End Sub
Пример 1.9

Запустите код, чтобы увидеть все форматирование в указанном объекте, то есть в ячейке A1.

VBA с примером 1 — вывод

Итак, все форматирование применено к ячейке. Посмотрите, какая это крутая техника.

Пример #2

Например, если вы хотите изменить все свойства, связанные со шрифтом, вы можете указать свойство ячейки и шрифта.

Код:

Sub With_Example2()

    With Range("A1").Font

    End With

End Sub
Пример 2.1

Внутри оператора VBA With мы видим список IntelliSense. Он покажет свойства и методы, относящиеся только к свойству FONT.

Пример 2.2

Теперь мы можем выполнять любой набор действий с этим.

Код:

Sub With_Example2()

    With Range("A1").Font
         .Bold = True 'Font will be Bold
         .Color = vbAlias 'Font color will be Alias
         .Italic = True 'Font will be italic style
         .Size = 20 ' Font size will be 20
         .Underline = True 'Font will be underlined
    End With

End Sub
Пример 2.3

Результат этого будет таким, как показано ниже.

VBA с примером 2 - вывод

Пример №3

Приведенный ниже код будет получать доступ только к свойствам, связанным с границей ячейки.

Код:

Sub With_Example3()

    With Range("B2").Borders
         .Color = vbRed 'Border color will be red
         .LineStyle = xlContinuous 'Full border
         .Weight = xlThick 'Thick border
    End With

End Sub
Пример 3.1

Результат этого кода выглядит следующим образом.

VBA с примером 3 — вывод

То, что нужно запомнить

  • Оператор with используется для минимизации кода.
  • Сначала нам нужно предоставить объект для оператора With.
  • Как только конкретный объект предоставлен, мы можем получить доступ только к свойствам и методам этого объекта.

УЗНАТЬ БОЛЬШЕ >>

Похожие записи

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *