Tìm Code cho hàm tính toán (1 người xem)

[hoahuongduong1986]

Dear Anh Chị/các bạn,
Em viết Code thay cho hàm tại cột G nhưng không được ạ. Code em sai gì ạ. Em mới bắt đầu A, B, C về cái VBA này nên còn kém lắm ạ. Em cảm ơn ạ.


Sub ct()
Sheet1.Select
With [G2:G1000]
.Value = "=IFERROR(IF(RC1-RC2-RC6<90,""X"",""),"")"
.Value = .Value
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

 

[tam888]

Dear Anh Chị/các bạn,
Em viết Code thay cho hàm tại cột G nhưng không được ạ. Code em sai gì ạ. Em mới bắt đầu A, B, C về cái VBA này nên còn kém lắm ạ. Em cảm ơn ạ.


Sub ct()
Sheet1.Select
With [G2:G1000]
.Value = "=IFERROR(IF(RC1-RC2-RC6<90,""X"",""),"")"
.Value = .Value
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

Tự ghi macro cho công thức của G2 (gõ công thức vào)--> xem macro đó, thì hiểu sai ở đâu

 

[leonguyenz]

Bạn mới tập viết thì nên tập ghi Marco.
Tập khai báo đầy đủ biến, đối số, thuộc tính, ....

Sub CongThuc()
    With Sheet1.Range("G2:G1000")
        .FormulaR1C1 = "=IFERROR(IF(RC[-6]-RC[-5]-RC[-1]<90,""X"",""""),"""")"
        .Value = .Value 'Bo dong nay neu can lay lai Cong thuc
    End With
End Sub

 

[hoahuongduong1986]

Bạn mới tập viết thì nên tập ghi Marco.
Tập khai báo đầy đủ biến, đối số, thuộc tính, ....

Sub CongThuc()
    With Sheet1.Range("G2:G1000")
        .FormulaR1C1 = "=IFERROR(IF(RC[-6]-RC[-5]-RC[-1]<90,""X"",""""),"""")"
        .Value = .Value 'Bo dong nay neu can lay lai Cong thuc
    End With
End Sub

Dạ vâng ạ. Em sẽ học tiếp ạ. Cảm ơn anh đã chỉ bảo em !

Bài đã được tự động gộp: 24/4/19

Tự ghi macro cho công thức của G2 (gõ công thức vào)--> xem macro đó, thì hiểu sai ở đâu

Dạ vâng ạ. Cảm ơn A nhiều ạ !