[已解决]打开文件自动跳出窗口提示今日到期问题！

fggf

怎么样才能够有条件的跳出窗口提示今日到期须做的事项呢？详见附件，谢谢各位！

最佳答案

月排行榜 / 总排行榜

老司机带带我

2016-8-4 14:35

见附件！

跳转到最佳答案楼层

老司机带带我

以下代码防止放置中，按钮自己指定以下宏：

1. Sub xx()
   
2.     Dim n%, i%, s$
   
3.     For i = 4 To Cells(Rows.Count, 1).End(xlUp).Row
   
4.         If Cells(i, 1).Value = "最后报名日" Then
   
5.             n = n + 1
   
6.             s = s & n & "、序号" & Cells(i, 2) & "，日期" & Cells(i, 3) & "，项目名称" & Cells(i, 2)  & "；" & Chr(10)
   
7.         End If
   
8.     Next
   
9.     s = "今日共应报名" & n & "个" & Chr(10) & s & Chr(10) & "以上项目请尽快报名！"
   
10.     MsgBox s
    
11. End Sub

复制代码

fggf

老司机带带我 发表于 2016-8-3 13:47
以下代码防止放置中，按钮自己指定以下宏：

非常感谢，如果要放在窗体userform1中提示，要怎么做呢？

老司机带带我

见附件！