【VBA】セルの表示形式を「マイナス値を赤、桁区切りカンマつき」へ変更する

例えば以下の表の列「売上」の、

表示形式を指定していない場合は「標準」のため、普通に表示されている
表示形式を指定していない場合は「標準」のため、普通に表示されている

表示形式を
 ・マイナス値を赤
 ・桁区切りカンマつき
へ変更できます!

表示形式を「マイナス値を赤、桁区切りカンマつき」へ変更した
表示形式を「マイナス値を赤、桁区切りカンマつき」へ変更した
PR

VBAコード

ここでは例として、
 ・シート「sample」の列「売上(=3列目)」の
 ・表示形式を「マイナス値を赤、桁区切りカンマつき」へ
変更します。

実行前
実行前
Option Explicit

Sub sample()

    '列「売上」
    Const SALSE_COLUMN As Integer = "3"
    
    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, SALSE_COLUMN)
    
    '表示形式を「マイナス値を赤、桁区切りカンマつき」へ変更
    Range(startRange, endRange).NumberFormatLocal = "#,##0; [赤]-#,##0"

End Sub

「Rangeオブジェクト」の「NumberFormatLocal」プロパティに
「#,##0; [赤]-#,##0」を指定することで、表示形式を
「マイナス値を赤、桁区切りカンマつき」へ変更できます。

PR

実行結果

セルの表示形式をマイナス値を赤、桁区切りカンマつきへ変更できました。

実行結果
実行結果
PR

参考①

上記のVBAコードで使用した以下の詳細については、公式サイトをご確認ください。

●「Rangeオブジェクト」の「NumberFormatLocal」プロパティ

PR

参考②

セルの表示形式を「円マーク付き、桁区切りカンマつき」へ変更するサンプルコードもあります。

表示形式を「円マーク付き、桁区切りカンマつき」へ変更
表示形式を「円マーク付き、桁桁区切りカンマつき」へ変更


詳細は以下の記事をご確認ください。

タイトルとURLをコピーしました