Cách viết công thức R1C1 trong VBA excel

[phung13]

Em có một sub excel như sau ạ
cho em hỏi làm sao để mình gán công thức nó hiểu LR là một biến để nó lấy LR trừ 9 ạ?
em cảm ơn
Sub Macro3() Dim LR As Long LR = .Cells(.Rows.Count, "j").End(xlUp).Row Range("P9").FormulaR1C1 = "=SUMIF(RC[-6]:R[LR-9]C[-6],RC[-1],RC[-5]:R[LR-9]C[-5])" End Sub

 

[CHAOQUAY]

Em có một sub excel như sau ạ
cho em hỏi làm sao để mình gán công thức nó hiểu LR là một biến để nó lấy LR trừ 9 ạ?
em cảm ơn
Sub Macro3() Dim LR As Long LR = .Cells(.Rows.Count, "j").End(xlUp).Row Range("P9").FormulaR1C1 = "=SUMIF(RC[-6]:R[LR-9]C[-6],RC[-1],RC[-5]:R[LR-9]C[-5])" End Sub

Thử theo bên dưới.
Đại khái là: Nối từng chuỗi nhỏ với LR-9 vậy thôi
Range("P9").FormulaR1C1 = "=SUMIF(RC[-6]:R[" & LR-9 & "]C[-6],RC[-1],RC[-5]:R[" & LR-9 & "]C[-5])"

 

[phung13]

Thử theo bên dưới.
Đại khái là: Nối từng chuỗi nhỏ với LR-9 vậy thôi
Range("P9").FormulaR1C1 = "=SUMIF(RC[-6]:R[" & LR-9 & "]C[-6],RC[-1],RC[-5]:R[" & LR-9 & "]C[-5])"

mình làm được rồi> cám ơn nha