エクセル、VBAを使って指定セルの表示形式を変えたい

質問

「A1に、特定の文字を入力した時
　指定のセル（C1～C10）の表示形式を変えたいのです。」

（例）
　A1に特定の言葉を入れる。
”日本””アメリカ””中国””ベトナム”""

　指定したC1～C10の表示形式を各国のドメインを
　頭につけて表示するようにします。
”jp####””US####””CN####””VN####”"####"

一番下に、このようになると思うものを書いた意のですが、
思うように結果ができません。

問題としては、下記のように####の前に文字が来たら
結果が出ません。逆に####の後に文字を入れると結果は出ます。
####の前に文字を入れて表示させたいのですが、
そうするにはどうすればよいでしょうか。

NumberFormatLocal = "us####"

自分なりに組み立てたものの全体を下記します。
問題がお分かりの方、詳しい方よろしくお願いします。

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$A$1" Then

Select Case Target.Value

Case "日本"
Range("C1:C10").NumberFormatLocal = "jp####"

Case "アメリカ"
Range("C1:C10").NumberFormatLocal = "us####"

Case "中国"
Range("C1:C10").NumberFormatLocal = "cn####"

Case "ベトナム"
Range("C1:C10").NumberFormatLocal = "vn####"

Case ""
Range("C1:C10").NumberFormatLocal = "####"

End Select

End If

End Sub

スペックはWindows、
エクセル２００３

回答No.1

KenKen_SP · ベストアンサー

"jp####" というのが、意図不明です。一体どのように表示させたい
のでしょう？

とりあえず、文字列を表示したいならダブルクウォートで括りましょう。
VBA で設定する場合は、さらにエスケープといって、2重で括る必要が
あります。

Range("C1:C10").NumberFormatLocal = """jp""####"

こんな感じ。

お礼

""をつけて試したところうまくできました！
本当に助かりましたありがとうございます！

VBAというのを最近しったばかりなので
うまく説明できませんでしたが、意味を汲み取っていただき感謝します。

補足

A1に日本と入力した場合、
C1に、半角の数字を入力したら、
jpというのが頭につくようにしたいのです。

「表示例」
A1　　　　　C1　　　　A1　　　　　　C1
日本　　　jp001　　　アメリカ　　　us001
　　　　　　jp002　　　　　　　　　　　us002
　　　　　　jp003　　　　　　　　　　　us003

こんな風に、したいです。