Cho mình hỏi dùng cách nào để đánh dấu ngày cần Chú ý

[vanle33]

Em có vấn đề trong file đính kèm . Mong mọi người giúp đỡ
Thanks

 

[nghiaphuc]

Em có vấn đề trong file đính kèm . Mong mọi người giúp đỡ
Thanks

- Vấn đề thứ nhất thì có thể giải quyết được bằng Conditional Formatting, tất nhiên chỉ được một màu thôi chứ không phải nhấp nháy đâu. Điều kiện cần sử dụng là =C5=TODAY()
- Yêu cầu thứ hai thì có thể giải quyết tương đối bởi công thức sau cho ô D5 (và fill xuống):

=IF(C5=TODAY(), "Đã đến ngày đạt Kết quả, có thể tiến hành Nghiệm thu","")

Nếu thực sự muốn xuất hiện hộp thoại thông báo thì cần dùng đến VBA để can thiệp.

 

[vanle33]

- Vấn đề thứ nhất thì có thể giải quyết được bằng Conditional Formatting, tất nhiên chỉ được một màu thôi chứ không phải nhấp nháy đâu. Điều kiện cần sử dụng là =C5=TODAY()
- Yêu cầu thứ hai thì có thể giải quyết tương đối bởi công thức sau cho ô D5 (và fill xuống):

=IF(C5=TODAY(), "Đã đến ngày đạt Kết quả, có thể tiến hành Nghiệm thu","")

Nếu thực sự muốn xuất hiện hộp thoại thông báo thì cần dùng đến VBA để can thiệp.

Mình muốn hộp thoại thông báo khi mở file vào đúng ngày ở ô C5 đó
Các anh chị giúp mình nhé!

 

[hoamattroicoi]

Mình muốn hộp thoại thông báo khi mở file vào đúng ngày ở ô C5 đó
Các anh chị giúp mình nhé!

Nếu bác thích VBA và làm chủ được nó thì bác chạy thử CODE này kiểm tra giúp em nhé chứ giờ em "lụt nghề" rồi :

Sub Chon()
Dim i As Long
Range("C5:C" & [C65536].End(xlUp).Row).Interior.ColorIndex = 0
For i = 5 To [C65536].End(xlUp).Row
If DateDiff("d", Now(), cells(i, 3).Value) = 0 Then
    cells(i, 3).Interior.ColorIndex = 10
    MsgBox "Cell Het han là cells : " & cells(i, 3).Address
End If
Next
End Sub

 

[vanle33]

to hoamattroicoi
1) Khi mình nhấn nút Check thì mình muốn đổi "Cell hết hạn " thành "

Đã đến ngày đạt Kết quả, có thể tiến hành Nghiệm thu" của ngày tại ô C5
2) Và nếu cột B có dữ liệu thì mới đánh dấu ngày cần Nghiệm thu ở cột B tương ứng. Vì mình chạy Code thấy đánh dấu xanh ở cả ô C9 nữa mà
Bạn sửa Code cho mình nhé!​

 

[hoamattroicoi]

to hoamattroicoi
1) Khi mình nhấn nút Check thì mình muốn đổi "Cell hết hạn " thành "

Đã đến ngày đạt Kết quả, có thể tiến hành Nghiệm thu" của ngày tại ô C5
2) Và nếu cột B có dữ liệu thì mới đánh dấu ngày cần Nghiệm thu ở cột B tương ứng. Vì mình chạy Code thấy đánh dấu xanh ở cả ô C9 nữa mà
Bạn sửa Code cho mình nhé!​

Ui, em đang định khò khò, pác sửa code thành thế này rồi copy lại vào Module giúp em nhé :

Sub Chon()
Dim i As Long
Range("C5:C" & [C65536].End(xlUp).Row).Interior.ColorIndex = 0
For i = 5 To [C65536].End(xlUp).Row
If DateDiff("d", Now(), cells(i, 3).Value) = 0 And cells(i, 2) <> "" Then
    cells(i, 3).Interior.ColorIndex = 10
    MsgBox "Da den ngay dat ket qua, co the tien hanh nghiem thu : " & cells(i, 3).Value & Chr(13) & "Dia chi tai cells :" & cells(i, 3).Address
End If
Next
End Sub

Em cảm ơn bác!