Vba: セルをパーセンテージとして書式設定する方法

VBA で次の基本構文を使用すると、範囲内の各セルをパーセンテージとして書式設定できます。

 SubFormatPercent ()
    Dim i As Integer

    For i = 2 To 11
    Range(" A " & i).NumberFormat = " 0.00% "
    Next i
    
End Sub

この特定の例では、範囲A2:A11の各セルを小数点以下 2 桁のパーセンテージ値として書式設定します。

次の例は、この構文を実際に使用する方法を示しています。

例: VBA を使用してセルをパーセンテージとして書式設定する

Excel に次の値のリストがあるとします。

各値をパーセンテージとしてフォーマットしたいとします。

例えば：

• 0.22 は 22% としてフォーマットする必要があります。
• 0.35 は 35% としてフォーマットされる必要があります。

等々。

これを行うには、次のマクロを作成できます。

 SubFormatPercent ()
    Dim i As Integer

    For i = 2 To 11
    Range(" A " & i).NumberFormat = " 0.00% "
    Next i
    
End Sub

このマクロを実行すると、次の出力が表示されます。

各値は、小数点以下 2 桁のパーセンテージとしてフォーマットされるようになりました。

NumberFormatプロパティの小数点以下のゼロの数によって、各パーセンテージで表示する小数点以下の桁数が指定されることに注意してください。

次の構文を使用すると、各パーセンテージの小数点以下の桁を表示できません。

 SubFormatPercent ()
    Dim i As Integer

    For i = 2 To 11
    Range(" A " & i).NumberFormat = " 0% "
    Next i
    
End Sub

このマクロを実行すると、次の出力が表示されます。

各パーセント値から小数点以下の桁が削除されていることに注意してください。

注: VBA NumberFormatプロパティの完全なドキュメントはここにあります。

追加リソース

次のチュートリアルでは、VBA で他の一般的なタスクを実行する方法について説明します。

VBA: 複数の列でシートを並べ替える方法
VBA: 範囲内の行数をカウントする方法
VBA: 列をフィルタリングする方法