質問: VBAマクロで質問です。
回答: 一例です。シートモジュールに貼り付けてください。 Private Sub Worksheet_Change(ByVal Target As Range) Dim 通貨記号 As String If Not Intersect(Target, [A1]) Is Nothing Then Select Case [A1] Case "USD(米国ドル)" 通貨記号 = "$" Case "EUR(欧州ユーロ)" 通貨記号 = ChrW$(&H20AC) Case "KRW(韓国ウォン)" 通貨記号 = ChrW$(&H20A9) End Select [B1:B5].NumberFormat = 通貨記号 & " #,##0.00" End If End Sub