Folhas de dicas do VBA - Listas de comandos e sintaxe

Folha de dicas do VBA em PDF (download gratuito)

Baixe nosso PDF gratuito do Excel VBA Cheat Sheet para referência rápida!

Download

Folhas de dicas VBA

Consulte esta página para obter listas de todos os comandos e sintaxe comuns do VBA. Você encontrará muitos comandos básicos (por exemplo, inserir uma planilha) e algumas sintaxes avançadas (por exemplo, trabalhar com matrizes).

Pontas:

Use CTRL + F para pesquisar esta página.

Marque esta página (CTRL + D no Chrome)!

Lençóis

DescriçãoCódigo VBAAtivar pelo nome da guiaPlanilhas (“Entrada”). AtivarAtivar por nome de código VBASheet1.ActivateAtivar por posição de índicePlanilhas (1) .AtivarPróxima FolhaActiveSheet.Next.ActivateObter ActiveSheetMsgBox ActiveSheet.NameSelecionar folhaFolhas (“Entrada”). SelecioneDefinir como variávelDim ws como planilha
Definir ws = ActiveSheetNome / RenomearActiveSheet.Name = “NewName”Adicionar FolhaSheets.AddAdicionar folha e nomeSheets.Add.Name = “NewSheet”Adicionar folha à variávelDim ws como planilha
Definir ws = Sheets.AddCopiar FolhaFolhas (“Folha1”). Copiar antes: = Folhas (“Folha2”)Esconder a FolhaFolhas (“Folha1”). Visible = False
ou
Folhas (“Folha1”). Visível = xlSheetHiddenExibir folhaFolhas (“Folha1”). Visível = Verdadeiro
ou
Planilhas (“Planilha1”). Visível = xlSheetVisibleFolha Muito EscondidaPlanilhas (“Folha1”). Visível = xlSheetVeryHiddenApagar FolhaFolhas (“Folha1”). ExcluirFolha TransparenteFolhas (“Folha1”). Células. LimparDesproteger (sem senha)Folhas (“Folha1”). DesprotegerDesproteger (senha)Folhas (“Folha1”). Desproteger “Senha”Proteger (sem senha)Folhas (“Folha1”). ProtegerProteger (senha)Folhas (“Folha1”). Proteja “Senha”Proteger, mas permitir acesso VBAFolhas (“Folha1”). Proteger UserInterfaceOnly: = True

Retornar ao topo

Células e intervalos

DescriçãoCódigo VBAAtivar CélulaAlcance (“B3”). Ative
Células (3,2). AtivarSelecione o intervaloIntervalo (“a1: a3”). Selecione
Faixa (Faixa (“a1”), Faixa (“a3”)). Selecione
Intervalo (células (1, 1), células (3, 1)). SelecioneRedimensionarIntervalo (“B3”). Redimensionar (2, 2) .SelecionarDesvioFaixa (“B3”). Offset (2, 2). Selecionecópia deFaixa (“A1: B3”). Faixa de cópia (“D1”)CortarFaixa (“A1: B3”). Faixa de corte (“D1”)ExcluirIntervalo (“A1: B3”). Excluir
Intervalo (“A1: B3”). Excluir shift: = xlShiftToLeftClaroIntervalo (“A1: A3”). Claro
Intervalo (“A1: A3”). ClearContents
Intervalo (“A1: A3”). ClearFormatContarIntervalo (“A1: A3”). ContagemDefinir como variávelDim rng as Range
Definir rng = intervalo (“A1”)Unir / UnMergeIntervalo (“A1: A3”). Unir
Intervalo (“A1: A3”). UnMergeLoop Through Cellls

Dim cell como range

Para cada célula no intervalo (“A1: C3”)
MsgBox cell.Value
Próxima célula

Retornar ao topo

Linhas

DescriçãoCódigo VBAAtivarLinhas (1). Ativar
Linhas (“1: 1”). Ativar
Intervalo (“a1”). WholeRow.ActivateAltura larguraIntervalo (“A1”). Linha inteira.Altura da linha = 30ExcluirIntervalo (“A1”). WholeRow.DeleteContarIntervalo (“A1”). Linhas.ContagemInserirIntervalo (“A1”). WholeRow.InsertÚltimodim lRow enquanto
lRow = Cells (Rows.Count, 1) .End (xlUp) .Rowcópia deIntervalo (“1: 1”). Intervalo de cópia (“5: 5”)InserirIntervalo (“1: 1”). Copiar
Faixa (“5: 5”). Insira

