Đưa công thức vào vba

[VuVanHao]

Em muốn đưa công thức (Công thức ở ô A6 trong sheet "Dữ liệu"-File đính kèm) vào vba, vẫn dùng công thức của bác Bil thôi ạ. Nhưng em không biết sao cho nó chạy lần lượt các ô được. Do em học không bài bản, mong mọi người thông cảm ạ

 

[giaiphap]

Em muốn đưa công thức (Công thức ở ô A6 trong sheet "Dữ liệu"-File đính kèm) vào vba, vẫn dùng công thức của bác Bil thôi ạ. Nhưng em không biết sao cho nó chạy lần lượt các ô được. Do em học không bài bản, mong mọi người thông cảm ạ

Cái này chỉ việc ghi macro lại là sinh ra code thôi bạn.

 

[VuVanHao]

Cái này chỉ việc ghi macro lại là sinh ra code thôi bạn.

Dạ, em cám ơn.
Em muốn nó chỉ hiện kết quả trong cột A chứ không hiện công thức thì có cách nào không ạ?. Với lại có cách nào mà mình không cần nhấn nút mà nó vẫn cập nhật khi thêm dòng mới được không ạ?

 

[giaiphap]

Em muốn nó chỉ hiện kết quả trong cột A chứ không hiện công thức thì có cách nào không ạ?

Vậy bạn sửa code lại thế này.

Sub GPE()
    Dim Rng As Range
    Range("A6").FormulaR1C1 = "=IF(AND(RC[4]=R1C5,RC[2]>=R2C5,RC[2]<=R3C5),1+MAX(R5C1:R[-1]C),"""")"
    Set Rng = Range("A6:A" & Range("B65000").End(xlUp).Row)
    Range("A6").AutoFill Destination:=Rng
    Rng.Value = Rng.Value
End Sub

Với lại có cách nào mà mình không cần nhấn nút mà nó vẫn cập nhật khi thêm dòng mới được không ạ?

Cách thì có, nhưng làm như vậy nó sẽ làm cho bảng tính của bạn bị chậm nếu dữ liệu nhiều.

 

[VuVanHao]

Vậy bạn sửa code lại thế này.

Sub GPE()
    Dim Rng As Range
    Range("A6").FormulaR1C1 = "=IF(AND(RC[4]=R1C5,RC[2]>=R2C5,RC[2]<=R3C5),1+MAX(R5C1:R[-1]C),"""")"
    Set Rng = Range("A6:A" & Range("B65000").End(xlUp).Row)
    Range("A6").AutoFill Destination:=Rng
    Rng.Value = Rng.Value
End Sub

Cách thì có, nhưng làm như vậy nó sẽ làm cho bảng tính của bạn bị chậm nếu dữ liệu nhiều.

Vâng, em cũng thấy nó cứ nháy nháy nếu em đưa cái code ý vào sheet đó. Cám ơn anh