私は過去12ヶ月の値を平均し、現在の月の値(この場合はRC[-2]-RC[-1]
と30%の分散)と比較するExcel式を使用しようとしています。Excel VBA AVERAGE(可変範囲)
問題は、行が変更され、ループ内でネストされていることです。コードの下
:
Dim i As Long
Dim o As Double
Dim p As Double
'some code here
For i = 1 To n
Selection.Value = "=RC[-2]-RC[-1]"
o = ActiveCell.Value
p = Application.Formula.Average(Range("RC[-13]", "RC[-2]"))
If (o >= (p + p * 3/10)) Or (o < (p + p * 3/10)) Then
ActiveCell.Font.Color = vbRed
End If
ActiveCell.Offset(1, 0).Select
Next i
別の平均機能せず、その平均値を定義する方法上の任意のアイデアは?
他のコードを表示することができます。ここでは、ユーザーは 'Selection'、' ActiveCell'と 'Select'を使わずに答えを出すことを好むでしょう。 –
クイック返信ありがとう!実際にコードの残りの部分はありません。私が達成しようとしているのは2つの値を比較することです.1つは前の2つの列の値の差として設定され、もう1つは同じ行の最後の12の列の値です。 – CCM
それでは、最初にCellがActiveCellであることをお知らせください。 –