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: как выбрать диапазон в активной ячейке