Saberexcel - o site de quem precisa aprender Microsoft Excel VBA

Essas fórmulas do Aplicativo Microsoft Excel, faz a conversão de moedas, reais para dolares e euros, a pedido de nossa aluna Marta/Recife.
é um exemplo muito simples com uso do objeto checkbox do Barra de Ferramenta 'Formulário' do aplicativo Excel.


Prezado Senhor Marcondes,
preciso fazer uma planilha simples com fórmulas que retorna valores convertidos
de um determinado produto de reais em dolares e euros.
Caso o senhor tenha algum exemplo.

Prezada Marta,
Fiz um exemplo simples como você pediu, com usando os nomes de nossos produtos,
didáticos saberexcel. Quando selecionar um checkbox as fórmulas mostrará em uma segunda tabela,o produto adquirido e a soma os valores em dolares, euros e reais, somando seus valores.
Espero que o exemplo possa lhe ser útil - Fique com Deus, E_Marcondes.





Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel




Publicidade
Compre com segurança, garantia e ótimos preços

Saberexcel - o site de quem precisa aprender Macros Microsoft Excel VBA

Essa macros do Aplicativo Microsoft Excel VBA (Visual Basic Application) contém intrução for each next converte os valores de reais em euros,
e retorna uma mensagem do valor da conversão referente a um programa de treinamento Curso Completo Microsoft Excel VBA.

Esse exemplo faz parte do MODULO treinamento com loops - 100 Planilhas com loops
TREINAMENTOS COM LOOPS - ESCOLA SABEREXCEL VBA ESTUDOS - TREINAMENTOS COM MACROS FÓRMULAS E FUNÇÕES.
100 PLANILHAS COM EXERCÍCIOS LOOPS - \ While...Wend \ Do...While...Loop \ Do...Loop...While \ Do...until..Loop \ Do...Loop...until \ For...Next\ For...Each...Next

Sub Converter_reais_em_Euro()
[f2].Select
Set Area = Selection 'Plan1.[f2]

For Each Cell In Area
sbx = Round(Cell / [F1].Value, 3)
Cell.Offset(1, 0).Value = sbx
Cell.NumberFormat = "#,##0.00"
Next Cell

MsgBox ("Valor do Curso Completo Microsoft Excel") & vbCrLf & _
"Escola Saberexcel VBA Estudos - Treinamento Macros, " & _
"são: [ " & Format([f3].Value, "##,####.00" & "€ ] "), vbInformation, "Saberexcel - o site das macros"
[B1].Select
End Sub

Sub Converter_reais_em_Euro_1()
[vl].Select 'celulas renomeadas como (vl)
Saber2.[g1].Value = Saber2.[ve].Value
Set Area = Selection 'Plan1.[f2]

'fazendo um loop por toda as células selecionadas(vl)
For Each Cell In Area
sbx = Round(Cell / [g1].Value, 3)
Cell.Offset(0, 2).Value = sbx 'deslocando duas colunas à direita
Cell.NumberFormat = "$ #,##0.00"
Next Cell

'somando valores usando Função de planilha WorksheetFunction(Soma)
'temos 340 planihas exercícios com WorksheetFunctions(VBA) uma para cada função do excel
Saber2.Range("g1") = Application.WorksheetFunction.Sum(Saber2.Range("ve"))
Saber2.Range("g2") = Application.WorksheetFunction.Sum(Saber2.Range("vle"))
Saber2.Range("g3") = Application.WorksheetFunction.Sum(Saber2.Range("vl"))

'mensagem concatenando os valores
MsgBox ("Valores em reais convertidos em Euros") & vbCrLf & _
"Escola Saberexcel VBA Estudos - Treinamento Macros, " & _
"são: [ " & Format([g2].Value, "##,####.00" & "€ ] "), vbInformation, "Saberexcel - o site das macros"
[B1].Select
End Sub

Sub limpar_teste()
[g1,g2,g3,vle].ClearContents
End Sub



Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.

Saberexcel - o site das macros
Essa macro do Aplicativo Microsoft Excel VBA, converte moedas estrangeiras (Dolar,Euro,Libra,Franco) para o Real, também faz uma uma formatação personalizada para as moedas como pode ser verificado na macro abaixo. Os valores são fictícios e tem somente finalidade didática.
VALORES FICTICIOS - COM FINALIDADE DIDÁTICA.

Sub conversao_moedas()
'formatação personalizada da moeda.
dolar = "#,##0.00 [$$-1]_-;[Red]#,##0.00 [$$-1]_-"
euro = "#,##0.00 [$€-1]_-;[Red]#,##0.00 [$€-1]_-"
libra = "#,##0.00 [$£-1]_-;[Red]#,##0.00 [$£-1]_-"
franco = "#,##0.00 [$Fr-1]_-;[Red]#,##0.00 [$Fr-1]_-"

On Error Resume Next
If [A1].Value = 1 Then
[E8].Value = Round([C8].Value / [D8].Value, 2)
[E8].NumberFormat = dolar

ElseIf [A1].Value = 2 Then
[E8].Value = Round([C8].Value / [D8].Value, 2)
[E8].NumberFormat = euro

ElseIf [A1].Value = 3 Then
[E8].Value = Round([C8].Value / [D8].Value, 2)
[E8].NumberFormat = libra

ElseIf [A1].Value = 4 Then
[E8].Value = Round([C8].Value / [D8].Value, 2)
[E8].NumberFormat = franco
End If

End Sub



Aprenda tudo sobre o Aplicativo Microsoft Excel VBA SaberExcel