the********

2013/2/23 22:30

11回答

VBAマクロで質問です。

VBAマクロで質問です。 VBAマクロで質問です。 A列に「通貨単位」の列があるとします。 USD(米国ドル) EUR(欧州ユーロ) KRW(韓国ウォン) などでリスト選択できるとする A1のUSD(米国ドル)のリスト選択されたら その行のB1～B5の通貨単位を$10.00と表示させたい A1でEUR(欧州ユーロ)のリスト選択されたら その行のB1～B5の通貨単位を€10.00と表示させたい A1でKRW(韓国ウォン)のリスト選択されたら その行のB1～B5の通貨単位を韓国通貨記号(ウォン)10.00と表示させたい どういうコードで実現できますか？ €、ウォンWのような記号が？になります

補足

Case "USD(米国ドル)" 通貨記号 = "$" でやってみましたところ、￥が表示されてしまいます。調べているものの、わからずにいます。

Office系ソフトウェア・1,283閲覧・xmlns="http://www.w3.org/2000/svg">25

ベストアンサー

このベストアンサーは投票で選ばれました

0

ID非公開

2013/2/24 1:40

一例です。シートモジュールに貼り付けてください。 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