Dicionário VBA do Excel
Dicionário, em geral, possui uma coleção de palavras com significado e aplicações definidas. O mesmo conceito pode ser usado na criação do Dicionário VBA do Excel, onde podemos adicionar, atualizar, alterar e excluir o máximo de palavras possível. No dicionário VBA, podemos usar a coleção de array ou palavras para definir ou criar qualquer categoria. Como em um dicionário de palavras normal, vemos palavras com seu significado, categorias, aplicação, pronúncia etc. No Dicionário VBA, também podemos definir todas as características e valores necessários que queremos atribuir a qualquer palavra ou variável.
Para usar o Dicionário VBA, precisamos habilitar a função Microsoft Scripting Runtime, disponível na opção de menu Ferramenta, em Referências.
Ferramenta -> Referências -> Microsoft Scripting Runtime
O Dicionário VBA possui algumas propriedades principais, conforme explicado abaixo;
- Contagem = Retorna a contagem de um número de variáveis na chave do dicionário.
- Item = Podemos obter o valor do item da chave específica com isso.
- Chave = Com isso, podemos substituir qualquer chave por outra.
- Adicionar = É usado para adicionar valor-chave a um dicionário.
- CompareMode = É usado para comparar as diferentes chaves no dicionário.
Etapas para criar dicionário no Excel VBA
Para criar um dicionário VBA, primeiro, precisamos ativar o Microsoft Scripting Runtime, que é o primeiro passo para ativar o dicionário VBA do Excel. Siga as etapas para criar um dicionário no Excel usando o código VBA.
Você pode baixar este modelo de dicionário do VBA Excel aqui - modelo de dicionário do VBA ExcelEtapa 1 : Para isso, vá ao menu Ferramenta e selecione a opção Referências a partir daí, como mostrado abaixo.
Etapa 2 : Agora, na janela References - VBA Project, selecione Microsoft Scripting Runtime, que nos ajudará a atualizar o dicionário do VBA. Uma vez feito, clique em OK .
Etapa 3: Agora precisamos de um módulo para escrever o código do dicionário VBA. Então, abra uma opção de menu Module from Insert, como mostrado abaixo.
Etapa 4: Agora escreva o subprocedimento para o Dicionário VBA em qualquer nome, como mostrado abaixo.
Código:
Sub VBA_Dictionary2 () End Sub
Etapa 5: Agora definiremos uma variável como Dicionário e atribuiremos a função Dicionário como mostrado abaixo. Para evitar confusão, você pode escolher qualquer outro nome conforme sua escolha.
Código:
Sub Dicionário VBA_Dictionary2 () Dim como dicionário End Sub
Etapa 6: Agora defina essa variável Dictionary como New Dictionary, como mostrado abaixo.
Código:
Sub Dicionário VBA_Dictionary2 () Dim como dicionário Definir dicionário = novo dicionário End Sub
Etapa 7: Agora abriremos o With-End with Loop, como mostrado abaixo.
Código:
Sub VBA_Dictionary2 () Dim dicionário como dicionário Definir dicionário = novo dicionário com dicionário End With End Sub
Etapa 8: como já discutimos as diferentes propriedades ou aplicativos que podemos escolher no dicionário VBA do Excel. Então, aqui vamos selecionar .Add, que é usado para adicionar as palavras no dicionário com qualquer tecla, como mostrado abaixo. Aqui pegamos a chave aleatoriamente como 11.
Código:
Sub Dicionário VBA_Dictionary2 () Dim como dicionário Definir dicionário = Novo dicionário com dicionário .Add Key: = 11, End With End Sub
Etapa 9: Agora, atribuiremos um item a essa chave. Escolhemos a palavra " Cão " para a Chave 11 .
Código:
Sub Dicionário VBA_Dictionary2 () Dim como dicionário Definir dicionário = Novo dicionário com dicionário .Add Key: = 11, Item: = "Dog" End With End Sub
Etapa 10: da mesma forma, adicionamos mais algumas palavras. Digamos que essas palavras sejam " Gato " e " Rato " com as Teclas 12 e 13, respectivamente.
Código:
Sub Dicionário VBA_Dictionary2 () Dim como dicionário Definir dicionário = Novo dicionário com dicionário .Add Key: = 11, Item: = "Dog" .Add Key: = 12, Item: = "Cat" .Add Key: = 13, Item: = "Rat" End With End Sub
Etapa 11: Agora insira o comando Debug.Print para imprimir os valores armazenados nas chaves usadas conforme os números alimentados.
Código:
Sub Dicionário VBA_Dictionary2 () Dim como dicionário Definir dicionário = Novo dicionário com dicionário .Add Key: = 11, Item: = "Dog" .Add Key: = 12, Item: = "Cat" .Add Key: = 13, Item: = "Rat" End With Debug.Print (Dictionary (11)) End Sub
Isso completa nosso código. Agora, para entender como as palavras serão adicionadas ao Dicionário VBA do Excel, precisamos adicionar mais algumas janelas de inspeção.
Etapa 12: Vá para o menu Exibir e selecione Janela de inspeção e Janela imediata, conforme mostrado na lista abaixo.
Depois disso, nossa janela VBA provavelmente será semelhante à mostrada abaixo.
Ajustamos a janela Immediate and Watch aberta em qualquer lugar da tela, conforme nossa necessidade.
Etapa 13: Agora adicione a lista de observação na janela de inspeção. Para isso, clique com o botão direito do mouse e clique em Adicionar relógio, como mostrado abaixo.
Etapa 14: Na janela de inspeção, nomeie a expressão e selecione o Módulo no qual você escreveu o código. Aqui nosso módulo é Module1 . E clique em OK, finalmente.
Na janela de inspeção, obteremos nossa lista de inspeção denominada como Dicionário, como mostrado abaixo.
Etapa 15: Agora execute o código clicando no botão Play ou pressionando a tecla F5. Veremos nossa primeira palavra “ Cão ” será adicionada ao dicionário e ficará visível em uma janela imediata , como mostrado abaixo.
Etapa 16: Para ver a atualização na janela Monitor, pressione a tecla F8 para executar cada etapa, uma a uma. Haverá um ponto em que veremos a janela do Watch atualizada com o item e o número da chave atribuídos a cada número. Em seguida, clique no sinal de mais na janela Observar para explorar as coisas armazenadas em cada número de chave.
Nesse sentido, poderemos ver a Contagem de variáveis adicionadas ao nosso dicionário, os números dos itens e o valor-chave atribuído a eles e que tipo de variável são, como mostrado abaixo.
Aqui o Count é 3 porque escolhemos 3 palavras diferentes para serem adicionadas ao nosso dicionário. Para o item Cão, Gato e Rato, os valores armazenados são 11, 12 e 13, respectivamente. E na coluna de contexto, poderemos ver o Módulo que selecionamos como Módulo1.
Etapa 17: Agora, para ver os diferentes valores do item, precisaremos alterar o número da chave no Debug.Print, conforme mostrado abaixo. Aqui nós escolhemos 12 .
Etapa 18: Agora execute novamente o código clicando no botão Play ou pressionando a tecla F5. Veremos, em uma janela Imediata, o próximo item Cat é adicionado.
Etapa 19: Isso será alterado se adicionarmos novamente 13 no Debug.Print, como mostrado abaixo.
Etapa 20: Agora execute novamente o código clicando no botão Play ou pressionando a tecla F5.
É assim que podemos criar e adicionar várias palavras ao dicionário VBA do Excel, conforme nossa escolha.
Profissionais do Excel VBA Dictionary
- Podemos inserir tantas palavras personalizadas de nossa escolha que possam ser usadas em qualquer criação de banco de dados.
- É muito fácil encontrar a palavra adicionada com a ajuda de Key atribuída a ela.
- Além da adição, podemos remover, atualizar e comparar as palavras já adicionadas ao dicionário.
Contras do dicionário VBA do Excel
- Precisamos executar o código completo novamente depois de alterar o número da chave em Imprimir para ver palavras diferentes adicionadas ao dicionário.
Coisas para lembrar
- As janelas Imediata e Observar são necessárias para ver as palavras adicionadas ao dicionário.
- Qualquer tipo de palavra, intervalo numérico e caracteres podem ser adicionados com significado definido.
- Uma janela imediata mostra a palavra que é adicionada ao dicionário.
- A janela de inspeção mostra o valor e o tipo de palavras adicionadas ao dicionário.
Artigos recomendados
Este é um guia para o dicionário VBA. Aqui discutimos exemplos para criar um Dicionário no Excel usando o código VBA, juntamente com um exemplo e um modelo do Excel para download. Você também pode consultar nossos outros artigos sugeridos -
- Usando o VBA no Outlook
- Definir verificação ortográfica no Excel
- Como usar a função VBA InStrRev?
- Inserir calendário no Excel | Exemplos