Home » Excel VBA Rangeオブジェクト » 表示形式 » Excel VBAで表示形式を設定する－Range.NumberFormatLocal

Excel VBAで表示形式を設定する－Range.NumberFormatLocal

対象：Excel2003, Excel2007, Excel2010, Excel2013

「excel2007 vba 通貨型のマイナスの時の書式に()が勝手に付く」
という検索で、このサイト『インストラクターのネタ帳』へのアクセスがありました。

例えば、

Sub sample()
　Dim var As Currency
　var = -10000
　ActiveCell.Value = var
End Sub

というマクロを実行したときに、アクティブセルが、

　(\10,000)

といった書式になってしまった原因と解決方法を探している方でしょう。

［スポンサードリンク］

表示形式を設定するサンプルマクロ

書式を指定したいのであれば、コードの中で、値の代入だけではなく、書式設定も行いましょう。

Sub 数値の書式設定を行う例()
　Dim var As Currency
　var = -10000
　ActiveCell.NumberFormatLocal = "\#,##0;[赤]\-#,##0"
　ActiveCell.Value = var
End Sub

Rangeオブジェクトの、NumberFormatLocalプロパティを使うと、数値の書式設定を行うことができます。

上記の「"\#,##0;[赤]\-#,##0"」が、数値をどう表示するのかを指定しています。

［セルの書式設定］ダイアログ－［表示形式］でユーザー定義書式を設定するのと同じ記号を使って指定をします。

「;」の前の「\#,##0」がプラス・正の数値とゼロの書式、
「;」の後の「[赤]\-#,##0」がマイナス・負の数値の書式です。

「\」（円マーク）と「,」（桁区切りカンマ）を入れるようにして、マイナス・負の数値の場合には「-」（マイナス符号）を円マークの後に入れて、赤色で表示することを指定しています。

最終更新日時：2023-07-18 16:42

［スポンサードリンク］

Home » Excel VBA Rangeオブジェクト » 表示形式 » Excel VBAで表示形式を設定する－Range.NumberFormatLocal

『インストラクターのネタ帳』では、2003年10月から平日のほぼ毎日、Microsoft Officeの使い方などを紹介し続けています。
図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓

Excel VBAユーザーを対象とした、Word VBAの入門書をキンドル本として出しました↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本です↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

上記の『Excel VBAユーザーのためのPythonプログラミング』の元になったキンドル本です↓↓

3年前(2021年4月)の
人気記事

「表示形式」の記事一覧