Hiện thông báo mesage khi đến số ngày đã định (1 người xem)

[lienkhuomg]

E có bào toán như trong hình phía dưới các bác có cách làm nào chỉ em với

Thank các bác nhiều

 

[vanle33]

E có bào toán như trong hình phía dưới các bác có cách làm nào chỉ em với

Thank các bác nhiều

View attachment 99638

Công thức =IF(TODAY()-C1=30;"đã đến ngày kiểm tra hợp đồng "&B1;"")
Copy cho tất cả các ô ở dưới . Mỗi lần bạn mở excel trong ngày thì excel sẽ hiện thông báo trên.

 

[lienkhuomg]

Cảm ơn bạn vanle33, lời giải của bạn thì mình cũng làm được, cách này trả về kết quả cho 1 ô chứ không phải hiện popup Message thông báo như bài toán mình đưa, cái này phải dùng đến VBA nhưng mình không biết làm

 

[MoCS]

Cua ban day

Sub GPE()

Dim s, n, sResult, l
s = "counta(A:A)"
n = Evaluate(s)
sResult = "Nhung Hoa Don sau can kiem tra hop dong: " & Chr(10)
l = Len(sResult)

For i = 2 To n
If DateDiff("d", Range("C" & i).Value, Now) >= 30 Then
sResult = sResult & Range("B" & i).Value & Chr(10)
End If
Next i

If l < Len(sResult) Then
MsgBox sResult
End If

End Sub

 

[lienkhuomg]

Cảm ơn bận MoCS, bạn cho minh VD mẫu với,mình áp dụng vào sao nó không tác dụng gi hết, cảm ơn bạn nhiều

 

[vanle33]

Cua ban day

Sub GPE()

Dim s, n, sResult, l
s = "counta(A:A)"
n = Evaluate(s)
sResult = "Nhung Hoa Don sau can kiem tra hop dong: " & Chr(10)
l = Len(sResult)

For i = 2 To n
If DateDiff("d", Range("C" & i).Value, Now) >= 30 Then
sResult = sResult & Range("B" & i).Value & Chr(10)
End If
Next i

If l < Len(sResult) Then
MsgBox sResult
End If

End Sub

Code của bạn khi chạy ra kết quả như thế này

Chắc chưa phải như tác giả muốn!

 

[Quang_Hải]

E có bào toán như trong hình phía dưới các bác có cách làm nào chỉ em với

Thank các bác nhiều

View attachment 99638

Thử thế này coi sao

Sub nhac_nho()
Dim data(), thongbao, i
With Sheet1
   data = .Range([B3], .[B65536].End(3)).Resize(, 2).Value
End With
For i = 1 To UBound(data)
   If data(i, 2) + 30 <= Date Then
      thongbao = thongbao & vbLf & data(i, 1)
   End If
Next
MsgBox "Kiem tra nhung HD nay nha ban" & thongbao
End Sub

 

[Hong.Van]

E có bào toán như trong hình phía dưới các bác có cách làm nào chỉ em với

Thank các bác nhiều

View attachment 99638

Thêm 1 cách cho bạn tham khảo
http://www.giaiphapexcel.com/forum/showthread.php?78300-Share-Add-In-T%E1%BB%B1-%C4%91%E1%BB%99ng-m%E1%BB%9F-File-Excel-v%C3%A0-th%C3%B4ng-b%C3%A1o-ng%C3%A0y-%C4%91%E1%BA%BFn-h%E1%BA%A1n-%21&p=481782#post481782

 

[lienkhuomg]

Code của bạn khi chạy ra kết quả như thế này

Chắc chưa phải như tác giả muốn!

Cảm ơn bạn vì lời giải này nhung theo minh nhìn vo code và kết quả thì nó hình như ko đúng, A1 da den ngay nhung khong thay kiem tra (vì bạn để điều kiện >=30). A8, A9, A11 ko có giá trị ko nen kiểm tra

 

[lienkhuomg]

Thử thế này coi sao

Sub nhac_nho()
Dim data(), thongbao, i
With Sheet1
   data = .Range([B3], .[B65536].End(3)).Resize(, 2).Value
End With
For i = 1 To UBound(data)
   If data(i, 2) + 30 <= Date Then
      thongbao = thongbao & vbLf & data(i, 1)
   End If
Next
MsgBox "Kiem tra nhung HD nay nha ban" & thongbao
End Sub

rất cám ơn bạn cái này đúng theo ý mình, tiện thể bạn có thể làm thêm chút là cái nào đã đến ngày thông báo thì hiển nhiên hiển thị thông báo nhưng để tránh thông báo lần nữa, người dùng sẽ nhập 1 ký tự nào đó đại diện (VD: "dkt" là đã kiểm tra) tại 1 cột của dòng tương ứng. như thế khi bật exel lên lần kế đó chỉ hiển thị những cái chưa có đánh dấu là đã kiểm tra.

 

[Quang_Hải]

rất cám ơn bạn cái này đúng theo ý mình, tiện thể bạn có thể làm thêm chút là cái nào đã đến ngày thông báo thì hiển nhiên hiển thị thông báo nhưng để tránh thông báo lần nữa, người dùng sẽ nhập 1 ký tự nào đó đại diện (VD: "dkt" là đã kiểm tra) tại 1 cột của dòng tương ứng. như thế khi bật exel lên lần kế đó chỉ hiển thị những cái chưa có đánh dấu là đã kiểm tra.

Thử cái này xem sao. Đánh dấu X nha

 

[lienkhuomg]

Thử cái này xem sao. Đánh dấu X nha

Thank bạn rất nhiềum đúng là trong giải pháp ễcl có nhiều cao thủ đáng để học hỏi

 

[lienkhuomg]

Thử cái này xem sao. Đánh dấu X nha

cho mình hỏi thêm một vấn đề nữa, bây giờ để kiểm tra số ngày nhưng không phải là ngày hiện tại, mà bài toán trên có thêm cột NGÀY ĐẾN HẠN dựa vào cột này trừ cho cột NGÀY XUẤT để tính số ngày mà thông báo đến hạn. cảm ơn bạn nhiều