即効テクニック |
FormatPercent関数は、数値を100倍したパーセント単位の書式に変換し、パーセント記号(%)を最後につけた文字列を返します。各引数の内容はFormatCurrency関数とまったく同ものになりますので、そちらを参照してください。 構文 FormatPercent(Expression, NumDigitsAfterDecimal, IncludeLeadingDigit, UseParensForNegativeNumbers, GroupDigits) 設定項目 内容 Expression 変換の対象となる数値や数式を指定[省略不可] NumDigitsAfterDecimal 小数点以下に表示する桁数を指定[省略可能] IncludeLeadingDigit 小数点の左側のゼロを表示するかどうか[省略可能] UseParensForNegativeNumbers 負の値の場合に値を括弧で囲むかどうか[省略可能] GroupDigits 桁区切りを表示するかどうか[省略可能] 次のサンプルは、FormatPercent関数の機能はFormat関数の機能に含まれていることを示すものです。 ●サンプル●
Sub FormatPercentSamp1() Dim myStr1 As String, myStr2 As String '---Format関数で定義済み数値書式使用 myStr1 = Format(2.5, "Percent") '---FormatNumber関数 myStr2 = FormatPercent(2.5) MsgBox "定義済み数値書式 : " & myStr1 & Chr(13) & _ "FormatPercent関数 : " & myStr2 End Sub
Format関数の引数に"Percent"を指定すれば、FormatPercent関数と同じ実行結果が得られます。