Célula ativa do VBA

Célula ativa significa a célula específica que está ativa na planilha ativa atual. Por exemplo, se na planilha 2, a célula B4 é selecionada significa que a célula ativa é B4 na planilha 2. No VBA, usamos uma referência da célula ativa para alterar as propriedades ou valores da célula ativa. OU usamos essa função em determinadas situações quando precisamos fazer algumas alterações na célula ativa em algumas condições que atendem aos requisitos.

A célula ativa é uma propriedade no VBA. Nós o usamos em diferentes situações no VBA. Podemos atribuir valores a uma célula ativa usando a função VBA Active Cell ou buscar o endereço da célula ativa. O que essas funções retornaram? Função de célula ativa retorna a propriedade range da célula ativa na planilha ativa. Conforme explicado na instrução acima na definição, se a planilha 2 estiver ativa e a célula B4 estiver ativa, a função de célula ativa no VBA buscará as propriedades de intervalo da célula B4 na planilha 2.

Sintaxe da célula ativa no Excel VBA

Abaixo está a sintaxe do Active Cell no Excel VBA

A sintaxe é usada para atribuir um determinado valor à célula ativa.

 Activecell.Value = ""

A sintaxe selecionará o valor ou a propriedade da célula ativa na planilha ativa.

 Application.Activecell

Se precisarmos alterar a fonte da célula ativa, a sintaxe será a seguinte

 Activecell.Font. (A fonte que queremos) = True

Também podemos exibir as linhas e colunas da célula ativa usando a seguinte sintaxe

 Application.Activecell

Vamos usar a sintaxe acima explicada em alguns exemplos e aprender a brincar com as células ativas.

Nota: Para usar o VBA, certifique-se de ter a guia do desenvolvedor ativada na guia Arquivo na seção de opções.

Exemplos de célula ativa do Excel VBA

Abaixo estão os diferentes exemplos de célula ativa do VBA no Excel:

Você pode fazer o download deste modelo do VBA Active Cell Excel aqui - Modelo do VBA Active Cell Excel

Célula ativa do VBA - Exemplo # 1

Neste exemplo, queremos alterar o valor da célula atual por alguma célula. Por exemplo, na planilha 1, selecione a célula A2 e insira o valor como ANAND e queremos alterar o valor dessa célula ativa como ARAN.

Siga as etapas abaixo para usar o VBA Active Cell no Excel.

Etapa 1: Vá para a guia Desenvolvedor e clique em Visual Basic para abrir o VB Editor.

Etapa 2: Clique na guia Inserir e clique nos módulos para inserir um novo módulo.

Etapa 3: Declare uma subfunção para começar a escrever o código.

Código:

 Subamostra () End Sub

Etapa 4: ative a planilha 1 usando a função abaixo.

Código:

 Sub Amostra () Planilhas ("Plan1"). Ativar End Sub

Etapa 5: Podemos verificar se na célula A2 da planilha 1 temos o valor como ANAND e é a célula ativa.

Etapa 6: Agora use a seguinte instrução para alterar o valor da célula ativa.

Código:

 Sub Amostra () Planilhas ("Plan1"). Ative ActiveCell.Value = "ARAN" End Sub

Etapa 7: execute o código acima usando o botão de execução fornecido ou pressione F5.

Podemos ver que o valor na célula A2 foi alterado.

Célula ativa do VBA - Exemplo # 2

Agora, alteramos o valor da célula ativa de ANAND para ARAN. Como exibimos o valor atual da célula ativa? Isso aprenderemos neste exemplo.

Siga as etapas abaixo para usar o VBA Active Cell no Excel.

Etapa 1: Vá para a guia do desenvolvedor e clique em Visual Basic para abrir o VB Editor.

Etapa 2: no mesmo módulo, declare uma subfunção para começar a escrever o código.

Código:

 Sub Amostra1 () End Sub

Etapa 3: ative a planilha 1 pelo seguinte código.

Código:

 Sub Amostra1 () Planilhas ("Plan1"). Ativar End Sub

Etapa 4: Agora vamos selecionar a célula ativa pelo seguinte código.

Código:

 Sub Amostra1 () Planilhas ("Plan1"). Ative Set selectedCell = Application.ActiveCell End Sub

