none
Excel - formatar moeda com variavel RRS feed

  • Pergunta

  • Ola

    tenho uma tabela que o usurário escolhe a moeda(dólar, euro e real) gostaria que apos a escolha algumas células mudem o  formato contabil para a moeda escolhida.

    Obrigado

    Marcelo

    sexta-feira, 18 de julho de 2014 23:06

Todas as Respostas

  • Olá Marcelo.

    Pelo que entendi, é só criar alguns If's ou Select Case, para analisar a opção escolhida e então alterar o formato de número para a moeda correta.

    Para saber como é o formato de número destas moedas, é só gravar uma macro alterando estes formatos e ver qual o código gerado.

    Para que mudem o formato após escolhida a moeda, você terá que configurar o código acima no evento change da planilha correspondente.

    Att. Michel Macário

    sábado, 19 de julho de 2014 01:01
  • Além de alterar o formato de exibição da moeda, você deseja que seja feita também uma conversão do valor da moeda?

    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    segunda-feira, 21 de julho de 2014 21:30
    Moderador
  • Private Sub Worksheet_Change(ByVal Target As Range)
    
    Dim formatoReal, formatoEuro, formatoDolar As String
    
    
    
    If Sheets(1).Range("A1") = "Real" Then
    
    formatoReal = Format(Sheets(1).Range("B1").Value, "currency")
    
    Sheets(1).Range("B1") = formatoReal
    
    
    ElseIf Sheets(1).Range("A1") = "Dólar" Then
    
    formatoDolar = Format(Sheets(1).Range("B1").Value, "$#,##0.00")
    
    Sheets(1).Range("B1") = formatoDolar
    
    Else
    
    formatoEuro = Format(Sheets(1).Range("B1").Value, "##,####.00 €")
    
    Sheets(1).Range("B1") = formatoEuro
    
    End If
    
    End Sub

    terça-feira, 22 de julho de 2014 01:45