Vba: як прочитати значення клітинки в змінній

Ви можете використовувати такий синтаксис у VBA, щоб прочитати значення клітинки в змінну:

 Sub ReadCellValueIntoVar()

Dim CellVal As String
CellVal = Range(" A1 ")

MsgBox CellVal

End Sub

Цей конкретний макрос створює рядкову змінну під назвою CellVal , а потім зчитує значення клітинки A1 поточного активного аркуша в змінну.

Нарешті, ми використовуємо MsgBox для відображення значення цієї змінної у вікні повідомлення.

У наступному прикладі показано, як використовувати цей синтаксис на практиці.

Приклад: як прочитати значення клітинки в змінній у VBA

Припустімо, у нас є аркуш Excel зі значенням 500 у клітинці A1 :

Ми можемо створити наступний макрос, щоб прочитати значення цієї клітинки в змінну, а потім відобразити значення у вікні повідомлення:

 Sub ReadCellValueIntoVar()

Dim CellVal As String
CellVal = Range(" A1 ")

MsgBox CellVal

End Sub

Коли ми запускаємо цей макрос, ми отримуємо такий результат:

Макрос відображає значення змінної, яка містить значення 500 із клітинки A1 .

Зауважте, що ми також можемо виконувати більш складні обчислення за допомогою змінної, якщо бажаємо.

Наприклад, ми можемо створити наступний макрос для читання значення комірки A1 у змінну, а потім створити вікно повідомлення, яке відображає це значення, помножене на 5:

 Sub ReadCellValueIntoVar()

Dim CellVal As String
CellVal = Range(" A1 ")

MsgBox CellVal * 5

End Sub

Коли ми запускаємо цей макрос, ми отримуємо такий результат:

Макрос відображає значення змінної, помножене на 5, яке виявляється 500 * 5 = 2500 .

Додаткові ресурси

У наступних посібниках пояснюється, як виконувати інші типові операції у VBA:

VBA: як встановити значення клітинки на іншому аркуші
VBA: як отримати значення клітинки з іншого аркуша
VBA: Як вибрати діапазон в активній клітинці