Home Excel - Dicas Microsoft Excel VBA Excel VBA - Moedas Excel planilha vba converte euros em reais

Excel planilha vba converte euros em reais

E-mail Imprimir PDF

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.



 Baixe o exemplo de planilha contendo os macros acima

Última atualização em Sáb, 15 de Outubro de 2011 18:38  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

PROMOÇÃO DIDÁTICOS SABEREXCEL



Adquira já o Acesso Imediato
à Area de Membros

Compra Grantida --- Entrega Imediata

Aprenda Excel VBA com Simplicidade de 
códigos e Eficácia, Escrevendo Menos e
Fazendo Mais.

'-------------------------------------'
Entrega Imediata:
+  500 Video Aulas MS Excel VBA
+  35.000 Planilhas Excel e VBA
+  Coleção 25.000 Macros MS Excel VBA
+  141 Planilhas Instruções Loops
+  341 Planilhas WorksheetFunctions(VBA)
+    04 Módulos Como Fazer Excel VBA
+  Curso Completo MS Excel VBA
+  Planilhas Inteligentes


Pesquisa Google SaberExcel

Publicidade Google

<script type="text/javascript"><!--

google_ad_client = "ca-pub-2317234650173689";

/* retangulo 336 x 280 */

google_ad_slot = "0315083363";

google_ad_width = 336;

google_ad_height = 280;

//-->

</script>

<script type="text/javascript"

src="http://pagead2.googlesyndication.com/pagead/show_ads.js">

</script>

Publicidade

RSFirewallProtected


Google Associados

Depoimentos

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

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


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA