As melhores planilhas prontas e gratuitas.

As melhores planilhas prontas e gratuitas.

6 Dicas para programar em Excel VBA

6 Dicas para programar em Excel VBA. O Excel VBA é uma sigla Visual Basic for Application uma ferramenta para dar mais opções de controle e edição de uma planilha.

Basicamente, o VBA atua como uma linguagem de programação à serviço do usuário, permitindo a criação de macros e a automatização de diversos processos dentro das planilhas e tabelas desenvolvidas no Excel.

Precisamos habilitar a guia desenvolvedor. Para isso, basta clicar na Guia Arquivo > Selecionar o botão “Opções” > Personalizar Faixa de Opções, e selecionar o desenvolvedor como mostrado a seguir: 

6 Dicas para programar em VBA

Após habiliar a guia desenvolvedor podemos abrir o editor do visual basic  pressionando Alt+F11 ou até aguia Desenvolvedor / Visual Basic.

Principais Janelas

O VBA possui várias janelas internas, conforme mostrado. Pode ser que nessa figura haja mais janelas que em seu VBA, ou que as janelas estejam em tamanhos ou posições diferentes.

6 Dicas para programar em Excel VBA

Isso acontece porque cada uma dessas janelas pode ser movida, redimensionada, movida, restaurada ou ocultada. Para exibir mais janelas, clique no controle Exibir na Barra de Menus.

Agora vamos conhecer algumas linhas de comandos em Excel VBA.

Sintaxe para ocultar linhas de grade, barra de rolagem horizontal e vertical e guia de planilhas. Adicionar no Evento Workbook_Open().

With ActiveWindow
‘Ocultar títulos de linhas e colunas
.DisplayHeadings = False
‘Ocultar barra de rolagem horizontal
.DisplayVerticalScrollBar = False
‘Ocultar guias de planilha
.DisplayWorkbookTabs = False
‘Ocultar linhas de grade
.DisplayGridlines = False
End With

Sintaxe para salvar o Excel.

Sub Salvar()
ActiveWorkbook.Save
End Sub

Sintaxe para Fechar o Excel.

Sub fechar()
Application.Quit
End Sub

Sintaxe para enviar mensagem.

Private Sub Workbook_Open()
MsgBox “Verificar a celula B3”
End Sub

Sintaxe para fechar o Form.

Unload Me

Sintaxe para abrir Form.

UserForm1.Show

Comentar uma linha de comando.

(‘) colocar Apóstrofo no inicio da sintaxe.

Download

Cadastro Cliente Excel VBA

No vídeo abaixo vamos mostrar como criar um cadastro de clientes básico usando os recursos do VBA Excel.

Download

CEP automático em Excel VBA

Podemos automatizar o preenchimento do nosso formulário com está opção do CEP automático sem precisar digitar mais nome de rua, bairro, cidade e estado.

Vamos aos passos primeiro precisa criar um botão com o nome Correios conforme imagem acima. Agora neste botão vamos colocar a sintaxe abaixo.

Private Sub ECorreios_Click()
txt_endereço = UCase(ConsultaCEP(txt_cep, “logradouro”))
txt_bairro = UCase(ConsultaCEP(txt_cep, “bairro”))
cmb_cidade = UCase(ConsultaCEP(txt_cep, “localidade”))
cmb_uf = UCase(ConsultaCEP(txt_cep, “uf”))
txt_numero.SetFocus
End Sub

Veja que nos códigos acima que precisamos apontar as demais textbox como endereço, bairro, cidade e UF para que ao digitar na textbox cep e clicar no botão correios todas as textbox sejam preenchidas.

Agora precisamos criar um modulo novo com o nome CEP e inserir a sintaxe abaixo.

