ALTERAR MOEDA NO EXCEL
boas
tenho uma listagem com os cheques recebidos, precisava de alterar as celulas de € euro para $ dolar para £ Libra e para franco suiço CHF . Alguem sabem como faço isto.
RPAGRE.Cells(actselreg, 8).NumberFormat = [Ô]#,##0.00[Ô] & [Ô] €[Ô]
RPAGRE.Cells(actselreg, 8).NumberFormat = [Ô]#,##0.00[Ô] & [Ô] $[Ô]
RPAGRE.Cells(actselreg, 8).NumberFormat = [Ô]#,##0.00[Ô] & [Ô] £[Ô]
RPAGRE.Cells(actselreg, 8).NumberFormat = [Ô]#,##0.00[Ô] & [Ô] CHF[Ô]
abraço
tenho uma listagem com os cheques recebidos, precisava de alterar as celulas de € euro para $ dolar para £ Libra e para franco suiço CHF . Alguem sabem como faço isto.
RPAGRE.Cells(actselreg, 8).NumberFormat = [Ô]#,##0.00[Ô] & [Ô] €[Ô]
RPAGRE.Cells(actselreg, 8).NumberFormat = [Ô]#,##0.00[Ô] & [Ô] $[Ô]
RPAGRE.Cells(actselreg, 8).NumberFormat = [Ô]#,##0.00[Ô] & [Ô] £[Ô]
RPAGRE.Cells(actselreg, 8).NumberFormat = [Ô]#,##0.00[Ô] & [Ô] CHF[Ô]
abraço
Bom dia, Carlos.
A moeda é guardada na propriedade [Ô]NumberFormat[Ô] de duas formas: através do sÃmbolo e de um código. Para alterá-la, basta alterar essa propriedade:
A moeda é guardada na propriedade [Ô]NumberFormat[Ô] de duas formas: através do sÃmbolo e de um código. Para alterá-la, basta alterar essa propriedade:
[ô]De Real para Dolar
Plan1.Cells(1, 1).NumberFormat = Replace(Plan1.Cells(1, 1).NumberFormat, [Ô]416[Ô], [Ô]409[Ô])
Plan1.Cells(1, 1).NumberFormat = Replace(Plan1.Cells(1, 1).NumberFormat, [Ô]R$[Ô], [Ô]$[Ô])
[ô]
[ô]De Dolar para Real
Plan1.Cells(2, 1).NumberFormat = Replace(Plan1.Cells(1, 1).NumberFormat, [Ô]409[Ô], [Ô]416[Ô])
Plan1.Cells(2, 1).NumberFormat = Replace(Plan1.Cells(1, 1).NumberFormat, [Ô]$$[Ô], [Ô]$R$[Ô])
Faça seu login para responder