【Excel】数値をパーセント書式設定するマクロ

FormatPercent関数で数値をパーセント書式設定することができます。

例

1 2 3 4 5

Sub GetFormatPercent()       MsgBox FormatPercent(0.12)       End Sub

第２引数以下の引数を省略すると、省略した引数の設定にはシステムの地域の設定が使用されます。

実行結果

表示する小数点以下の桁数を指定

第２引数に少数の桁数を指定できます。数値は四捨五入されるようです。

1 2 3 4 5

Sub GetFormatPercent()       MsgBox FormatPercent(2 / 3, 2)       End Sub

実行結果

小数値に先行ゼロを表示するかどうかの指定

第３引数で小数値に先行ゼロを表示させるかどうかを指定できます。

1 2 3 4 5

Sub GetFormatPercent()       MsgBox FormatPercent(0.005, 1, vbTrue)       End Sub

Trueを指定した場合。

実行結果

1 2 3 4 5

Sub GetFormatPercent()       MsgBox FormatPercent(0.005, 1, vbFalse)       End Sub

Falseを指定した場合。

実行結果

負の値をカッコで囲むかどうかの指定

第４引数で負の値をカッコで囲むかの指定ができます。

1 2 3 4 5

Sub GetFormatPercent()       MsgBox FormatPercent(-0.1, 0, vbTrue, vbTrue)   End Sub

Trueを指定。

実行結果

カッコで囲まれた形で表示されます。

区切り記号の表示

第５引数で桁の区切り記号を表示させるかどうかの指定が出来ます。

1 2 3 4 5

Sub GetFormatPercent()       MsgBox FormatPercent(10, -1, vbTrue, vbTrue, vbFalse)   End Sub

Falseを指定。

実行結果

カンマが無い状態で表示されます。


＜参考サイト＞
FormatPercent 関数 | Office VBA 言語リファレンス

スポンサーリンク

https://hosopro.blogspot.com/2017/07/excel-vba-formatpercent.html 【Excel】数値をパーセント書式設定するマクロ