Detalhes de Excel planilha vba converte moeda euros em reais

PropriedadeValor
Nome:Excel planilha vba converte moeda euros em reais
Descricao:

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.



Nome do arquivo:Excel planilha vba converte euros em reais .zip
Tamanho: Vazio
Tipo:zip (Tipo de Mime: application/zip)
Autor:Escola Saberexcel VBA Estudos®
Criado em: 15/10/2011 18:35
Visitas:Todos
Responsavel:Autor
Acessos:863 Acessos
Atualizado em: 15/10/2011 18:36
Site: