VBA各セル範囲の書式でパーセントとして

Question

私はこれを見回してきましたが、それはとてもシンプルなようですが、それを動作させることはできません。

私はテーブルを持っており、1つの列をパーセントでフォーマットする必要があります。以下は私のコードですが、セルを書式設定するのではなく、10進数のままにしておきます。

cellは、範囲として宣言されていますが、実際にはセルの値なので、その範囲を参照する方法はわかりません。

私のreturnRebate変数は範囲として宣言され、ループは正しい範囲でループしています。

コード：

Dim cell As Range, p As Double 
For Each cell In returnRebate 
    p = cell.Value 

    If p <> 0 And p > 1 Then 
     p = p * 0.01 
     cell.Value = p 
     cell.NumberFormat = "Percent" 'Not formatting here 
    ElseIf p < 1 And p > 0 Then 
     'do nothing to it 
    Else 
     cell.Value = vbNullString 
    End If 
Next 

Answer 1

が.NumberFormat="0.00%"