Hỏi về công thức RC trong VBA (1 người xem)

[gplantopia]

Xin chào anh chị

Khi chạy code này e bị lỗi Runetime Error 1004

Anh chị check giúp em xem nó bị sai chỗ nào với

Sub updatefp()
Dim i As Long,  rRng As Range
Set rRng = Sheet2.Range("A4:A10000")
For i = 4 To 44
With rRng.Offset(, i)
    .Value = "=sumif('Prod plan'!R1C2:R1000C2,RC(-i),'Prod plan'!R1C(i-1):R1000C(i-1)*RC3"
    .Value = .Value
End With
Next

End Sub

 

[quanluu]

Xin chào anh chị

Khi chạy code này e bị lỗi Runetime Error 1004

Anh chị check giúp em xem nó bị sai chỗ nào với

Sub updatefp()
Dim i As Long,  rRng As Range
Set rRng = Sheet2.Range("A4:A10000")
For i = 4 To 44
With rRng.Offset(, i)
    .Value = "=sumif('Prod plan'!R1C2:R1000C2,RC(-i),'Prod plan'!R1C(i-1):R1000C(i-1)*RC3"
    .Value = .Value
End With
Next

End Sub

Bạn gửi file lên nhé.

 

[gplantopia]

Mạng công ty mình block không cho upload file.

Mình có test thử thì hình như formula nó không cho biến vào thì phải.....

 

[quanluu]

Mạng công ty mình block không cho upload file.

Mình có test thử thì hình như formula nó không cho biến vào thì phải.....

Khi có biến thì bạn phải tách riêng ra chứ. Thử tn xem
"=sumif('Prod plan'!R1C2:R1000C2,RC(-" & i & "),'Prod plan'!R1C(" & i-1 & "):R1000C(" & i-1 & ")*RC3"

 

[gplantopia]

hic vẫn bị sai, có lẽ không dung được vòng lặp rồi

 

[quanluu]

hic vẫn bị sai, có lẽ không dung được vòng lặp rồi

Bạn gửi file thì mới rõ đc bệnh, Để test, bạn thay .value bằng .formulaR1C1( ko cx lắm) sau khi chậy code, các ô sẽ fill ct, và bạn coi ct đó đã đúng chưa.

 

[gplantopia]

ah được rồi, phải thay ngoặc tròn "(" bang ngoặc vuông "[" là được.

Cảm ơn bạn nha