Function ConsultaCEP(valorcep As String, tipoCampo As String)
Dim oXmlDoc As DOMDocument
Dim oXmlNode As IXMLDOMNode
Dim oXmlNodes As IXMLDOMNodeList
Set oXmlDoc = New DOMDocument
oXmlDoc.async = False
oXmlDoc.Load (“https://viacep.com.br/ws/” + valorcep + “/xml/”)
Set oXmlNodes = oXmlDoc.SelectNodes(“/xmlcep/” + tipoCampo)
For Each oXmlNode In oXmlNodes
ConsultaCEP = oXmlNode.Text
Next
End Function

Agora para finalizar precisamos ir até ferramentas “Referencia” e habilitar o Microsoft XML. v6.0 dependendo da versão do Windows e office só tem a opção Microsoft XML. v3.0 sendo assim libera está ultima opção.

6 Dicas para programar em Excel VBA

Atenção para que o CEP funcione automático o computador ou notebook precisa estar conectado na internet porque a consulta é feita no site “https://viacep.com.br”.

Download

Salvar Projetos Excel VBA automático

Para perder os dados é muito fácil no Excel quando fechamos nossas planilhas ou projetos sem salvar. Mas pensando nisto que vamos ensinar para você como deixar a sua planilha salvando automáticamente.

Para isso vamos até o ambiente VBA do Excel inserir modulo com o nome Salvar_automatico e colar a sintaxe abaixo.

6 Dicas para programar em Excel VBA

Sintaxe Utilizada.

Public RunWhen As Double
Public Const cRunIntervalSeconds = 600 ’10 minutos
Public Const cRunWhat = “SalvamentoProgramado” ‘nome do procedimento a ser executado
Sub StartTimer()
RunWhen = Now + TimeSerial(0, 0, cRunIntervalSeconds)
Application.OnTime EarliestTime:=RunWhen, Procedure:=cRunWhat, _
Schedule:=True
End Sub
Sub SalvamentoProgramado()
‘ProgressBar.Show
If Application.ThisWorkbook.Saved = False Then
Application.ThisWorkbook.Save
End If
StartTimer ‘ Reschedule the procedure
End Sub
Sub StopTimer()
On Error Resume Next
Application.OnTime EarliestTime:=RunWhen, Procedure:=cRunWhat, _
Schedule:=False
End Sub

Atenção observe os comandos acima a segunda linha o comando “Public Const cRunIntervalSeconds = 600 ’10 minutos” este tempo está relacionado ao tempo de segundo sendo que configurado para 600 a cada 10 minutos o Excel vai executar o salvamento automático.

Se você for utilizar o código em uma planilha precisa apontar a call “um sub rotina apontando o código criado acima” no evento Workbook_Open.

Mas se você for utilizar este código em um projeto em Excel VBA precisa colocar uma call “um sub rotina apontando o código criado acima” no evento inicialize do form principal.

Vamos ao exemplo nas imagens para os dois casos:

Sintaxe utilizada somente em planilhas.

Private Sub Workbook_Open()
Call SalvamentoProgramado
End Sub

Sintaxe utilizada no formulário principal.

Private Sub UserForm_Initialize()
Call SalvamentoProgramado
End Sub

Download

6 Dicas para programar em Excel VBA. Duvidas sobre Excel VBA deixar nos comentários abaixo que em breve retornaremos.

Gerar arquivos PDF ao imprimir em Excel VBA

Podemos gerar arquivos pdf quando clicamos no botão imprimir evitando imprimir e gerando arquivos digital para guardar.

6 Dicas para programar em Excel VBA

Para isso vamos inserir no botão imprimir a sintaxe abaixo.

Private Sub Imprimir_Click()
Sheets(“DADOS CLIENTES”).Select
Call Relatório_imprimir
End Sub

Como vimos foi utilizada uma sub rotina call chamada Relatório imprimir que foi criada com a sintaxe abaixo.

Sub Relatório_imprimir()
Application.ScreenUpdating = False
On Error Resume Next
Dim SvInput As String
Dim data As String
Dim var_MENSAGEM
Dim nome As String
data = VBA.Format(VBA.Date, “dd-mm-yyyy”)
SvInput = ThisWorkbook.Path & Application.PathSeparator & nome & “” & data & “.pdf”
With ActiveSheet
.ExportAsFixedFormat _
Type:=x1TypePDF, _
Filename:=SvInput, _
OpenAfterPublish:=True
End With
Application.ScreenUpdating = True
End Sub

Como podemos observar o arquivo é gerado com a data atual e antes de imprimir precisa ser configurada a pagina a ser imprimida assim como a margens e layout da página.

Download

Quebrar senha planilha protegida

6 Dicas para programar em Excel VBA. Sabe aquela sua planilha que você tem ou recebeu e precisa alterar mas está protegida veja como é fácil com este simples comando em Excel VBA.

Para começar, como você já sabe, é só apertar o alt + F11 para abrir a edição de códigos ou vai até a guia – desenvolvimento – Visual Básic Clique em EstaPastaDeTrabalho e na janela branca a direita insira o comando abaixo conforme imagem.

Apos clicar em Executar botão verde

Planilha desprotegida

Sintaxe utilizada.

Sub DesprotegerPlanilhaAtiva()
Dim i, i1, i2, i3, i4, i5, i6 As Integer, j As Integer, k As Integer, l As Integer, m As Integer, n As Integer
On Error Resume Next
For i = 65 To 66
For j = 65 To 66
For k = 65 To 66
For l = 65 To 66
For m = 65 To 66
For i1 = 65 To 66
For i2 = 65 To 66
For i3 = 65 To 66
For i4 = 65 To 66
For i5 = 65 To 66
For i6 = 65 To 66
For n = 32 To 126
ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If ActiveSheet.ProtectContents = False Then
MsgBox “Planilha desprotegida com sucesso!!!”
Exit Sub
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
End Sub

Download

VBA para expirar validade na planilha no Excel

Aprenda a colocar uma data de validade nos seus projeto de Excel com estes simples comando Excel VBA. Para começar, como você já sabe, é só apertar o alt + F11 para abrir a edição de códigos ou vai até a guia – desenvolvimento – Visual Básic.

Clique em EstaPastaDeTrabalho e na janela branca a direita insira o comando abaixo conforme imagem.

6 Dicas para programar em Excel VBA

Sintaxe utilizada.

Private Sub Workbook_Open()
Sheets(“Plan1”).Select
‘ expira excel
Dim dtexp As Date
‘Escolha a data que deverá expirar
dtexp = (“04/09/2019”) ‘inibir aqui’
If Date >= #4/9/2019# Then ‘ativar esta’
If Date >= dtexp Then ‘inibir aqui’
ThisWorkbook.Saved = True
MsgBox “Este arquivo está expirado. Favor entrar em contato com administrador”
Application.Quit
End If
End If
End Sub

6 Dicas para programar em Excel VBA

Precisa salvar a planilha com extensão xlsm. Quando abrir a planilha não vai conseguir usar conforme imagem acima.

Download

Destaque a linha selecionada

Destaque a linha selecionada com este comando em Excel vba. Quando você clicar na linha aparece uma seleção na planilha. Para isso basta colar a sintaxe abaixo no ambiente VBA do Excel.

6 Dicas para programar em Excel VBA

Sintaxe utilizada.

Dim LinhaSelecAnterior As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case ActiveCell.Row
Case 1, 2
‘Coloque neste ‘case’ as linhas que não devem ser
‘destacadas na seleção
‘Exemplo: Linhas de título; Aqui eu defini como as linhas 1 e 2
‘Remove cor de fundo da linha selecionada anteriormente
Select Case LinhaSelecAnterior.Row
Case Is <> 1, 2
Rows(LinhaSelecAnterior.Row).Interior.ColorIndex = 0
End Select
Case Else
‘Altera a cor de fundo da linha selecionada
Rows(ActiveCell.Row).Interior.ColorIndex = 15
‘Remove a cor de fundo quando a linha perde a seleção
If Not LinhaSelecAnterior Is Nothing Then
‘Verifica se a linha atual já estava selecionada
‘neste momento, caso seja uma nova linha selecionada
‘remove a cor de fundo.
If ActiveCell.Row <> LinhaSelecAnterior.Row Then
Rows(LinhaSelecAnterior.Row).Interior.ColorIndex = 0
End If
End If
‘Inicializa a variavel informando a seleção atual
‘que será utilizada no inicio do procedimento
‘como sendo a seleção anterior
Set LinhaSelecAnterior = ActiveCell
End Select
End Sub

Download

Gerar numero aleatórios sem repetição

6 Dicas para programar em Excel VBA. Planilha para gerar numero aleatórios sem repetição.

Sintaxe utilizada.

Sub GerarNumerosAleatoriosSemRepeticao()
Dim i As Integer
Dim j As Integer
Dim bRandomOk As Boolean
Dim valor_aleatorio As Integer
Dim valor_maior As Integer
Dim total_numeros_gerados As Integer
Dim total_numeros_para_gerar As Integer
Dim iControleGerar As Integer
Dim iColunaCelula As Integer
valor_maior = 60 ‘Informe o maior número que poderá ser gerado
total_numeros_para_gerar = 20 ‘Informe a quantidade de números aleatórios que deseja gerar
total_numeros_gerados = 0
iLinhaCelulaInicial = 2 ‘Informe a linha da primeira célula que será escrito o número
iColunaCelula = 2 ‘Informe a coluna. Exemplo: Coluna B = 2
iControleGerar = total_numeros_para_gerar + iLinhaCelulaInicial – 1
‘Gera quantos números forem indicados na variável ‘total_numeros_gerados’
For i = iLinhaCelulaInicial To iControleGerar
total_numeros_gerados = total_numeros_gerados + 1
‘Fica executando a geração de um novo número enquanto houver duplicidade
Do
‘Utilize a condição abaixo para verificar se ainda existem números possíveis a serem gerados
‘Porque se i for maior que o valor limite, significa que todos os números já saíram. Então, sai do loop
If valor_maior < total_numeros_gerados Then
valor_aleatorio = 0
bRandomOk = True
Exit Do
End If
‘Gera um novo número
Randomize ‘Sempre utilize esta função antes de chamar Rnd
valor_aleatorio = Int((valor_maior * Rnd) + 1)
bRandomOk = True
‘Verifica se já saiu este número
For j = iLinhaCelulaInicial To i
If Cells(j, iColunaCelula).Value = valor_aleatorio Then
bRandomOk = False
Exit For
End If
Next j
Loop While bRandomOk = False
‘Escreve o número na célula
Cells(i, iColunaCelula).Value = valor_aleatorio
Next i
MsgBox “Números Gerados”, vbInformation
End Sub

6 Dicas para programar em Excel VBA

Download

Conversão de Horas no Excel

Podemos converter segundos para minutos ou minutos para horas ou horas para segundos ou fazer todo o sentido contrario Horas para minutos ou minutos para segundos ou segundos para horas com está simples função
gfConverteTempo em Excel VBA.

Para isso vamos até o ambiente VBA do Excel inserir modulo e colar a sintaxe abaixo.

Public Function gfConverteTempo(ByVal vTempo As Double, ByVal vConverte As String) As Double
On Error Resume Next
Application.Volatile
Dim lAux As Long
Select Case vConverte
Case “hm”
lAux = (24 * 60)
gfConverteTempo = vTempo * lAux
Case “hs”
lAux = (24 * 60)
gfConverteTempo = vTempo * lAux * 60
Case “mh”
lAux = (24 * 60)
gfConverteTempo = vTempo / lAux
Case “ms”
gfConverteTempo = vTempo * 60
Case “sh”
lAux = (24 * 60)
gfConverteTempo = vTempo / (lAux * 60)
Case “sm”
gfConverteTempo = vTempo / 60
End Select
End Function

Download

Planilha de Orçamento Excel VBA

Código fonte aberto para estudo e todas as linhas de comando comentadas para conhecimento. Planilha de Orçamento Excel VBA onde permite o cadastro de clientes, produtos e gerar orçamento.

Download

Gerador Etiquetas Excel VBA

Gerador Etiquetas Excel VBA você vai conhecer está poderosa ferramenta que consegue transformar um número inteiro em código de barras tipo code 128. Planiha desbloqueada para estudo código fonte.

Download

6 Dicas para programar em Excel VBA. Duvidas sobre Excel VBA deixar nos comentários abaixo que em breve retornaremos.

Olá, amigos! Inscreva-se em nosso canal do Youtube para não perder os próximos vídeos.

12 Comentários

Deixe um comentário

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *


  1. Olá poderia me ajudar quando estou com o meu form vba aberto não consigo abrir nenhuma outra planilha e quando fecho também fecha todas as planilhas abertas.

    • Olá Paulo
      Verifique as propriedades do Form a opção ShowModal deve estar como true
      deixar como false que resolve.
      Agora para fechar o VBA via código você deve estar usando código errado o Application.Quit fecha todas a planilhas abertas use este código pra fechar o seu Form.
      ThisWorkbook.Save ‘Salva as alterações
      ThisWorkbook.Close ‘Fecha o excel todo

  2. Preciso de uma ajuda, necessito imprimir algumas etiquetas com algumas informações e volume para a entrega, porem são muitos volumes e tenho que mudar um a um para imprimir, teria como colocar em um campo a quantidade total e a inicial que quando ele for imprimindo ele vai aumentando um numero ate chegar a quantidade total, sendo que apenas o numero da etiqueta pode mudar.

  3. A Planilha com validade de expirar modelo não abre, diz para consultar o adm, como faço para alterar a data de expiração?

    • Olá amigo,

      Abrir a planilha com a macro desativada e fazer a alteração da data desejada e ativar a macro novamente.

      atenciosamente,
      Luiz Domingues.

    • Ola amigo na TextBox no evento Change eu utilizo a formatação abaixo:
      TXT_CUSTO = Format(TXT_CUSTO, “#,##0.00”)

      Na listBox eu utilizo a formatação abaixo:
      .List(linhalistbox, 4) = Format(Sheets(“historico”).Cells(Linha, 5).Value, “#,##0.00”)

      atenciosamente,
      Luiz Domingues.

Damos valor à sua privacidade

Nós e os nossos parceiros armazenamos ou acedemos a informações dos dispositivos, tais como cookies, e processamos dados pessoais, tais como identificadores exclusivos e informações padrão enviadas pelos dispositivos, para as finalidades descritas abaixo. Poderá clicar para consentir o processamento por nossa parte e pela parte dos nossos parceiros para tais finalidades. Em alternativa, poderá clicar para recusar o consentimento, ou aceder a informações mais pormenorizadas e alterar as suas preferências antes de dar consentimento. As suas preferências serão aplicadas apenas a este website.

Cookies estritamente necessários

Estes cookies são necessários para que o website funcione e não podem ser desligados nos nossos sistemas. Normalmente, eles só são configurados em resposta a ações levadas a cabo por si e que correspondem a uma solicitação de serviços, tais como definir as suas preferências de privacidade, iniciar sessão ou preencher formulários. Pode configurar o seu navegador para bloquear ou alertá-lo(a) sobre esses cookies, mas algumas partes do website não funcionarão. Estes cookies não armazenam qualquer informação pessoal identificável.

Cookies de desempenho

Estes cookies permitem-nos contar visitas e fontes de tráfego, para que possamos medir e melhorar o desempenho do nosso website. Eles ajudam-nos a saber quais são as páginas mais e menos populares e a ver como os visitantes se movimentam pelo website. Todas as informações recolhidas por estes cookies são agregadas e, por conseguinte, anónimas. Se não permitir estes cookies, não saberemos quando visitou o nosso site.

Cookies de funcionalidade

Estes cookies permitem que o site forneça uma funcionalidade e personalização melhoradas. Podem ser estabelecidos por nós ou por fornecedores externos cujos serviços adicionámos às nossas páginas. Se não permitir estes cookies algumas destas funcionalidades, ou mesmo todas, podem não atuar corretamente.

Cookies de publicidade

Estes cookies podem ser estabelecidos através do nosso site pelos nossos parceiros de publicidade. Podem ser usados por essas empresas para construir um perfil sobre os seus interesses e mostrar-lhe anúncios relevantes em outros websites. Eles não armazenam diretamente informações pessoais, mas são baseados na identificação exclusiva do seu navegador e dispositivo de internet. Se não permitir estes cookies, terá menos publicidade direcionada.

Visite as nossas páginas de Políticas de privacidade e Termos e condições.