通貨記号

数値の先頭に通貨記号などを付けて表示したい場合には例えば「¥ #,##0」などのように普通の文字列を書式設定用の文字と並んで記述します。

Range("A4").NumberFormatLocal = "¥ #,##0"
Range("A4").NumberFormatLocal = "$ #,##0"

文字列は何でも指定可能ですが、書式として意味を持つ文字を使う場合(例えば#やYなど)にはダブルクオーテーションで囲んで記述します。

Range("A4").NumberFormatLocal = "#,##0 ""en"""

※ダブルクオーテーションで囲まれた中でダブルクオーテーションを記述する場合は、ダブルクオーテーションを2つ重ねて記述します。よって"en"は""en""になります。

また全角文字を記述する場合もダブルクオーテーションで囲んで記述します。(ダブルクオーテーションで囲まなくてもエラーにはなりませんが、正確には囲んでおいたほうがいいようです)。

Range("A4").NumberFormatLocal = "#,##0 ""円"""

サンプルプログラム

では簡単なサンプルで試してみましょう。

testcellformat5.bas

Sub テスト()
    
    Range("A1:A4").Value = 123456
    Range("A1").NumberFormatLocal = "$ #,##0"
    Range("A2").NumberFormatLocal = "¥ #,##0"
    Range("A3").NumberFormatLocal = "#,##0""円"""
    Range("A4").NumberFormatLocal = "#,##0""en"""
    
End Sub

上記マクロを実行すると次のようになります。

OfficePro