Etapa 5: agora vamos exibir o valor da célula selecionada pelo seguinte código.

Código:

 Sub Amostra1 () Planilhas ("Plan1"). Ativar Definir selectedCell = Application.ActiveCell MsgBox selectedCell.Value End Sub

Etapa 6: execute o código acima pressionando F5 ou pelo botão de execução fornecido e veja o seguinte resultado.

A célula ativa era A2 e possui o valor como ARAN, portanto a propriedade exibida é ARAN.

Célula ativa do VBA - Exemplo # 3

Vamos alterar a fonte da célula A2 que era a célula selecionada. Vamos criar a fonte como Negrito. Inicialmente, não havia fonte selecionada.

Para isso, siga as etapas abaixo para usar o VBA Active Cell no Excel.

Etapa 1: Vá para a guia Desenvolvedor e clique em Visual Basic para abrir o VB Editor.

Etapa 2: no mesmo módulo, declare uma subfunção para começar a escrever o código.

Código:

 Sub Amostra2 () End Sub

Etapa 3: vamos ativar a planilha primeiro para usar a célula ativa.

Código:

 Sub Amostra2 () Planilhas ("Plan1"). Ativar End Sub

Etapa 4: alteremos a fonte da célula selecionada pelo código a seguir.

Código:

 Sub Amostra2 () Planilhas ("Plan1"). Ative ActiveCell.Font.Bold = True End Sub

Etapa 5: execute o código acima pressionando F5 ou pelo botão de execução fornecido e veja o resultado.

A fonte da célula ativa é alterada para Negrito.

Célula ativa do VBA - Exemplo # 4

Agora, queremos saber em qual linha ou coluna está a célula atualmente ativa. Como fazer isso é o que aprenderemos neste exemplo.

Para isso, siga as etapas abaixo para usar o VBA Active Cell no Excel.

Etapa 1: Vá para a guia Desenvolvedor e clique em Visual Basic para abrir o Editor do VB.

Etapa 2: no mesmo módulo, declare uma subfunção para começar a escrever o código.

Código:

 Sub Amostra3 () End Sub

Etapa 3: vamos ativar a planilha primeiro para usar as propriedades da célula ativa.

Código:

 Sub Amostra3 () Planilhas ("Plan1"). Ativar End Sub

Etapa 4: Agora, selecionamos a célula ativa pelo seguinte código.

Código:

 Sub Amostra3 () Planilhas ("Plan1"). Ativar Definir selectedCell = Application.ActiveCell End Sub

Etapa 5: Agora podemos exibir a linha atual da célula ativa pelo seguinte código.

Código:

 Sub Amostra3 () Planilhas ("Plan1"). Ativar Definir selectedCell = Application.ActiveCell MsgBox selectedCell.Row End Sub

Etapa 6: também podemos obter a coluna atual da célula ativa pelo seguinte código.

Código:

 Sub Sample3 () Planilhas ("Sheet1"). Ative Set selectedCell = Application.ActiveCell MsgBox selectedCell.Row MsgBox selectedCell.Column End Sub

Etapa 7: Agora pressione F5 ou o botão de execução fornecido para executar o código acima e ver o seguinte resultado.

O resultado acima foi a linha da célula ativa. Pressione ok para ver a coluna da célula ativa.

Coisas para lembrar

Há poucas coisas que precisamos lembrar sobre a célula ativa no VBA:

  • A célula ativa é a célula atualmente ativa ou selecionada em qualquer planilha.
  • Podemos exibir ou alterar as propriedades do endereço de célula ativo no VBA.
  • Para usar as propriedades da célula ativa, precisamos primeiro ativar a planilha atual.

Artigos recomendados

Este foi um guia para o Excel VBA Active Cell. Aqui discutimos como usar a propriedade VBA Active Cell para atribuir valor ou buscar o endereço da célula ativa no Excel, juntamente com alguns exemplos práticos e o modelo do Excel para download. Você também pode consultar nossos outros artigos sugeridos -

  1. Usando o VBA IFError no Excel
  2. Como usar os painéis de congelamento do Excel?
  3. Tutoriais sobre colar VBA
  4. Personalizar e usar a barra de status no Excel

Categoria:

VBA