Baixe o app para aproveitar ainda mais
Prévia do material em texto
Relação de Comandos VBA 1 Função Forma de aplicação Macro Descrição Abs x = Abs(-20) Teste15 Activate Sheets("Plan2'").Activate Teste16 Ativa a planilha "Plan2". Teste38 ActiveSheet.Name Variavel = ActiveSheet.Name Teste18 And Teste40 Aplication.DisplayAlerts Aplication.DisplayAlerts = False Teste20 Application.EnableCancelKey Application.ScreenUpdating Teste41 Auto_Close Sub Auto_Close() Auto_Close Auto_Open Sub Auto_Open () Auto_Open Calculate Teste42 Caption Teste21 CBool Variavel = CBool(string) CByte Variavel = CByte(string) CCur Variavel = CByte(string) CDate Variavel = CByte(string) CDbl Variavel = CByte(string) CDec Variavel = CByte(string) CInt Variavel = CByte(string) CLng Variavel = CByte(string) Cos x = Cos(0) CSng Variavel = CByte(string) CStr Variavel = CByte(string) CVar Variavel = CByte(string) armazena-se na variavel o resultado da função, que neste exemplo retorna o valor absoluto do numero. No exemplo ao lado, retorna o numero 20 ActiveCell.Rows("1:1").EntireRo w.Select ActiveCell.Rows("1:1").EntireRow. Select A instrução seleciona a Linha Inteira onde o cursor estiver. Pode-se acrescentar instruções, colocando-se um ponto após a função, como por exemplo: ActiveCell.EntireRow.Delete, Clear, ClearComments, ClearContentes, ClearFormat, etc. Tradução. ActiveSheet = Planilha Ativa Armazena na variavel "Variavel" o nome da planilha ativa. If Condição > 10 And Condição < 15 Then "Execute as seguintes instruções" End If Pode utilizar a condição And juntamente com a instrução IF, quando se quer que a condição seja atendida simultaneamente pelas duas condições. No exemplo ao lado, o numero deve ser maior que 10 e ao mesmo tempo menor que 15. Neste exemplo, cancelamos a apresentação de mensagens de segurança quando por exemplo fechamos um arquivo que ainda não foi salvo. Pode ser False ou True Application.EnableCancelKey = xlDisabled instrução que impede que a macro seja interrompida quando se pressionada "ESC" ou "CTRL+Break". Deve ser inserida no inicio da rotina. Application.ScreenUpdating = False Esta instrução impede que a tela seja exibida quando uma macro é executada, permitindo que a macro seja executada mais rapidamente. Esta macro, Auto_Close, sera automaticamente executada antes que a planilha seja encerrada. Caso não queira que ela seja executada, mantenha a tecla SHIFT pressionada ao fechar a planilha. Esta macro, Auto_Open, sera automaticamente executada ao se abrir a planilha. Caso não queira que ela seja executada, mantenha a tecla SHIFT pressionada ao carregar a planilha. ActiveSheet.Calculate or Sheets("Plan1").Calculate or Range("A1:A20").Calculate Dentro da macro, Recalcula somente a planilha ativa (1° Exemplo), ou a Planilha Especifica (2° exemplo), ou ainda a Area Selecionada (3° exemplo), desde que opção Recalculo esteja no modo Manual. ActiveWindow.Caption = "MARDEN CARDOSO" Neste exemplo, alteramos o nome da Pasta de trabalho para "MARDEN CARDOSO" armazena-se na variavel o resultado da função, que neste exemplo transforma o tipo de variavel contida na string para a variavel Boleana. armazena-se na variavel o resultado da função, que neste exemplo transforma o tipo de variavel contida na string para a variavel Byte armazena-se na variavel o resultado da função, que neste exemplo transforma o tipo de variavel contida na string para a variavel Currency (moeda). armazena-se na variavel o resultado da função, que neste exemplo transforma o tipo de variavel contida na string para a variavel Data, no formato Brasileiro (dd/mm/aa). armazena-se na variavel o resultado da função, que neste exemplo transforma o tipo de variavel contida na string para a variavel Double armazena-se na variavel o resultado da função, que neste exemplo transforma o tipo de variavel contida na string para a variavel Decimal armazena-se na variavel o resultado da função, que neste exemplo transforma o tipo de variavel contida na string para a variavel Integer armazena-se na variavel o resultado da função, que neste exemplo transforma o tipo de variavel contida na string para a variavel Long armazena-se na variavel o resultado da função, que neste exemplo retorna retorna Retorna o cosseno do ângulo dado.Comentários armazena-se na variavel o resultado da função, que neste exemplo transforma o tipo de variavel contida na string para a variavel Single armazena-se na variavel o resultado da função, que neste exemplo transforma o tipo de variavel contida na string para a variavel String armazena-se na variavel o resultado da função, que neste exemplo transforma o tipo de variavel contida na string para a variavel Variant Relação de Comandos VBA 2 DataEntryMode Teste44 Dim Dim Valor as string Teste45 Do, Until, Loop Do, While, Loop Else Teste20 ElseIf Teste49 Eventos Pasta Trabalho Eventos Planilha Exit Sub Exit Sub Teste1 Interrompe utilizada para informar que a rotina terminou. For, Next Teste22 FullName Teste23 If Teste49 Application.DataEntryMode = xlOn Esta função permite bloquear o seleção de celulas na planilha. Tem 3 variaveis: xlOn que impede a seleção, mas caso seja pressionado ESC aceita. xlStrict impedi, mesmo quando o ESC é pressionado. xlOff libera, permitindo que qualquer celula seja selecionada. No caso do XlStrict, quando se muda de planilha e retorna a anterior, as celulas ficam liberadas. Utilizada para declarar variaveis que serão utilizadas dentro do Procedimento. Do Until x = 10 "Execute as seguintes intruções" Loop Esta função é o contrario da Função Do While, Loop, pois determina que a condição seja executada enquanto a condição for falsa. Do While x < 10 "Execute as seguintes intruções" Loop Utiliza-se a instrução Do While, Loop (que significa "Execute enquanto a condição for verdadeira'), quando se quer repetir determinada instrução enquando a condição for verdadeira. No Exemplo ao lado, atribui-se a variavel "x" um valor e enquanto este valor for menor que "10" a instrução e repetida (fica num looping sem fim). Dentro da instrução, deve-se modificar o valor de "x", pois ao final de cada instrução, o "Loop" a manda voltar ao inicio e executar novamente. If Condição Then "Execute as seguintes instruções" Else "Caso a condição acima não seja atendida, execute o seguinte:" End If Instrução condicional, utilizada em conjunto com a instrução If, significando uma alternativa a ser seguida caso a condição não seja atendida. If Condição Then "Execute as seguintes instruções" ElseIf Condição Then "Execute as seguintes instruções" Else "Caso as condições acima não sejam atendidas, execute o seguinte:" End If Pode-se utilizar a Condição If, juntamente com ElseIf, Else e End If. Neste caso, a condição If e Then devem estar na mesma linha e a instrução a ser executada na linha seguinte. Ja a condição ElseIf deve ter a condição e instrução na mesma linha. Por ultimo utiliza-se o Else como alternativa caso nenhuma alternativa anterior tenha sido atendida. Pode ser utilizado para criar uma rotina que seja executada quando a Planilha (Plan1, Plan2, ...) estiver ativa. No Editor do VBE, Selecione "Esta pasta de Trabalho", em seguida click em Exibir, Codigo. Do lado esquerdo da Caixa de Seleção, escolha "Workbook", do lado direito, tem diversos eventos que podem ser utilizados, como por exemplo: Activate (quando a planilha é carregada), Open (quando a planilha é aberta), SheetBeforeDoubleClick (quando o duplo click é acionado), e muitas outras. Pode ser utilizado para criar uma rotina que seja executada quando a Pasta de Trabalho estiver ativa. No Editor do VBE, Selecione a Planilha que deseja. Em seguida click em Exibir, Codigo. Do lado esquerdo da Caixa de Seleção, escolha "WorkSheet", do lado direito, tem diversos eventos que podem ser utilizados, como por exemplo: Activate (quando a "Plan" estiver ativa), BeforeDoubleClick (quando o duplo clické acionado), e muitas outras. For x = 1 To 10 ActiveCell.Offset(0, 0) = "MARDEN CARDOSO" ActiveCell.Offset(1, 0).Select Next Utiliza-se a Função For, Next quando se quer repetir determinada ação por um determinado numero de vezes. No exemplo ao lado, a instrução For X = 1 to 10 determina que a instrução seja repetida 10 vezes. A instrução seguinte: ActiveCell.Offset(0,0) = .... significa, que na Celula ativa sera colocado a informação "MARDEN CARDOSO". Na instrução seguinte: ActiveCell.Offset(1,0).Select, determina que a celula imediatamente abaixo seja selecionada. Na instrução final Next, determina que a variavel "x" seja acrescido de 1 e seja reexecutado as condições. Variavel = Workbooks ("Nome do Arquivo.xls").FullName No exemplo ao lado, a funçao FullName armazena na Variavel o endereço completo onde o arquivo esta gravado. Valido para a pastas abertas. If Condição Then "Execute as seguintes instruções" End If Instrução condicional, utilizada sempre em conjunto com as instruções: "Then e End If". If significa a condição "Se". "Then" significa "Então" e "End If" significa fim da condição. Pode-se ainda utilizar uma condição IF Then dentro de outra condição If Then. Relação de Comandos VBA 3 InputBox Teste25 Int Variavel = Int(10.7) Teste50 LCase Variavel = LCase(palavra) Teste26 UCase Teste27 Len Teste51 Log Variavel = Log(10) Teste52 LTrim Teste53 MsgBox Teste20 Option Explicit Option Explicit Or Teste54 Private Private Valor as Currency Quit Application.Quit Teste20 RTrim Teste55 Select Case Selection.Font.Name Teste56 Altera a fonte para "Times New Roman" Selection.Font.Size Selection.Font.Size = 16 Teste56 Altera o tamanho da fonte para 16, na aréa selecionada. Set Space String StrReverse Variavel = StrReverse("Amor") Teste8 Trim Variavel = Trim(" MARDEN") Teste9 Escola = InputBox ("Digite o nome da Escola") Permite que se armazena na variavel "Escola" o nome que voce digitar. Durante o processamento da Macro, sera feito a pergunta "Digite o nome da Escola", servindo para ser utilizado posteriormente. É necessario armazenar a informação em uma variavel (vide modelo) e o texto deve estar entre parenteses e aspas. Arredonda um número para baixo até o número inteiro mais próximo. É importante lembrar que a fração para o excel é com "." e não com ",". armazena-se na variavel o resultado da função, que neste exemplo transforma todos os caracteres em minusculos. Variavel = UCase("MARDEN CARDOSO") armazena-se na variavel o resultado da função, que neste exemplo transforma todos os caracteres em maiusculos. Variavel = Len("MARDEN CARDOSO") armazena-se na variavel o resultado da função, que neste exemplo conta quantos caracteres tem a palavra ou sentença. Retorna o logaritmo de um número de uma base especificada. Variavel = LTrim(" MARDEN CARDOSO ") armazena-se na variavel o resultado da função, que neste exemplo remove espaços em branco no inicio (esquerda) da palavra ou sentença. MsgBox "MARDEN CARDOSO. Cursos Intensivos com Qualidade" Esta instrução cria uma mensagem, com o texto contido entre as aspas, dentro de uma caixa. Para seguir adiante, deve-se clicar no "OK". Esta função, digitada na seção de Declarações, obriga que toda variavel seja declarada. Vale dentro do Modulo em que a macro for criada. Para obrigar que todos os modulos automaticamente contenham a instrução "Option Explicit", Selecione: Ferramentas, Opções, Editor, Requerer Declaração de Variavel. If Condição = "MARDEN" Or Condição = "TESTE" Then "Execute as seguintes instruções" End If Pode utilizar a condição Or juntamente com a instrução IF, quando se quer que a condição atenda uma condição ou outra, não sendo necessário atender as duas ao mesmo tempo. No exemplo ao lado, pode ser "MARDEN" ou "TESTE". Vale lembrar que quando a condição for Texto, deve estar entre "aspas" Utilizada para declarar variaveis que serão utilizadas dentro do Modulo onde elas estão gravadas e devem ser gravadas no inicio do Modulo. Desta forma, as variaveis criadas atraves do "Private" não precisam ser declaradas no inicio da Macro. Fecha o sistema. No caso de alguma pasta não tiver sido salva, apresenta a opção de salva-la. Para desligar este alerta, deve-se utilizar o seguinte comando antes : Application.DisplayAlerts = False, que desliga a segurança do Exel. Variavel = RTrim(" MARDEN CARDOSO ") armazena-se na variavel o resultado da função, que neste exemplo remove espaços em branco no termino (direita) da palavra ou sentença. Select Case Consultoria Case "MARDEN" MsgBox"Consultoria e TESTEs" Case "In Campany" MsgBox "TESTEs sob medida" End Select Utiliza-se Select Case da mesma forma que utiliza-se If, ElseIf, Else e End If. No exemplo ao lado, Inicia-se com a Instrução Select Case Consultoria Na instrução seguinte: Case "MARDEN", ou seja, caso Consultoria seja igual a MARDEN, então.... Na sequencia, Caso In Campany seja igual a "TESTEs so medida" então... Para finalizar, utiliza- se End Select. Selection.Font.Name = "Times New Roman" Set Objeto = Worksheets("Exemplo").Range(" A1") Após declarar-se a Variavel como Objeto (Dim Objeto as Objet), declara-se qual o valor que a variavel tem, utilizando-se a função SET. Para zerar o valor deve-se utilizar "Set Objeto = Nothing" Variavel = "Palavra1" & Space(5) & "Palavra2" armazena-se na variavel o resultado da função, que neste exemplo acrescenta 5 espaços em branco entre duas palavras. Variavel = "Palavra" & String(5, "-") armazena-se na variavel o resultado da função, que neste exemplo acrescenta a "Palavra" cinco hifens, resultando em "Palavra-----". armazena-se na variavel o resultado da função, que neste exemplo inverte a ordem da palavra, escrevendo-a de traz para a frente, caracter por caracter. Exemplo. Palavra "Amor", resulta em "romA" armazena-se na variavel o resultado da função, que neste exemplo remove espaços em branco no inicio (esquerda)e no termino (direita) da palavra ou sentença. Relação de Comandos VBA 4 Value ActiveCell.Value = 150 vbOKCancel Visible Plan1.Visible = False Teste10 Torna a Planilha invisivel. True torna visivel. WindowState Teste11 Row Variavel = ActiveCell.Row Teste12 Column Variavel = ActiveCell.Column Teste13 Ctrl + R Mostra o Projeto Explorer. F4 Mostra a Janela de Propriedades. Alt + F11 Abre a janela de programação ActiveCell Variavel = ActiveCell Teste37 Celula Ativa, onde o curso esta. ActiveWindow Application.Run Application.Run("Macro1") Sub Sub Macro1 Iniciar uma Sub rotina, denominada "Sub Macro1" Sheets Planilha Range Range("A1:H15").Select Teste42 Aréa da planilha Selection.Copy Copiar a area selecionar Selection.End(xlToUp).Select Selection.End(xlToLeft).Select ActiveCell.Offset(0,0).select TODAY() Teste46 Selection.Copy Este comando copia a area selecionada. Sheets("Plan1").Select Este comando seleciona a Planilha "Plan1". Range("A5").Select Este comando seleciona a Celula "A5". Else End If Tradução - Termino da Instrução Condicional ActiveCell.EntireRow.Select ActiveCell.EntireRow.Select Teste38 Dim Valor As Double Neste exemplo, transferimos para a celula ativa o valor estipulado, 150. If Resposta = vbOK Then "Execute as seguintes instruções" Else Exit Sub End If Utiliza-se a instrução "vbOKCancel" quando se quer decidir sobre que ação tomar. Optando-se por OK ou Cancelando-se a ação. Application.WindowState = xlMaximized Esta função permite alterar a apresentação da janela do aplicativo ativo. xlMaximized Maximiza, xlNormal Restaura e xlMinimized Minimiza. Esta função permite armazenar na "Variavel" o endereço da linha. Execute a macro Endereço_Linha. Veja também Macro Localizar_Endereço_Linha_coluna Esta função permite armazenar na "Variavel" o endereço da coluna Execute a macro Endereço_Coluna. Veja também Macro Localizar_Endereço_Linha_colunaExecutar uma macro, no exemplo uma macro chamada "Macro1". Selection.End(xlToRight).Select Selecionar da Celula Atual até a ultima Celula preenchida a Direita da Celula Atual. Selecionar da Celula Atual até a ultima Celula preenchida acima da Celula Atual. Selection.End(xlToDown).Select Selecionar da Celula Atual até a ultima Celula preenchida abaixo da Celula Atual. Selecionar da Celula Atual até a ultima Celula preenchida a esquerda da Celula Atual. Este comando serve para selecionar celular a partir da celula atual, sendo que o 1° valor dentro dos parenteses representa a linha e o segundo valor representa a coluna. Se os n°s entre parenteses fossem por exemplo (1,4), a Celula selecionada seria a celula localizada na linha de baixo da celula atual, 4 colunas a direita da celula atual.. Se os n°s fossem negativos, por exemplo (-1,-2), a Celula selecionada seria a celula localizada na linha de cima da celula atual, 2 colunas a esquerda da celula atual. Tradução por palavra. ActiveCell = Celula Ativa. Offset = Fora da Seleção e . Select = Selecionar Selection.NumberFormat = "#,##0.00" Este comando formata a area selecionada para o formato contabil, sem Simbolo de Moeda, para duas casas, com separador de milhar. ActiveCell.FormulaR1C1 = "=TODAY()" Este comando coloca na celula ativa a data de hoje. O Comando Today() signifca a "data de Hoje". Variavel = InputBox("Qual o seu Nome?") Este comando armazena na Variavel o que for digitado na Caixa de Dialogo. ActiveCell.FormulaR1C1 = CDate(Data) Este comando armazena na celula ativa, o conteudo da Variavel "Data", no formato de Data. Tradução. Cdate = Converter para data. Tradução. Else = Senão - Esta instrução é utilizada dentro de uma instrução condicional (IF). Exemplo: If Variavel = 1 then nome = "MARDEN" (Se a Variavel for = 1 a 1 então o nome de "MARDEN.) Else nome = "Marcelo" (Se não for igual 1, então o nome é igual a "Marcelo".) Esta instrução seleciona a linha inteira onde o cursor estiver posicionado. Corresponde a voce clicar na Letra da Coluna. Por exemplo na coluna "A". Tradução. Dim = dimensionar, Criar, Definir a Variavel. Double = Define a variavel como numerica com duas casas decimais. Relação de Comandos VBA 5 Dim Data As Date Variavel = ActiveCell.Offset(0, 2) & Teste36 Call Macro1 ClearContents Selection.ClearContents CurrentRegion.Select Sort Left Teste28 Right Teste29 Mid Teste30 Insert Teste31 Exit Function Next vbCrLf Msgbox"Mard" & VbcrLf & "en" teste1 Tradução. Dim = dimensionar, Criar, Definir a Variavel. Data = Data - Define a variavel como numerica com duas casas decimais. Esta instrução armazena na "Variavel" o conteudo da Celula localizada na mesma linha de onde o cursor esta posicionado, duas colunas a direita. Tradução. & = "+" O & (e comercial) é utilizado quando se quer concatenar (somar, jujntar) dados. Imagine que voce tenha o Nome de uma pessoa na Variavel "Nom" e o Sobrenome na Variavel "Sobr" e queira Armazenar o nome completo na Celula "A1". Neste caso, poderia proceder da seguinte forma: Range("A1").value = Nom & " " & Sobr. Repare que utilize o "&" duas vezes e também "". O & foi para "Somar" as duas partes do nome, e os "" foram para inserir um espaço entre os nomes. As variaveis nunca podem estar entre aspas, pois deixam de ser variaveis. Tradução. Call = Chamar Neste exemplo, a instrução significa chamar uma rotina externa, neste caso a Macro chamada "Macro1". É comum, quando se tem uma rotina que é utilizada em diversos aplicativos, não re-escreve-la dentro de todas os rotinas, mas "chama-la" a cada vez que se tem necessidade. Neste caso, a rotina contida em "Macro1" é executada e a macro continua na linha de comando imediatamente abaixo. Tradução. ClearContentes = Limpe o Conteudo. Neste caso, a area selecionada é limpa. Selection.CurrentRegion.Select Tradução. CurrentRegion = Região Atual. Imagine que o cursor esta selecionado em uma celula dentro de um banco de dados de 1.000 linhas por 30 colunas. Atravez do comando acima, toda a area em volta do cursos é selecionada. Este comando equivale a voce pressionar simultaneamente as teclas: CTRL + Shift + * Selection.Sort Key1:=Range("A1"), Order1:=xlAscending Tradução. Sort = Classificar Key = Chave, especificação. Ascending = Ascendente No exemplo ao lado, corresponde a mandar classificar uma area selecionada, utilizando como critério a coluna "A1", em ordem Ascendente. Variavel = Left("MARDEN", 5) Tradução. Left = Esquerda Este comando pode ser utilizado, conforme ao lado, para armazenar na "Variavel" as 5 letras a esquerda da palavra "MARDEN). Resultado = "Caval" Variavel = Right("MARDEN", 5) Tradução. Right = Direita Este comando pode ser utilizado, conforme ao lado, para armazenar na "Variavel" as 5 letras a direita da palavra "MARDEN). Resultado = "Cante" Variavel = Mid("MARDEN", 6, 3) Tradução. Mid = Centro Este comando pode ser utilizado, conforme ao lado, para armazenar na "Variavel" os caracteres a partir do 6º caracter + 2 caracteres, totalizando 3 caracteres. "MARDEN). Resultado = "Ante" Selection.Insert Shift:=xlDown Tradução. Insert = Inserir Este comando, quando utilizado conforme o exemplo ao lado, insere uma linha em branco, correspondente a área selecionada, na planilha, na linha de baixo de onde o cursor estiver selecionado. Este comando é similar a selecionar uma celula, clicar com o botão direita e escolher excluir movendo para baixo. Tradução. Exit = Sair Function = Função Exit Function = Sair da Função Este comando é utilizado quando se quer sair da função durante sua execução. Por exemplo durante uma Condição, opta-se por sair da função. Tradução. Next = Próximo Este comando é utilizado em uma extrutura de repetição, em conjunto com o Comando FOR Este comando é utilizado para separar textos dentro de uma Mensagem (Msgbox) ou em uma Caixa de Mensagem (InputBox). No exemplo ao lado, o resultado seria: Mard em Relação de Comandos VBA 6 Chr(13) Msgbox"Mard" & chr(13) & "en" teste1 Len Tamanho = Len("MARDEN") Teste2 Replace Teste3 FontStyle ActiveCell.FontStyle = "Bold" Teste47 Fon.Font.Bold Selection.Font.Bold = True Teste4 Tradução. Font.Bold = Estilo da Fonte Negrito ActiveWindow.ScrollRow ActiveWindow.ScrollRow = 100 Teste5 Teste6 ScreenUpdating StrConv Teste7 On Error Resume Next AutoFilter Selection.AutoFilter Field: For For nContador = 1 To 4 Tradução. For = Execute Loop Tradução. Loop = Looping ShowAllData ActiveSheet.ShowAllData Wait Teste35 Hour(Now()) Variavel = Hour(Now()) Teste32 Minute(Now()) Variavel = Minute(Now()) Teste33 Second(Now()) Variavel = Second(Now()) Teste34 Teste39 Row & Column Teste45 Column & Row Teste45 Date Variavel = Date() Teste49 Este comando é utilizado para separar textos dentro de uma Mensagem (Msgbox) ou em uma Caixa de Mensagem (InputBox). No exemplo ao lado, o resultado seria: Mard em If Right$(cParte, 2) <> "00" Then Tradução. Len = (Medir o tamanho das palavras) Este comando, utilizando conforme modelo ao lado, armazena na Variavel "Tamanho" a quantidade de caracteres que tem a palavra "MARDEN". Neste exemplo, 10 caracteres. Variavel = Replace("123,45", ".", Variavel) Tradução. Replace = Substituir Este comando é utilizado para substituir caracteres dentro de um texto. Exemplo. Numa variavel temos um numero "123.45" e queremos substituir o "." por uma "Virgula". Tradução. FonteStyle = Estilo da Fonte. No Exemplo ao lado, é aplicado o estilo "Bold", ou "Negrito" na Celula selecionada. Tradução. ActiveWindow = Janela Ativa ScrollRow = Rolar a Tela Este comando é utilizado para rolar a tela para a linha"1000". CommandBars("Standard").Visib le = True Application.CommandBars("Standard").Visible = True Tradução. CommandBars = Menu de Ferramentas Este comando torna visivel a barra de ferramentas "Padrâo". Application.ScreenUpdating = False Tradução. ScreenUpdating = Atualização da Tela Este comando permite desligar a atualização da Tela (Monitor) durante a execução de uma macro. Este procedimento faz com que a macro seja executada mais rapidamente. Em macros extensas é um comando muito util, chegando a aumentar a velocidade de execução em mais de 1000% (mil por cento). Para re-ligar a atualização da tela, substitua "False" por "True" Variavel = StrConv("MARDEN CARDOSO", 3) Tradução. StrConv = Converter uma String (sequencia de caracteres) Este comando, associado ao numero 3, armazena na "Variavel" a palavra "MARDEN CARDOSO", escrita em miniscula, com os 1°s caracteres de cada palavra em Maisculo. Com o numero 1, transforma tudo em maiusculo. Com o numero 2, transforma tudo em minusculo. Tradução. On Error Resume Next = Em caso de Erro, conserte na sequencia. Tradução. AutoFilter = Auto Filtro O comando ao lado seleciona o Auto filtro num banco de dados. Selection.AutoFilter Field:=1, Criteria1:="1" Tradução. Field = Campo Este comando é utilizando junto com o AutoFilter, e serve para determinar os criterios que serão utilizados Tradução. ShowAllData = Mostrar todos os dados Utilizado quando se trabalha com filtros. Quando temos uma tabela de dados com o filtro ativado e queremos que todos os dados da tabela fiquem visiveis. Corresponde ao comando Dados/Filtra/Mostrar Todos. Application.Wait (Now + TimeValue("0:00:30")) Tradução. Wait = Esperar Pode ser utilizado para criar uma "pausa" durante a execução de uma macro. No exemplo ao lado, a espera é de 30 segundos. Tradução. Hour(Now()) = Hora atual No exemplo ao lado, acumulamos na Variavel a hora atual (do sistema). Tradução. Minute(Now()) = Minuto atual No exemplo ao lado, acumulamos na Variavel o Minuto atual (do sistema). Tradução. Second(Now()) = Segundo atual No exemplo ao lado, acumulamos na Variavel o Segundo atual (do sistema). ActiveCell.Columns("A:A").Entire Column.Select ActiveCell.Columns("A:A").Entire Column.Select A instrução seleciona a Coluna Inteira onde o cursor estiver. Pode-se acrescentar instruções, colocando-se um ponto após a função, como por exemplo: ActiveCell.EntireColumns.Delete, Clear, ClearComments, ClearFormat, etc. Determinar o endereço da Linha e Coluna onde o cursor esta localizado. Determinar o endereço da Linha e Coluna onde o cursor esta localizado. Tradução. Date = Data Armazena na Variavel a data do Sistema. Relação de Comandos VBA 7 Month Variavel = Month(Hoje) Teste49 Year Variavel = Month(Hoje) Teste49 Day Variavel = Month(Hoje) Teste49 Senha Teste57 Protect ActiveSheet.Protect "senha" Teste58 UnProtect ActiveSheet.UnProtect "senha" Teste59 Form Teste60 Find Cells.Find Teste61 Tradução. Month = Mês Armazena na Variavel o mês contido na Variavel Hoje. Tradução. Year = Ano Armazena na Variavel o ano contido na Variavel Hoje. Tradução. Day = Dia Armazena na Variavel o Dia contido na Variavel Hoje. Consistir Formulario (valmir Abril) Tradução. Protect = Proteger Proteger a planilha Tradução. UnProtect = Desproteger Desproteger uma planilha protegida. Tradução. Form = Formulário Neste exemplo, criamos um pequeno formulario e uma forma de consistir a entrada de dados, solicitando que o usuario preencha todos os dados do formulario. Tradução. Find = Localizar DICIONÁRIO
Compartilhar