Hiện bảng thông báo khi đến ngày

[rickypham]

K/g các anh chị
Em có một file excel có chứa nhiều ngày tháng.
Em muốn khi mớ file ra thì những ô nào có ngày hôm nay nó sẽ hiện lên một thông báo là: "Có 2 công văn cần lấy số ngày hôm nay" ví dụ như có 2 ô trùng ngày hôm nay.
Em cám ơn nhiều ạ

 

[ndu96081631]

K/g các anh chị
Em có một file excel có chứa nhiều ngày tháng.
Em muốn khi mớ file ra thì những ô nào có ngày hôm nay nó sẽ hiện lên một thông báo là: "Có 2 công văn cần lấy số ngày hôm nay" ví dụ như có 2 ô trùng ngày hôm nay.
Em cám ơn nhiều ạ

Dữ liệu chỉ có đúng 1 dòng, thật khó để làm thành 1 code tổng quát
Hỏi lại: Dữ liệu thật của bạn đúng y chang như trong file hay khác hơn? Ngày tháng luôn nằm ở dòng 4 hay.. ở đâu nữa?
Nếu có thể được, bạn đưa file có tính tổng quát chút (giống với thực tế ấy)

 

[Hai Lúa Miền Tây]

Dùng vòng lặp duyệt qua, lấy ngày = ngày hệ thống.
Code củ chuối như sau:

Sub ThongBao()
Dim rng As Range
Dim i As Integer
For Each rng In Sheet1.Range("C4:G4")
    If rng = Date Then
        i = i + 1
    End If
Next
MsgBox "Co : " & i & " cong van can lay so ngay hom nay"
    
End Sub

 

[rickypham]

Dạ em xin lỗi các anh chị, tại em cũng chưa hoàn thành file đó được ạ. Thực ra file của em gồm nhiều dòng và nhiều cột có thể lên đến hàng trăm.
Cho em hỏi là không biết dùng theo kiểu bác domfootwear có được không ạ. Em thay C4:G4 bằng vùng dữ liệu của em có ổn không ạ. Vì thực ra em cũng chưa hoàn thành xong file
Rất xin lỗi các anh chị

 

[Hai Lúa Miền Tây]

Dạ em xin lỗi các anh chị, tại em cũng chưa hoàn thành file đó được ạ. Thực ra file của em gồm nhiều dòng và nhiều cột có thể lên đến hàng trăm.
Cho em hỏi là không biết dùng theo kiểu bác domfootwear có được không ạ. Em thay C4:G4 bằng vùng dữ liệu của em có ổn không ạ. Vì thực ra em cũng chưa hoàn thành xong file
Rất xin lỗi các anh chị

Bạn thử Test rồi đưa ra câu trả lời nhé. Dữ liệu đến đâu thì điều chỉnh lại đến đó, ở trên tôi chỉ ví dụ thôi, bạn tùy biến mà sử dụng.

 

[rickypham]

Sao em test cách của bác domfootwear nhưng khi open file lại không thấy thông báo gì hết vậy ạ?

 

[Hai Lúa Miền Tây]

Sao em test cách của bác domfootwear nhưng khi open file lại không thấy thông báo gì hết vậy ạ?

Chép code vào module, rồi gọi nó ở sự kiện Workbook_Open, hoặc chép đoạn code đó bỏ vào Workbook_Open.
Còn cách nữa là chỉnh tên sub nó thành Autpen.

 

[rickypham]

Bác có thể chỉnh dùm em hoặc chỉ chi tiết giúp em được không ạ?
Vì em không biết lập trình nên mù tịt ạ.

 

[Hai Lúa Miền Tây]

Bác có thể chỉnh dùm em hoặc chỉ chi tiết giúp em được không ạ?
Vì em không biết lập trình nên mù tịt ạ.

Bạn xem file đính kèm nhé.

 

[rickypham]

Em cảm ơn anh nhiều lắm ạ......

 

[Thanhvietin]

Bạn xem file đính kèm nhé.

Sư phụ ơi, cái này của Sư phụ rất hay, ứng dụng rất hữu ích.

Nhưng bây giờ muốn chuyển vùng dữ liệu thành N9:N500 chẳng hạn và điều kiện là đếm những Cell có giá trị >=1 thì sửa lại code như nào Sư phụ ơi!

Sư phụ giúp với!