Цей підручник навчить вас взаємодіяти зі значеннями клітин за допомогою VBA.
Встановіть значення клітинки
Щоб встановити значення клітинки, використовуйте властивість Value об’єкта Діапазон або Осередки.
Діапазон. Значення та клітинки. Значення
Існує два способи посилання на клітинку (и) у VBA:
- Об'єкт діапазону - Діапазон (“A2”). Значення
- Клітинка Об'єкт - Клітинки (2,1). Значення
Об'єкт Range дозволяє посилатися на клітинку, використовуючи стандартні позначення “A1”.
Це встановить значення діапазону A2 = 1:
| 1 | Діапазон ("A2"). Значення = 1 |
Об'єкт "Клітинки" дозволяє посилатися на клітинку за її номером рядка та стовпця.
Це встановить значення діапазону A2 = 1:
| 1 | Клітинки (2,1). Значення = 1 |
Зверніть увагу, що спочатку ви вводите номер рядка:
| 1 | Клітинки (рядок, колонка) |
Встановіть значення кількох клітинок одночасно
Замість того, щоб посилатися на одну клітинку, можна посилатися на діапазон клітинок і змінювати всі значення клітинок одночасно:
| 1 | Діапазон ("A2: A5"). Значення = 1 |
Встановити значення комірки - текст
У наведених вище прикладах ми встановлюємо значення комірки рівним числу (1). Замість цього ви можете встановити значення комірки рівним рядку тексту. У VBA весь текст повинен бути оточений цитатами:
| 1 | Діапазон ("A2"). Значення = "Текст" |
Якщо ви не оточуєте текст цитатами, VBA подумає, що ви посилаєтесь на змінну …
Встановити значення клітинки - змінна
Ви також можете встановити значення комірки, яке дорівнює змінній
| 1234 | Затемнити strText як рядокstrText = "Рядок тексту"Діапазон ("A2"). Значення = strText |
Отримати значення клітинки
Ви можете отримати значення клітинки, використовуючи ту саму властивість Value, яку ми використовували вище.
Отримайте значення ActiveCell
Щоб отримати значення ActiveCell та відобразити його у вікні повідомлення:
| 1 | MsgBox ActiveCell.Value |
Призначте змінній значення клітинки
Щоб отримати значення комірки та присвоїти її змінній:
| 123 | Dim var як Variantvar = Діапазон ("A1"). Значення |
Тут ми використовували змінну типу Variant. Варіантні змінні можуть приймати будь -які типи значень. Замість цього можна використати тип змінної String:
| 123 | Dim var як Stringvar = Діапазон ("A1"). Значення |
Тип змінної String буде приймати числові значення, але зберігатиме числа у вигляді тексту.
Якщо ви знаєте, що значення клітинки буде числовим, ви можете використовувати тип змінної Double (Подвійні змінні можуть зберігати десяткові значення):
| 123 | Dim var як Doublevar = Діапазон ("A1"). Значення |
Однак, якщо ви спробуєте зберегти значення комірки, що містить текст, у подвійній змінній, ви отримаєте помилку невідповідності типів:
Інші приклади значення клітин
Скопіювати значення комірки
Легко встановити значення комірки, яке дорівнює іншому значенню клітинки (або "Скопіювати" значення клітинки):
| 1 | Діапазон ("A1"). Значення = Діапазон ("B1"). Значення |
Ви навіть можете зробити це за допомогою діапазонів комірок (діапазони мають бути однакового розміру):
| 1 | Діапазон ("A1: A5"). Значення = Діапазон ("B1: B5"). Значення |
Порівняйте значення клітин
Ви можете порівнювати значення клітинок за допомогою стандартних операторів порівняння.
Перевірте, чи рівні значення клітинок:
| 1 | Діапазон MsgBox ("A1"). Значення = Діапазон ("B1"). Значення |
Повертає TRUE, якщо значення клітинок рівні. Інакше НЕВІРНО.
Ви також можете створити оператор If для порівняння значень комірок:
| 12345678910111213 | Якщо Діапазон ("A1"). Значення> Діапазон ("B1"). Значення ТодіДіапазон ("C1"). Значення = "Більше, ніж"Діапазон Elseif ("A1"). Значення = Діапазон ("B1"). Значення ТодіДіапазон ("C1"). Значення = "Рівно"ІнакшеДіапазон ("C1"). Значення = "Менше"Закінчити Якщо |
Ви можете порівняти текст так само (Пам’ятайте, що VBA чутливий до регістру)
