Pré-visualização parcial do texto
Baixe programas excell - 20121107162157 e outras Notas de estudo em PDF para Microsoft Excel, somente na Docsity!
07/11/12 Guia do Excel:: Seu melhor site sobre excel do básico ao VBAAuto completar em Excel VBA Auto completar em Excel VBA mm maine Publicado por Marcos Rieper em outubro 13, 2012 as 1:20 pm Auto completar em Excel VBA Objetivo: Disponibilizar um exemplo de como podemos fazer um auto completar para listas em Excel. DA 5 Ee ES 1 Nomes Teste 2 Ademir LuizHammes Ademir Luiz Hammes 3 andeluizMuler CESAR LUIZ DOS ANJOS Autocompletar 4 Andréia Cristina Tavare Andréia Cristina Tavares Luiz 5 CassoluzdaSiva Hammes, Ademir Luiz 6 CESAR LUIZ DOS ANJO: Luiz Antônio Bett Clique em qualquer célula da planilha e pressior Es CTRL+SHIFT+2 ou senão no botão Auto complet para que a lista apareça. Exemplo VBA de autopreencher | Ao aparecer a lista, digite as letras para completando a palavra, depois pressione Enter pa que a palavra digitada seja preenchida na célu atual. O recurso de auto completar no Excel é limitado ao preenchimento automático apenas quando a lista de palavras está acima da palavra que está sendo digitada atualmente. Neste artigo é disponibilizado um exemplo de como utilizar o código VBA e o Excel para que possamos auto completar dados com o uso de um formulário e depois jogar este resultado diretamente na célula ativa do Excel. Para tanto você pode pressionar o botão que coloquei no formulário, ou ainda melhor, utilizar o atalho CTRL+SHIFT+a que coloquei atribuído ao método que chama o formulário. O código completo pode ser visto clicando na guia Desenvolvedor e clicando sobre o objeto do formulário. guiadoexcel.com.br/auto-completar-em-excel-vba 1/5 07/11/12 Guia do Excel:: Seu melhor site sobre excel do básico ao VBAAuto completar em Excel VBA 'Digite aqui o intervalo a ser autocompletado Private Const r As String = "AL:A100" Private sInput As String 'Faz parar a pesquisa dos dados digitados Dim flParar As Boolean 'Ao digitar deletar ou backspace o sistema limpa a variável de controle para pesquisar novamente Private Sub txtInput KeyDown (ByVal KeyCode As MSForms.ReturnInteger 'Limpa a variável de controle If (KeyCode = vbkeyBack) Or (KeyCode = vbkeyDelete) Then flParar = True Else flParar = False End If 1£ (KeyCode = 13) Then ActiveCell.Value = UserForml.txtInput.Text UserFormi.txtInput.Value = vbNullString UserFormi.Hide End If End Sub 'Faz a busca das palavras Private Sub txtInput Change () Dim lPalavra As String If flparar Then flparar = False Else sInput = Left (Me.txtInput, Me.txtInput.SelStart) 1Palavra = GetFirstCloserWord (sInput) If lPalavra & "" <> "" Then fiParar = True Me.txtInput.Text = lpalavra Me.txtInput.SelStart = Len (sInput) Me.txtInput.SelLength = 999999 End If End If End Sub 'Seleciona a primeira letra Private Function GetFirstCloserWord (ByVal Word As String) As String Dim c As Range For Each c In ActiveSheet .Range(r) .Cells 1f LCase(c.Value) Like LCase (Word & "*") Then GetFirstCloserWord = c.Value Exit Function End If Next c set c = Nothing End Function Veja como ficou o formulário: guiadoexcel.com.br/auto-completar-em-excel-vba ByVal Shift As Integer 215 07/11/12 VBA 26,879 views Guia do Excel: Extra - Excel 2007 21,902 views Artigos relacionados - Criando log no Excel Curso Excel VBA - Seu melhor site sobre excel do básico ao VBAAuto completar em Excel VBA VBA 19,059 views ar dad! ndededaaelnhanom uia Consolidação de de Orçamento Pessoal Excel 15,099 views Essen sene ras Filtro automático em VBA - Nome do Guia do Excel dados em Excel VBA planilhas usando usuário VBA, Data e - União de dados em Excel VBA ao clicar hora VBA Excel VBA em coluna Compartilhe isso: Facebook 9 2 Linkedin 4 Twiier imprimir Email OCO! Use QR-Code to get this permaking using your Smartphone. [E] o leis o Twest . 2 . Share 4 guiadoexcel.com.br/auto-completar-em-excel-vba 415 07/11/12 Guia do Excel:: Seu melhor site sobre excel do básico ao VBAAuto completar em Excel VBA guiadoexcel.com.br/auto-completar-em-excel-vba 5/5 
