Sub 金額表示にする()

    Range("A1").Style = "Currency [0]"

End Sub