Funcionalidade | Código VBA |
---|---|
1-Selecionar uma célula | Range("A2").Select |
2-Exibindo o valor | msgbox(ActiveCell.Value) |
3-Atribuindo um valor | ActiveCell.FormulaR1C1 = "1" |
3-Atribuindo um valor | ActiveCell.Value = 5 |
3-Atribuindo um valor | Workbooks("Custo.Xls").Sheets("Folha1").Range("A1").Value = 5 |
4-Somando um valor ao valor atual da célula | ActiveCell.FormulaR1C1 = ActiveCell.Value + 20 |
5-Limpar o valor | ActiveCell.Clear |
6-Recortar o valor - copia o valor da célula para o clipboard e limpa a célula | ActiveCell.Cut, Selection.Cut |
7-Colar o valor | ActiveSheet.Paste |
8-Atribuindo uma fórmula a celula | Activecell.Formula = "=A1+B2" |
9-Copiando o valor da Célula para o Clipboard | ActiveCell.Copy,Selection.Copy, Range("A9").Copy |
10-Alinhando a seleção a esquerda / direita | Selection.HorizontalAlignment = xlLeft, Selection.HorizontalAlignment = xlRight |
Funcionalidade | Código VBA |
---|---|
1-Uma linha para baixo | ActiveCell.Offset(1, 0).Select |
2-Uma linha para cima | ActiveCell.Offset(-1, 0).Select |
3-Uma coluna para direita | ActiveCell.Offset(0, 1).Select |
4-Uma linha para esquerda | ActiveCell.Offset(0, -1).Select |
Nota : ActiveCell.Offset(L, C) : L=Linha, C=Coluna.
Funcionalidade | Código VBA |
---|---|
Negritar texto | Selection.Font.Bold = True |
Fonte de letra da célula | Selection.Font.Name = "AGaramond" |
Tamanho da Fonte de letra da célula | Selection.Font.Size = 15 |
Funcionalidade | Código VBA |
---|---|
Escondendo a planilha | Sheets("Plan1").Visible = True |
Funcionalidade | Código VBA |
---|---|
Nome da planilha corrente | ActiveWorkbook.Name |
Fechando a planilha | ThisWorkbook.Close |
Saindo do Excel | Application.Quit |
Ordenar planilha ascendente | Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom |
Ordenar planilha descendente | Selection.Sort Key1:=Range("A1"), Order1:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom |
Buscar | Cells.Find(What:="Palavra", After:=ActiveCell,LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Activate |
Inserir uma linha | Selection.EntireRow.Insert |
Eliminar uma linha | Selection.EntireRow.Delete |
Inserir uma coluna | Selection.EntireColumn.Insert |
Eliminar uma Coluna | Selection.EntireColumn.Delete |
Abrir um arquivo xls | Workbooks.Open Filename:="C:\MinhaPlanilha\Vendas Março 2024.xls" |
Salvar a planilha corrente em um arquivo xls | ActiveWorkbook.SaveAs Filename:="C:\MinhasPlanilhas\PlanVendas.xls", FileFormat :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= False, CreateBackup:=False |
Paste Especial | ActiveCell.PasteSpecial paste:=xlValues, operation:=xlNone, skipBlanks:=False,transpose:=False |
Seleção de célula absoluta | Sub GravacaoAbsoluta() Range("D3").Select End Sub |
Seleção de célula relativa | Sub GravacaoRelativa() ActiveCell.Offset(0, 2).Range("A1").Select Sub |