Excel - formatar moeda com variavel

Question

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

Answer 1

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

Answer 2

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

Answer 3

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