[[20120323140929]]　『VBAで通貨単位をつける場合』（naga）　ページの最後に飛ぶ

『VBAで通貨単位をつける場合』（naga）

 表内の数字に自動に通貨単位をつけています。
 ここで、ウォンとユーロの通貨単位設定ができなかったので、英字表記していますが
 これを\のような通貨単位文字で表すことは可能でしょうか？
 WindowsXP,Excel2003使用です。

 Set fomRange = Range("H12:I74,M12:M74,O12:O74")
 Select Case Target.Value

 Case "1US$＝"
 fomRange.NumberFormatLocal = "_-""US$""* #,###.00_ ;_-""US$""* -#,###.00 ;_-""US$""* ""-""??_ ;_-@_ "

 Case "1NT$＝"
 fomRange.NumberFormatLocal = "_-""NT$""* #,##0_ ;_-""NT$""* -#,##0 ;_-""NT$""* ""-""??_ ;_-@_ "

 Case "1EUR＝"
 fomRange.NumberFormatLocal = "_-""EUR""* #,##0_ ;_-""EUR""* -#,##0 ;_-""EUR""* ""-""??_ ;_-@_ "

 Case "1W＝"
 fomRange.NumberFormatLocal = "_-""W""* #,##0_ ;_-""W""* -#,##0 ;_-""W""* ""-""??_ ;_-@_ "

 Case "1CN\＝"
 fomRange.NumberFormatLocal = "_-""CN\""* #,##0_ ;_-""CN\""* -#,##0 ;_-""CN\""* ""-""??_ ;_-@_ "

 Case "1ILS＝"
 fomRange.NumberFormatLocal = "_-""ILS""* #,##0_ ;_-""ILS""* -#,##0 ;_-""ILS""* ""-""??_ ;_-@_ "

 Case Else
 fomRange.NumberFormatLocal = "_-""""* #,##0_ ;_-""""* -#,##0 ;_-""""* ""-""??_ ;_-@_ "

 End Select

 ここまで出来ていて、一体なにが分からないのですか？

 もう少し、回答者に分かるようにご説明ください。

 (半平太) 2012/03/23 16:45

 失礼しました。m(__)m

 バージョン2003に該当する通貨文字が存在しない、と云うことですか？

 うーん、私は門外漢ですね。
 無責任なアイデアですが・・・、
 　ご自分で外字エディタで作成して、ご提示のプロシージャに貼り付けたらいかがでしょうか？
 こちらの環境でテストした限りでは、問題なく表示されましたけど。
 （当然のことですが、自分のPCでしか表示されません）

 (半平太) 2012/03/23 17:40

 書式のコピーでは設定出来るので
 どこかに「対応表」みたいな顔の表を作っておいて
 そこからコピーさせるのはどうですか？

 (HANA)

半平太さん
HANAさん

確認が遅れまして申し訳ございませんでした。

この書式は、社外のスタッフ用に配信する予定なので、
外字登録では無理ですね…
対応表、試してみたいと思います。

ありがとうございました。

（naga）

コメント返信：