![](https://excel-vba.work/wp-content/themes/cocoon-master/images/b-woman.png)
例えば以下の表の列「売上」の、
![表示形式を指定していない場合は「標準」のため、普通に表示されている](https://excel-vba.work/wp-content/uploads/2021/04/vba_NumberFormatLocal_money_001.png)
![](https://excel-vba.work/wp-content/themes/cocoon-master/images/b-woman.png)
表示形式を
・円マーク付き
・3桁カンマ区切り
へ変更できます!
![表示形式を「円マーク付き、3桁カンマ区切り」へ変更した](https://excel-vba.work/wp-content/uploads/2021/04/vba_NumberFormatLocal_money_003.png)
VBAコード
ここでは例として、
・シート「sample」の列「売上(=3列目)」の
・表示形式を「円マーク付き、3桁カンマ区切り」へ
変更します。
![実行前](https://excel-vba.work/wp-content/uploads/2021/04/vba_NumberFormatLocal_money_001.png)
Option Explicit
Sub sample()
Dim startRange As Range
Dim endRow As Double
Dim endRange As Range
'開始セルを取得
Set startRange = Worksheets("sample").Range("C3")
'最終行を取得
endRow = startRange.End(xlDown).Row
'最終セルを取得
Set endRange = Worksheets("sample").Cells(endRow, startRange.Column)
'表示形式を「円マーク付き、3桁カンマ区切り」にする
Range(startRange, endRange).NumberFormatLocal = "\#,##"
End Sub
実行結果
セルの表示形式を「円マーク付き、桁記号付き」へ変更できました。
![実行結果](https://excel-vba.work/wp-content/uploads/2021/04/vba_NumberFormatLocal_money_003.png)
参考
上記のVBAコードで使用した以下の詳細は、公式サイトをご確認ください。
●「Rangeオブジェクト」の「NumberFormatLocal」プロパティ