r1c1数式が機能しない

Question

列Jと列タイマーを使用して列Kに結果をランク付けしようとしています。列J & Kは値です。

どういうわけか、私のセルがポイントされているところでは1つの値しか生成しません。つまり、セルC19でvbaコードを実行すると、結果が欲しいN6からではなくC19に値1が設定されます。ここで

は

Sub test() 
Dim LR1 As Long 
LR1 = Range("J" & Rows.Count).End(xlUp).Row 
With Range("N6:N" & LR1) 
    ActiveCell.FormulaR1C1 = "=1+SUMPRODUCT(--(R6C10:R33C10<RC[-4]))+SUMPRODUCT(--(R6C11:R33C11<RC[-3]),--(R6C10:R33C10=RC[-4]))" 
End With 
End Sub 

は私が何が悪かったのかわからない、私のコードです。私は手動でエクセルの式とその正常に動作していますが、私のVBAコードを使用していませんでした。

Answer 1

ActiveCell問題があります。

変更 ActiveCell.FormulaR1C1 = "=1+SUMPRODUCT(--(R6C10:R33C10<RC[-4]))+SUMPRODUCT(--(R6C11:R33C11<RC[-3]),--(R6C10:R33C10=RC[-4]))"

.FormulaR1C1 = "=1+SUMPRODUCT(--(R6C10:R33C10<RC[-4]))+SUMPRODUCT(--(R6C11:R33C11<RC[-3]),--(R6C10:R33C10=RC[-4]))"

にそれを削除し、それはあなたが欲しいものを行う必要があります。

Range参照は、ActiveSheetに依存しない方法で完全修飾する必要があります。これにより、一貫した動作と結果が得られます。