VBA FormatPercent関数数値を%型式の文字列に変換

記事内には広告が含まれます

2026年4月22日

Excel VBAの「FormatPercent 関数」について解説します。

FormatPercent 関数とは

Excel VBA の FormatPercent 関数は、数値をパーセント (末尾に%記号付加) 型式の文字列に変換します。

VBAで計算結果を「50%」のように表示したいのに、単純な計算のままでは「0.5」という数値になってしまいます。そんな時に便利なのが FormatPercent 関数です。割合や達成率などを扱う場面では頻繁に登場するため、正しい使い方を理解しておきましょう。

この記事では、FormatPercent 関数の構文や実際の使い方について、サンプルコードを使ってわかりやすく解説していきます。

FormatPercent 関数(Visual Basic for Applications リファレンス)

構文（引数と戻り値）

Excel VBAの関数を使いこなすには、関数の構文を正しく理解しておくことが重要です。

構文

FormatPercent(Expression, [NumDigitsAfterDecimal], [IncludeLeadingDigit], [UseParensForNegativeNumbers], [GroupDigits])

引数

指定項目	説明
*Expression*	【必須】書式を設定する数値 (式)
NumDigitsAfterDecimal	【省略可】小数点以下の桁数を指定
IncludeLeadingDigit	【省略可】1未満の値で小数点前の「0」を表示するか
UseParensForNegativeNumbers	【省略可】負の数を ( ) で囲むか
GroupDigits	【省略可】桁区切り（カンマ）を入れるか

省略時の表示形式はコンピューターの地域の設定(ロケール)に依存します。
引数 IncludeLeadingDigit、UseParensForNegativeNumbers、および GroupDigits の設定は次のとおりです。

定数	値	説明
vbTrue	-1	True
vbFalse	0	False
vbUseDefault	-2	コンピューターの地域設定を使用

戻り値

戻り値の型は、文字列型 (String) です。

解説（使用例）

ここからは、使用例のサンプルを使って解説します。

FormatPercent 関数の基本的な使い方

FormatPercent 関数の省略可能な引数を省略した場合に表示される既定の表示形式を確認します。

'■FormatPercent関数サンプル01(デフォルトの表示)
Sub FormatPercent_Sample_01()
Dim exp As Double
    
'第1引数以外は省略した既定の％表示を確認
exp = 0.5
Debug.Print "桁区切りと小数以下の桁数を確認"
Debug.Print "FormatPercent(" & exp & ") = " & _
FormatPercent(exp)

exp = 0.0005
Debug.Print
Debug.Print "1未満の値の表示確認"
Debug.Print "FormatPercent(" & exp & ") = " & _
FormatPercent(exp)

exp = -0.5
Debug.Print
Debug.Print "負の数値の表示確認"
Debug.Print "FormatPercent(" & exp & ") = " & _
FormatPercent(exp)

End Sub

コード実行結果のイミディエイト画像がこちらです。

引数を省略した規定の値は、システムの地域設定に従ったデフォルトの値表示形式が次のように返されていることが確認できました。

小数以下の桁数は2桁
1未満の小数点前の「0」表示あり
負の数値の表示はマイナス「-」表示

引数を指定して表示を制御する例

次の例は、引数を設定して指定の表示形式で出力させます。

'■FormatPercent関数サンプル02(引数で表示を制御する)
Sub FormatPercent_Sample_02()
Dim exp As Double
    
'引数設定で表示を制御します
exp = 0.5
Debug.Print "小数以下の桁数を制御(1桁にする)"
Debug.Print "FormatPercent(" & exp & ", 1, , , vbFalse) = " & _
FormatPercent(exp, 1, , , vbFalse)

exp = 0.0005
Debug.Print
Debug.Print "0未満で小数点前の「0」を表示しない"
Debug.Print "FormatPercent(" & exp & ", , vbFalse) = " & _
FormatPercent(exp, , vbFalse)

exp = -0.5
Debug.Print
Debug.Print "負の数を括弧( )で表示する"
Debug.Print "FormatPercent(" & exp & ", , , vbTrue) = " & _
FormatPercent(exp, , , vbTrue)

End Sub

コードを実行した結果が次のイミディエイト画像のとおりです。

引数を指定しない指定項目の部分は、デフォルトのままとするため空欄(省略)となっています。（空欄とせずすべて指定すれば地域が変更されても影響を受ることはありません）

vbFalse のように定数で指定していますが、値 (0) を指定しても同じです。

FormatPercent 関数の注意点

FormatPercent 関数には次のような注意点があります。

戻り値は文字列

FormatPercent 関数の戻り値は文字列 (String型) です。次の例をご覧ください。
セルの値を取得して、合計値に対する割合を計算してパーセンテージで指定セルに表示しています

'■FormatPercent関数サンプル03(セルのデータ操作)
Sub Sample_FormatPercent_03()
  Dim i As Long
  Dim exp As Double
    
  For i = 2 To 6
    exp = Cells(i, 2).Value / Cells(7, 2).Value
    Cells(i, 3).Value = FormatPercent(exp, 1)
  Next i
End Sub

このコードの実行結果(セルの画像) が次のとおりです。