Retornar ao topo

Colunas

DescriçãoCódigo VBAAtivarColunas (1) .Ativar
Colunas (“a: a”). Ative
Intervalo (“a1”). WholeColumn.ActivateAltura larguraIntervalo (“A1”). WholeColumn.ColumnWidth = 30ExcluirIntervalo (“A1”). WholeColumn.DeleteContarIntervalo (“A1”). Columns.CountInserirIntervalo (“A1”). WholeColumn.InsertÚltimodim lCol enquanto
lCol = Cells (1, Columns.Count) .End (xlToLeft) .Columncópia deFaixa (“A: A”). Faixa de cópia (“E: E”)InserirIntervalo (“A: A”). Copiar
Intervalo (“E: E”). Inserir

Retornar ao topo

Cansado de procurar exemplos de código VBA? Experimente o AutoMacro!

Cadernos de exercícios

DescriçãoCódigo VBAAtivarPastas de trabalho (“Livro1”). AtiveAtivar pela primeira vezPastas de trabalho (1). AtivarAtivar pela última vezPastas de trabalho (Workbooks.Count) .ActivateObter ActivateWorkbookMsgBox ActiveWorkbook.NameObtenha este livro de trabalho (contendo código VBA)MsgBox ThisWorkbook.NameAdicionarWorkbooks.AddAdicionar à VariávelDim wb como pasta de trabalho
Definir wb = Workbooks.AddAbrirWorkbooks.Open (“C: \ example.xlsm”)Aberto para VariávelDim wb como pasta de trabalho
Defina wb = Workbooks.Open (“C: \ example.xlsm”)FecharPastas de trabalho (“Livro1”). Fechar SaveChanges: = False
Pastas de trabalho (“Livro1”). Fechar SaveChanges: = TrueSalve Pastas de trabalho (“Livro1”). SalvarSalvar comoPastas de trabalho (“Livro1”). Salvar como strFileNameProteger / DesprotegerPastas de trabalho (1). Proteger “senha”
Pastas de trabalho (1). Desproteger “senha”Definir como variávelDim wb como pasta de trabalho
Definir wb = Pastas de trabalho (“Livro1”)Percorrer todas as pastas de trabalho nas pastas de trabalho

Dim wb como pasta de trabalho

Para cada wb nas pastas de trabalho
MsgBox wb.Name
Próximo wb

Verificar existeSe Dir (“C: \ Book1.xlsx”) = “” Então
MsgBox “Arquivo não existe.”
Fim seCópia FechadaFileCopy “C: \ file1.xlsx”, ”C: \ file2.xlsx”

Retornar ao topo

Definições

DescriçãoCódigo VBAAtualização de telaApplication.ScreenUpdating = False
Application.ScreenUpdating = TrueExibir AlertasApplication.DisplayAlerts = False
Application.DisplayAlerts = TrueEventosApplication.EnableEvents = False
Application.EnableEvents = TrueHabilitar tecla de cancelamentoApplication.EnableCancelKey = xlDisabled
Application.EnableCancelKey = xlInterruptComparação de texto - ignorar maiúsculas e minúsculasTexto de comparação de opçõesRequer declaração de variávelOpção ExplícitaCálculos AutomáticosApplication.Calculation = xlManual
Application.Calculation = xlAutomaticVerificação de erros em segundo planoApplication.ErrorCheckingOptions.BackgroundChecking = False
Application.ErrorCheckingOptions.BackgroundChecking = TrueExibir barra de fórmulasApplication.DisplayFormulaBar = False
Application.DisplayFormulaBar = TrueCongelar painéisActiveWindow.FreezePanes = False
ActiveWindow.FreezePanes = TrueVisualização em tela inteiraApplication.DisplayFullScreen = False
Application.DisplayFullScreen = TrueVisualização de quebra de páginaActiveWindow.View = xlPageBreakPreview
ActiveWindow.View = xlNormalViewExibir barras de rolagemCom ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
End WithWith ActiveWindow
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
Terminar comExibir barra de statusApplication.DisplayStatusBar = False
Application.DisplayStatusBar = TrueConteúdo da barra de statusApplication.StatusBar = “Estou trabalhando agora !!!”
Application.StatusBar = FalseExibir guias da pasta de trabalhoActiveWindow.DisplayWorkbookTabs = False
ActiveWindow.DisplayWorkbookTabs = TrueNome do usuárioApplication.UserName = “AutomateExcel.com”App CaptionApplication.Caption = “AutomateExcel Model”AmpliaçãoActiveWindow.Zoom = 80

