VBA з | Як використовувати з ... Закінчити заявою в Excel VBA?

Заявою в Excel VBA

Оператор With використовується у VBA для доступу до всіх властивостей та методів згаданого об'єкта. Нам потрібно вказати, до якого об’єкта VBA ми маємо на увазі, а потім закрити оператор With на End With , потім всередині цього оператора ми можемо виконати всі зміни властивостей та методи згаданого об’єкта.

Нижче наведено синтаксис With Statement у VBA.

 За допомогою [OBJECT] [Коду… Що потрібно зробити?] Закінчити з

Об’єкт - це не що інше, як діапазон комірок або комірок, до яких ми маємо на увазі, а потім ми можемо змінювати властивості та виконувати всі методи, пов’язані з цією конкретною коміркою чи комірками.

Як використовувати з випискою в Excel VBA?

Нижче наведено кілька прикладів використання With Statement в Excel VBA.

Ви можете завантажити цей VBA з шаблоном Excel тут - VBA з шаблоном Excel

Приклад №1

Припустимо, у вас є певне значення в комірці A1, я ввів текст як “Excel VBA” в комірці A1.

Тепер для цієї комірки мені потрібно виконати деякі завдання, тобто форматування в Excel.

Я хочу змінити розмір шрифту, назву шрифту та колір інтер’єру, вставити межу тощо ... Типово, що ми робимо, це те, що спочатку ми посилаємося на клітинку за допомогою об’єкта VBA RANGE.

Код:

 Sub With_Example1 () Діапазон ("A1") Кінець Sub

Тепер, щоб змінити розмір шрифту, ми отримуємо доступ до властивості «шрифт» цієї комірки.

Під властивістю FONT ми отримуємо доступ до властивості Size і вводимо розмір, ставлячи знак рівності.

Код:

 Sub With_Example1 () Діапазон ("A1"). Font.Size = 15 Кінець Sub

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

Код:

 Sub With_Example1 () Діапазон ("A1"). Font.Size = Діапазон 15 ("A1"). Font.Name = Діапазон "Verdana" ("A1"). Інтер'єр. Колір = vbЖовтий діапазон ("A1"). Межі .LineStyle = xlНеперервна кінцева допоміжна

Це зробить усі згадані завдання, але якщо ви подивитесь на код, щоб виконати кожну операцію форматування, яку ми щоразу надавали адресу комірки, це робить код довгим і трудомістким.

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

Код:

 Sub With_Example1 () With Range ("A1") End Sub

Всередині оператора With поставте крапку, щоб побачити всі властивості та методи комірки A1.

Зараз першою форматируванням змінюється розмір шрифту, тому зверніться до FONT і під цим властивістю SIZE доступу.

Код:

 Sub With_Example1 () З діапазоном ("A1"). Font.Size = 15 Кінець Sub

Подібним чином надайте інші коди форматування та закрийте VBA Statement.

Код:

 Sub With_Example1 () З діапазоном ("A1") .Font.Size = 15. Font.Name = "Verdana" .Interior.Color = vbYellow .Borders.LineStyle = xlНеперервний кінець з кінцем Sub

Запустіть код, щоб побачити всі форматування у згаданому об'єкті, тобто комірці A1.

Отже, усе форматування застосовано до комірки. Подивіться, яка крута ця техніка.

Приклад №2

Наприклад, якщо ви хочете змінити всі властивості, пов’язані зі шрифтом, ви можете вказати клітинку та властивість FONT.

Код:

 Sub With_Example2 () With Range ("A1"). Шрифт закінчується End End

Усередині vba With Statement ми бачимо список IntelliSense, який відображатиме властивості та методи, що стосуються лише властивості FONT.

Зараз ми можемо виконувати будь-яку діяльність із цим.

Код:

 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

The result of this will be as shown below.

Example #3

Below code will access only cell border-related properties.

Code:

 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

The result of this code is as follows.

Things to Remember

  • With statement is used to minimize the code.
  • We need to supply object first for With statement.
  • Once the specific object is supplied we can access only that object’s properties and methods.