VBA – Definir ActiveCell

Este tutorial demonstrará como definir (e trabalhar com) a ActiveCell usando o VBA.

A propriedade ActiveCell no VBA retorna o endereço da célula que está selecionada (ativa) em sua planilha. Podemos mover o ponteiro de célula para uma célula específica usando o VBA, definindo a propriedade ActiveCell para uma célula específica, e também podemos ler os valores da célula atualmente ativa com o VBA

Definir ActiveCell

Definir a célula ativa no VBA é muito simples: basta referir-se a um intervalo como a célula ativa.

Sub Macro1()
  Range("F2").Select
End Sub

Isso moverá o ponteiro da célula para a célula F2

Obter o Valor da ActiveCell

Podemos obter o valor de uma célula ativa preenchendo uma variável.

Por exemplo, se o valor em F2 for 300, podemos retornar esse valor para uma variável declarada.

Sub TestarMacro()
    Dim dblValor As Double
    dblValor = ActiveCell
    MsgBox dblValor
End Sub

quando executarmos o código, a variável dblValor será preenchida com o valor na ActiveCell

Se permitirmos que o código continue, uma caixa de mensagem será exibida com o valor

Obter ActiveCell no Evento Worksheet_Change

Quando você altera qualquer dado na planilha, o evento Worksheet_Change é disparado

O evento Change contém um argumento – ( ByVal Target as Range). O intervalo a que se refere essa variável Target é um intervalo de células ou uma única célula selecionada no momento em sua planilha. Se você tiver apenas uma célula selecionada na planilha, a variável Target será igual à ActiveCell

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target = Range("F2") Then
    MsgBox "A célula ativa é F2!"
 End If
End Sub

Observe que esse evento só é acionado quando você altera os dados na planilha; portanto, quando você adiciona ou altera dados. Ele não é acionado ao mover o ponteiro da célula pela planilha.