Hỏi về tự động cập nhật dữ liệu của 1 cột khi bấm tổ hợp phím (1 người xem)

[khoa289]

Chào mọi người.
Đang chập chững VBA. Mình hỏi mọi người vấn đề này và nhơ mọi người trả lời giúp:
Mình có file đính kèm: Khi bấm tổ hợp phím Ctrl+shift+M thì tại cột G của 1 hàng đó mới có công thức.
Nội dụng cần hỏi:
Mình muốn khi bấm tổ hợp phím thì sẽ tự động có công thức từ G3 đến "Nội dung công việc cuối cùng" đều có công thức (Từ G3 đến G7("Nội dung công việc cuối cùng") đều có công thức
=> Vậy mình cần chỉnh Code VBA như thế nào.
Đính kèm file
Cám ơn.

 

[befaint]

Sub Macro2()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim z As Long, r As Long
z = Sheet1.Range("A65000").End(xlUp).Row
For r = 3 To z
    Sheet1.Cells(r, "G").FormulaR1C1 = _
        "=IF(TODAY()=RC[-3]-1,""Don doc"",IF(TODAY()=RC[-2]-1,""Don doc"",""""))"
Next r
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

 

[khoa289]

Cám ơn bạn nhiều nhiều

 

[Ba Tê]

Chào mọi người.
Đang chập chững VBA. Mình hỏi mọi người vấn đề này và nhơ mọi người trả lời giúp:
Mình có file đính kèm: Khi bấm tổ hợp phím Ctrl+shift+M thì tại cột G của 1 hàng đó mới có công thức.
Nội dụng cần hỏi:
Mình muốn khi bấm tổ hợp phím thì sẽ tự động có công thức từ G3 đến "Nội dung công việc cuối cùng" đều có công thức (Từ G3 đến G7("Nội dung công việc cuối cùng") đều có công thức
=> Vậy mình cần chỉnh Code VBA như thế nào.
Đính kèm file
Cám ơn.

Bạn có thể chỉnh Sub của bạn lại như thế này:

Sub Macro2()
Range("G3:G" & Range("A65536").End(xlUp).Row).FormulaR1C1 = _
"=IF(TODAY()=RC[-3]-1,""Don doc"",IF(TODAY()=RC[-2]-1,""Don doc"",""""))"
End Sub

 

[anhdepjai]

Theo mình hiểu thì CODE của Bạn Ba Tê sẽ chạy nhanh hơn vòng lặp phải không nhỉ.
Mà sao ngày trước trên diễn đàn mình thấy nút Thanks, cùng số người đã thanks, giờ ko thấy nhỉ.