2017年7月27日

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

2017年7月27日 (木) 21:33 in ,


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

例

Sub GetFormatPercent()

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

実行結果



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

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

    MsgBox FormatPercent(2 / 3, 2)
    
End Sub

実行結果



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

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

    MsgBox FormatPercent(0.005, 1, vbTrue)
    
End Sub
Trueを指定した場合。

実行結果


Sub GetFormatPercent()

    MsgBox FormatPercent(0.005, 1, vbFalse)
    
End Sub
Falseを指定した場合。

実行結果



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

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

    MsgBox FormatPercent(-0.1, 0, vbTrue, vbTrue)

End Sub
Trueを指定。

実行結果

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


区切り記号の表示

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

    MsgBox FormatPercent(10, -1, vbTrue, vbTrue, vbFalse)

End Sub
Falseを指定。

実行結果

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


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



スポンサーリンク