EXCEL日期定时提醒功能，用VBA显示对话框的。。

Question

我用EXCEL做了客户合同汇总表（sheet1），然后每个客户名字对应一个工作表（sheet2……），其中工作表的名字改为客户的名字，现在想汇总表中任何一位客户当到了发货后一个月，打开excel，就会弹出提示收款对话框，好像这个只能用VBA，那位大虾帮忙下！

Private Sub Workbook_Open()
Dim rng As Range
With Sheet2
For Each rng In .Range("g2", .[g65536].End(3))
If rng + 30 = Date Then
MsgBox "客户:" & rng(1, -4) & " 该客户已到了收款日期了"

End If
Next
End With
End Sub

上面的代码只能对一个工作表啊，不能对整个工作薄

Answer 1

Private Sub Workbook_Open()
Dim rng As Range
Application.ScreenUpdating = False

s = "以下客户已到收款日期："
For i = 2 To Sheets.Count
With Sheets(i)
For Each rng In .Range("g2", .[g65536].End(3))
If rng + 30 = Date Then s = s & vbCrLf & Sheets(i).Name
Next
End With
Next i
MsgBox s

Application.ScreenUpdating = False
End Sub
你看以上这个如何

Answer 2

可以对工作簿进行遍历，用worksheets.count找出工作簿数量，再遍历