Vba: como ler o valor de uma célula em uma variável

Você pode usar a seguinte sintaxe em VBA para ler um valor de célula em uma variável:

 Sub ReadCellValueIntoVar()

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

MsgBox CellVal

End Sub

Esta macro específica cria uma variável de string chamada CellVal e, em seguida, lê o valor da célula A1 da planilha atualmente ativa na variável.

Por fim, usamos MsgBox para exibir o valor desta variável em uma caixa de mensagem.

O exemplo a seguir mostra como usar essa sintaxe na prática.

Exemplo: Como ler o valor de uma célula em uma variável em VBA

Suponha que temos uma planilha Excel com valor 500 na célula A1 :

Podemos criar a seguinte macro para ler o valor desta célula em uma variável e então exibir o valor em uma caixa de mensagem:

 Sub ReadCellValueIntoVar()

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

MsgBox CellVal

End Sub

Quando executamos esta macro, recebemos a seguinte saída:

A macro exibe o valor da variável, que contém o valor 500 da célula A1 .

Observe que também podemos realizar cálculos mais complexos utilizando a variável, se desejarmos.

Por exemplo, podemos criar a seguinte macro para ler o valor da célula A1 em uma variável e, em seguida, criar uma caixa de mensagem que exiba esse valor multiplicado por 5:

 Sub ReadCellValueIntoVar()

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

MsgBox CellVal * 5

End Sub

Quando executamos esta macro, recebemos a seguinte saída:

A macro exibe o valor da variável multiplicado por 5, que resulta em 500 * 5 = 2500 .

Recursos adicionais

Os tutoriais a seguir explicam como realizar outras operações comuns em VBA:

VBA: Como definir o valor de uma célula em outra planilha
VBA: Como obter o valor de uma célula de outra planilha
VBA: Como selecionar um intervalo em uma célula ativa