Retornar ao topo

Erros

DescriçãoCódigo VBAOn Error - Código de parada e erro de exibiçãoNo erro, vá para 0Em caso de erro - pule o erro e continue executandoOn Error Resume NextEm caso de erro - Vá para uma linha de código [Label]No erro, vá para [Label]Limpa (Reinicia) ErroOn Error GoTo -1Mostrar número do erroMsgBox Err.NumberMostrar descrição do erroMsgBox Err.DescriptionFunção para gerar o próprio erroErr.Raise

Retornar ao topo

arquivos

DescriçãoCódigo VBACopiar arquivoFileCopy “C: \ test \ test_old.xlsx”, “C: \ test \ test_new.xlsx”Apagar ArquivoMate “C: \ test \ example.xlsx”Criar pastaMkDir “C: \ test \”Excluir todos os arquivos da pastaMate “C: \ test \” e “*. *”Apagar PastaMate “C: \ test \” e “*. *”
RmDir “C: \ test \”Diretório atualstrPath = CurDir ()Caminho deste livro de trabalhostrPath = ThisWorkbook.PathPercorrer todos os arquivos na pasta

strFile = Dir (“C: \ teste” & “\ *”)

Do While Len (strFile)> 0
Debug.Print strFile
strFile = Dir
Ciclo

Retornar ao topo

Ótimo produto. AutoMacro não apenas escreve seu código, ele ensina enquanto você avança! "- Tony, Reino Unido

Saber mais

Leia nossas mais de 900 avaliações

Matrizes

DescriçãoCódigo VBACrioDim arr (1 a 3) como variante
arr (1) = “um”
arr (2) = “dois”
arr (3) = “três”Criar a partir do ExcelDim arr (1 a 3) como variante
Dim cell As Range, i As Integer
i = LBound (arr)
Para cada célula no intervalo (“A1: A3”)
i = i + 1
arr (i) = cell.value
Próxima célulaLeia todos os itensDim i tão longo
Para i = LBound (arr) To UBound (arr)
MsgBox arr (i)
Proximo euApagarApagar arrArray para StringDim sName As String
sName = Join (arr, “:”)Aumentar o tamanhoReDim Preserve chega (0 a 100)Definir valorarr (1) = 22

Retornar ao topo

Programação VBA | O Code Generator funciona para você!

Coleções

DescriçãoCódigo VBACrioDim coll como nova coleção
coll.Add “one”
coll.Add “two”Criar a partir do ExcelDim coll como nova coleção
Dim cell como range
Para cada célula no intervalo (“A1: A2”)
coll.Add cell.value
Próxima célulaAdicionar Itemcoll.Add “Value”Adicionar item antescoll.Add “Value”, Before: = 1Adicionar item depoiscoll.Add “Value”, After: = 1Leia o itemMsgBox coll (1)Itens de contagemcoll.CountLeia todos os itensDim item como variante
Para cada item da coleção
Item MsgBox
Próximo itemRemover itemcoll.Remove (1)Remover todos os itensDefinir coll = Nova coleção

Retornar ao topo

Dicionários

DescriçãoCódigo VBAReferência RequeridaFerramentas> Referências> Microsoft Scripting RuntimeCrioDim dict como novo Scripting.Dictionary
dict.Adicione “”
dict.Adicione “”Criar a partir do ExcelDim dict como novo Scripting.Dictionary
Dim cell como range
Tecla Dim como Inteiro
Para cada célula no intervalo (“A1: A10”)
chave = chave + 1
dict.Adicionar chave, cell.value
Próxima célulaAdicionar Itemdict.Adicione “Chave”, “Valor”Mudar valordict (“Chave”) = “Valor”Obter valorMsgBox dict (“Key”)Verifique o valorSe dict.Exists (“Key”) Then
MsgBox “existe”
Fim seRemover itemdict.Remove (“Chave”)Remover todos os itensdict.RemoveAllLoop Through ItemsDim key como variante
Para cada tecla em dict.Keys
MsgBox key, dict (key)
Próxima chaveItens de contagemdict.CountTornar a chave sensível a maiúsculas e minúsculasdict.CompareMode = vbBinaryCompareTornar a chave não sensível a maiúsculas e minúsculasdict.CompareMode = vbTextCompare

Retornar ao topo

AutoMacro - The Ultimate VBA Add-in

AutoMacro: Add-in VBA com centenas de exemplos de código VBA prontos para uso e muito mais!

Saber mais