Abaixo, veremos um programa em Excel VBA que cria um formulário de usuário que convertidos qualquer quantia de um moeda em outro.
O formulário de usuário que vamos criar tem a seguinte aparência:
Para criar este formulário de usuário, execute as seguintes etapas.
1. Abra o Editor do Visual Basic. Se o Project Explorer não estiver visível, clique em View, Project Explorer.
2. Clique em Inserir, Formulário do usuário. Se a caixa de ferramentas não aparecer automaticamente, clique em Exibir, Caixa de ferramentas. Sua tela deve ser configurada conforme abaixo.
3. Adicione os rótulos, caixas de listagem (primeiro à esquerda, a segunda à direita), caixas de texto (primeiro à esquerda, a segunda à direita) e botão de comando. Depois de concluído, o resultado deve ser consistente com a imagem do formulário do usuário mostrada anteriormente. Por exemplo, crie um controle de caixa de listagem clicando em ListBox na caixa de ferramentas. Em seguida, você pode arrastar uma caixa de listagem no formulário do usuário.
4. Você pode alterar os nomes e as legendas dos controles. Os nomes são usados no código VBA do Excel. As legendas são aquelas que aparecem na tela. É uma boa prática alterar os nomes dos controles, mas não é necessário aqui porque temos apenas alguns controles neste exemplo. Para alterar a legenda do formulário do usuário, botão de comando e rótulos, clique em Exibir, Janela de propriedades e clique em cada controle.
5. Para mostrar o formulário de usuário, coloque um botão de comando em sua planilha e adicione a seguinte linha de código:
Private Sub CommandButton1_Click ()
UserForm1.Show
End Sub
Agora vamos criar o Sub UserForm_Initialize. Quando você usa o método Show para o formulário do usuário, este sub será executado automaticamente.
6. Abra o Editor do Visual Basic.
7. No Project Explorer, clique com o botão direito do mouse em UserForm1 e clique em View Code.
8. Escolha Userform na lista suspensa à esquerda. Escolha Inicializar na lista suspensa à direita.
9. Adicione as seguintes linhas de código:
Sub UserForm_Initialize privado ()
Com ListBox1
.AddItem "Euro"
.Adicionar item "Dólar americano"
.Adicionar o item "Libra esterlina"
Terminar com
Com ListBox2
.AddItem "Euro"
.Adicionar item "Dólar americano"
.Adicionar item "Libra esterlina"
Terminar com
ListBox1.ListIndex = 1
ListBox2.ListIndex = 0
TextBox1.Value = 1
TextBox2.Value = 0.722152
End Sub
Explicação: primeiro, as duas caixas de lista são preenchidas. A seguir, a moeda dólar americano é definida como padrão na primeira caixa de listagem e a moeda EURO é definida como padrão na segunda caixa de listagem. Finalmente, o valor 1 é inserido na primeira caixa de texto e o valor 0,722152 é inserido na segunda caixa de texto.
Agora criamos a primeira parte do formulário de usuário. Embora já pareça legal, nada acontecerá ainda quando clicarmos no botão Ir.
10. No Project Explorer, clique duas vezes em UserForm1.
11. Clique duas vezes no botão Ir.
12. Adicione as seguintes linhas de código:
Private Sub CommandButton1_Click ()
Taxas de dimerização (0 a 2, 0 a 2) como duplo, i como inteiro, j como inteiro
taxas (0, 0) = 1
taxas (0, 1) = 1,38475
taxas (0, 2) = 0,87452
taxas (1, 0) = 0,722152
taxas (1, 1) = 1
taxas (1, 2) = 0,63161
taxas (2, 0) = 1,143484
taxas (2, 1) = 1,583255
taxas (2, 2) = 1
Para i = 0 a 2
Para j = 0 a 2
If ListBox1.ListIndex = i And ListBox2.ListIndex = j Then TextBox2.Value = TextBox1.Value * taxas (i, j)
Próximo j
Proximo eu
End Sub
Explicação: primeiro, declaramos um array. A matriz tem duas dimensões. Consiste em 3 linhas e 3 colunas. Em seguida, inicializamos cada elemento do array. Por exemplo, taxas (1,0) é a taxa de câmbio do dólar americano para o EURO. Em seguida, iniciamos um loop duplo. Dependendo das moedas selecionadas nas caixas de listagem, o Excel VBA converte o valor inserido na primeira caixa de texto e exibe o resultado na segunda caixa de texto.
Exemplo: se i = 2 ej = 1 e inserirmos o valor 2 na primeira caixa de texto, o Excel VBA coloca o valor 2 * taxas (2,1) = 2 * 1,583255 = 3,16651 na segunda caixa de texto.
13. Teste o formulário do usuário.
Resultado:
