Como usar ActiveCell no Excel Usando um VBA

Use VBA para adicionar valores à folha de cálculo.

Se você trabalha com o Microsoft Office Excel, muitas vezes, é bom saber como usar o "ActiveCell" propriedade para adicionar, get, e até mesmo alterar o formato dos dados em uma planilha. Visual Basic for Applications (VBA) é uma linguagem de programação de computador usado para automatizar tarefas de rotina. Em VBA você pode usar o "ActiveCell" propriedade para fazer alterações em seus dados. Com VBA você pode economizar tempo automatizando um processo em vez de executar a mesma tarefa manualmente.

Lançamento do Microsoft Office Excel, clique no "Desenvolvedor" guia e clique em "Visual básico."
Clique no "Inserir" Menu e clique "Módulo" para inserir um novo módulo de código. Digite o seguinte código para iniciar um novo procedimento sub:
Private Sub usingActiveCell ()
Copie e cole o seguinte para ativar "Sheet1:"
Fichas de trabalho("Sheet1").Ativar
Copie e cole o seguinte para adicionar um valor a "A1," "A2," e "A3:"
Alcance("A1") .Select
ActiveCell.Value = 3,5
Alcance("A2") .Select
ActiveCell.Value = 10
Alcance("A3") .Select
ActiveCell.Value = 20
Copie e cole o seguinte para destacar as células com os dados:
com ActiveCell
```
Range (Cells (.Row, .CurrentRegion.Column), células (.Row, .CurrentRegion.Columns.Count + .CurrentRegion.Column - 1)). Interior.ColorIndex = 8Range (Cells (.CurrentRegion.Row, .Column), células (.CurrentRegion.Rows.Count + .CurrentRegion.Row - 1, .Column)). Interior.ColorIndex = 8
```
End With
Application.ScreenUpdating = True
Copie e cole o seguinte para exibir os valores adicionados através do "Janela Immediate:"
Alcance("A1") .Select
Debug.Print ActiveCell.Value
Alcance("A2") .Select
Debug.Print ActiveCell.Value
Alcance("A3") .Select
Debug.Print ActiveCell.Value
Copie e cole o seguinte para terminar o procedimento sub:
End Sub
pressione "Ctrl" e "G" para exibir a "Janela imediata" e pressione "F5" para executar o procedimento.

De esta maneira? Compartilhar em redes sociais: