VBA Enum - Exemplos passo a passo para usar enumerações VBA

Índice

Enumerações VBA (Enum)

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, tipo de celular: “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.

A fórmula do VBA Enum

Se você não entende nada, não se preocupe. Você vai pegar o jeito lentamente. 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” no 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 eu quiser usar essas variáveis, digamos “Vivo” no módulo.

Código:

Sub Enum_Example1 () V End Sub

Quando começo o caractere “v”, posso ver muitas outras coisas do VBA misturadas a eles, 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. Esta é 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

Now I have declared all the mobile brands under the “Mobiles” group by using “Enum” statements.

By using the group name “Mobiles,” now I can access all these brands in the module.

Code:

Enum Mobiles Samsung = 15000 VIVO = 18000 Redmi = 8500 Oppo = 18500 End Enum Sub Enum_Example1() Mob End Sub

Select the group and put a dot to see all the members of the group.

Look, we can see only the group members of the group “Mobiles,” nothing else. This is how we can use VBA Enumerations to group a list of items under one roof.

Using VBA Enumeration Variables to Store the Data

Let’s see a simple example of using declared Enum variables. Declare Enum group name as “Department” and add department’s names as the group member.

Code:

Enum Mobiles Finance = 150000 HR = 218000 Sales = 458500 Marketing = 718500 End Enum Sub Enum_Example1() End Sub

I have declared each department’s salary numbers in front of them.

Now we will store the values of these numbers to excel sheet. Before applying the code, create a table like below.

Now go back to the basic visual editor and refer the cell B2 by using the RANGE object.

Code:

Sub Enum_Example1() Range("B2").Value = 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 named “Finance.”

Code:

Sub Enum_Example1 () Intervalo ("B2"). Valor = Departamento.Finanças End Sub

Da mesma forma, para todas as outras células, selecione os respectivos nomes de departamento.

Código:

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