ENUM é uma forma abreviada para enumerações, quase em todas as linguagens de programação temos enumerações, algumas são predefinidas e outras definidas pelo usuário, como em VBA Vbnewline é uma enumeração e podemos fazer nossas próprias enumerações usando a instrução ENUM.
Enumerações VBA (Enum)
Normalmente declaramos variáveis e atribuímos tipos de dados a elas. Os tipos de dados comuns que usamos são “Inteiro, Longo, Único, Duplo, Variante e String”. Mas temos mais um tipo de dados, ou seja, VBA “Enum”. Você deve estar pensando o que é isso e parece uma coisa estranha, mas para tirar todas as suas dúvidas estamos apresentando este artigo sobre “Enumerações VBA”
O que é VBA Enum?
“Enum” significa Enumerações. Enum é um tipo de variável como nossa string ou inteiro ou qualquer outro tipo de dados, mas aqui criamos um elemento de lista usando a instrução Enum do Excel VBA. Enumeração significa “a ação de mencionar uma série de coisas uma por uma”.
No Excel VBA, Enum é um tipo que contém uma enumeração de constantes. Enumerações criam uma lista de itens e os tornam em um grupo. Por exemplo, tipos de celulares: “Redmi, Samsung, Apple, Vivo, Oppo”.
Usando enumerações, podemos agrupar todos eles em um único valor. Enum pode ser usado como variáveis em VBA e é um tipo de dados de variável numérica de LONG.
Fórmula do VBA Enum
Se você não está entendendo nada, não se preocupe, você irá lentamente pegar o jeito. Agora dê uma olhada na fórmula do VBA Enum.
Enum GroupName Member1 = [Long] Member2 = [Long] Member3 = [Long] Member4 = [Long] Member5 = [Long] End Enum
Como disse no início, Enum pode ser usado como uma variável e é o tipo de dados de variável numérica Long.
Exemplos de VBA Enum
Antes de começar os exemplos Enum, deixe-me mostrar o exemplo “Constante” em VBA. Constante também é uma palavra usada para declarar a variável em VBA.
Veja os códigos abaixo.
Código:
Option Explicit Const Samsung = 15000 Const VIVO = 18000 Const Redmi = 8500 Const Oppo = 18500 Sub Enum_Example1 () End Sub
Eu declarei as variáveis na parte superior do módulo usando a palavra Const.
Const Samsung = 15000
Const VIVO = 18000
Const Redmi = 8500
Const Oppo = 18500
Agora eu sei que todas essas variáveis são membros do grupo Mobile. Se quiser usar essas variáveis, digamos “Vivo” no módulo.
Código:
Sub Enum_Example1 () V End Sub
Ao iniciar o caractere “v”, posso ver muitas outras coisas do VBA misturadas a eles, sendo as coisas que começam com a letra “v”.
É aqui que a imagem de “Enumerações” do VBA entra em cena.
Para melhor compreensão, vamos tentar mudar a cor de fundo da célula.
Código:
Sub Enum_Example1 () AcriveCell.Interior.Color = RGB End Sub
Como você pode ver no código acima, podemos ver todas as cores RGB disponíveis no VBA. Todas essas são constantes com nomes maravilhosos.
Na verdade, todas essas cores RGB fazem parte da enumeração da família chamada “ xlRGBColor ”.
Código:
Sub Enum_Example1 () AcriveCell.Interior.Color = xlrg End Sub
Ao usar essas enumerações VBA, na verdade, posso acessar todos os membros do grupo dessa enumeração.
Código:
Sub Enum_Example1 () AcriveCell.Interior.Color = XlRgbColor. End Sub
Como podemos ver na imagem acima, vemos apenas combinações de cores, nada mais. Isso é o que a visão geral simples do “VBA Enum”.
Ok, agora vamos voltar ao nosso exemplo original de membros do grupo Mobile. Da mesma forma que vimos membros do grupo de cores RGB, podemos declarar as variáveis usando a instrução VBA Enum.
Código:
Enum Mobiles Samsung = 15000 VIVO = 18000 Redmi = 8500 Oppo = 18500 End Enum Sub Enum_Example1 () End Sub
Agora, declarei todas as marcas de celular no grupo "Móveis" usando as declarações "Enum".
Usando o nome do grupo “Mobiles” agora posso acessar todas essas marcas no módulo.
Código:
Enum Mobiles Samsung = 15000 VIVO = 18000 Redmi = 8500 Oppo = 18500 End Enum Sub Enum_Example1 () Mob End Sub
Selecione o grupo e coloque um ponto para ver todos os membros do grupo.
Olha, podemos ver apenas os membros do grupo “Mobiles” nada mais. É assim que podemos usar Enumerações VBA para agrupar uma lista de itens sob o mesmo teto.
Usando variáveis de enumeração do VBA para armazenar os dados
Vamos ver um exemplo simples de uso de variáveis Enum declaradas. Declare o nome do grupo Enum como “Departamento” e adicione os nomes do departamento como o membro do grupo.
Código:
Enum Mobiles Finance = 150000 HR = 218000 Vendas = 458500 Marketing = 718500 End Enum Sub Enum_Example1 () End Sub
Eu declarei os números do salário de cada departamento na frente deles.
Agora vamos armazenar os valores desses números na planilha do Excel. Antes de aplicar o código, crie uma tabela como a abaixo.
Agora volte para o editor visual basic e refira a célula B2 usando o objeto RANGE .
Código:
Sub Enum_Example1 () Intervalo ("B2"). Valor = End Sub
In A2 cell we have the Finance department and so in B2 cell, we will store the salary of this department. So first access the group name “Department”.
Code:
Sub Enum_Example1() Range("B2").Value = Dep End Sub
Now in this group, we can see only declared department names.
Code:
Sub Enum_Example1() Range("B2").Value = Department. End Sub
Select the department name “Finance”.
Code:
Sub Enum_Example1() Range("B2").Value = Department.Finance End Sub
Similarly, for all the other cells select the respective department names.
Code:
Sub Enum_Example1() Range("B2").Value = Department.Finance Range("B3").Value = Department.HR Range("B4").Value = Department.Marketing Range("B5").Value = Department.Sales End Sub
Run this VBA code we will get the assigned salary amount for these departments.
This is how we can use VBA Enum.
You can download this VBA Enum Excel here. VBA Enum Excel Template