Tabela de Conversão de Moedas / Excel VBA

rmalencar · 19 de novembro de 2009

Gente....me ajudem..por favor!

Tô tentando fazer uma tabela de conversões de moeda no VBA/Excel..e é urgente..não consigo concluir...e fiz o comando abaixo, mas acho que tô fazendo errado...quando solicitam "valor a ser convertido" eu não sei o que colocar...ajudem-me , please..

Dim De As Integer

Dim Para As Integer

Private Sub CommandButton1_Click()

Dim valor As Double

Dim taxa As Double

Dim resultado As Double

valor = InputBox("Valor a ser convertido")

taxa = WorksheetFunction.Index(Range("B2:F6"), De, Para)

resultado = valor * taxa

MsgBox (resultado)

End Sub

'Estes são o radio buttons das opções De

'Botão US $

Private Sub OptionButton1_Click()

De = 1

End Sub

'Botão Yen

Private Sub OptionButton2_Click()

De = 2

End Sub

'Botão EURO

Private Sub OptionButton4_Click()

De = 3

End Sub

'Botão CAN

Private Sub OptionButton5_Click()

De = 4

End Sub

'Botão UK

Private Sub OptionButton6_Click()

De = 5

End Sub

'Estes são o radio buttons das opções Para

'Botão US $

Private Sub OptionButton7_Click()

De = 6

End Sub

'Botão Yen

Private Sub OptionButton8_Click()

De = 7

End Sub

'Botão EURO

Private Sub OptionButton9_Click()

De = 8

End Sub

'Botão CAN

Private Sub OptionButton10_Click()

De = 9

End Sub

'Botão UK

Private Sub OptionButton11_Click()

De = 10

End Sub

rmalencar · 19 de novembro de 2009

Gente...alguém sabe o que eu devo colocar na Tabela de Conversão VBA, quando solicitam o valor a ser convertido...por favor..precisop disso para ontem, é urgente,.!!

Valeu pessoal

Flavio Soares · 19 de novembro de 2009

Não entendi sua dúvida. Poste sua planilha para um melhor entendimento, assim fica mais fácil algum usuário lhe ajudar.

rmalencar · 19 de novembro de 2009

Alguém consegue me ajudar a fazer esse exercício?? Tô com muita dificuldade..>!!

Conversor de moedas

Vamos agora criar uma pequena calculadora para converter moedas. Para isso, copie a tabela de conversão a seguir para uma planilha vazia:

US $ ¥en Euro Can $ UK £

1 US $ 1,0000 119,2500 0,7972 1,1278 0,5339

1 ¥en 0,008382 1,0000 0,006681 0,009452 0,004475

1 Euro 1,2537 149,5400 1,0000 1,4143 0,6695

1 Can $ 0,8862 105,7100 0,7067 1,0000 0,4732

1 UK £ 1,8721 223,2700 1,4929 2,1115 1,0000

A ideia é oferecer 2 opções para a conversão (de / para) e também um valor, que será convertido (por exemplo: 100 de US $ para Can $ = 100 * 1,1278 = 112,78). Na figura abaixo, as listas de opções de/para são dadas na forma de conjuntos de botões de rádio. O Valor a ser convertido é dado via InputBox, e o resultado deve ser escrito em uma MsgBox, após clicar o botão Converter.

Inicialmente, você deve montar os conjuntos de botões de radio. Para que eles funcionem como dois conjuntos independentes de botões, cada elemento dos grupos de botões (grupo “De” e grupo “Para”), deve ter sua propriedade GroupName distinguindo os grupos. I.e., os botões do grupo “De” deve ter um mesmo GroupName e os do grupo “Para” deve ter outro GroupName. No exemplo abaixo, o botão selecionado está no grupo chamado Sheet3_1.

Montado o esquema da figura, resta fazer o código. Aqui, trabalharemos pela primeira vez com o conceito de variável global, que é um valor que pode ser acessado por qualquer procedimento dentro de um mesmo grupo de procedimentos. Criaremos duas variáveis globais: “De” e “Para”, para armazenarmos os tipos de moeda que se deseja converter, o que também indica a linha e a coluna na tabela de conversão que deveremos utilizar. Por exemplo, se selecionarmos “De US $”, a variável “De” assume valor 1, se selecionarmos “De Yen” ela receberá valor 2, assim por diante.

Para atribuir esses valores às variáveis globais, é preciso atuar no evento Click de cada um dos botões de radio. O trecho abaixo mostra como associar os botões “De” à variável global De. Repare que no início do código as variáveis globais estão definas fora dos procedimentos, de modo que elas podem ser acessadas por todos.

Na seqüência, você deve fazer o mesmo para os radio buttons do grupo Para, alterando a variável Para.

Finalmente, falta escrever o procedimento do botão Converter. Ele começa pedindo o valor a ser convertido por meio de uma InputBox. Depois, ele usa a função (WorksheetFunction) Index para pegar o valor certo na tabela de conversão. Finalmente, retorna o produto valor x taxa em uma MsgBox:

Private Sub CommandButton1_Click()

Dim valor As Double

Dim taxa As Double

Dim resultado As Double

valor = InputBox("Valor a ser convertido")

taxa = WorksheetFunction.Index(Range("B2:F6"), De, Para)

resultado = valor * taxa

MsgBox (resultado)

End Sub

Observe que as variáveis “valor”, “taxa” e “resultado” são declaradas como Double (número real). A variável “valor” é obtida via InputBox. A variável “taxa” é obtida com a função Index, onde se usa as variáveis globais “De” e “Para” (a tabela de conversão está nas células de B2 até F6 nesse caso). A variável “resultado”, por sua vez, é o produto (valor * taxa), e é escrito na MsgBox.

Teste sua função, alterando as seleções, os valores da tabela, etc.