fieldset{padding:10px;}
请教VBA弹出窗口提醒,谢谢！各位好：我有一个Excel工作簿，第一个是总表，后面是很多分表，分表的格式是相同的，分表的G列是计划日期，我希望这计划与当前的日期相比，如果计划日期<=当前日期-7，则弹出窗口提示，窗口提示的要求是：1、我打开“总表”这个工作表后，就能弹出提示 2、能自动搜索所有的分表，检索是否到时间。3、弹出的窗口能显示是xx公司，大概内容是：XX公司的保养时间到了。烦请各位帮忙！急！！！http://club.excelhome.net/thread-751004-1-1.html补充说明：我只要打开这个工作簿时检查并弹出到期的公司，不需要时时监控，烦请各位帮忙把VBA的代码写给我呢？谢谢！！！——解决方案——————————————————– 看了楼主的贴子，没有搞清楼主的真正要求是什么，我的理解是：打个一个工作薄，自动显示7日之内有维修计划的公司的名称。 以下是VBA代码（并有附件），自我上机测试，运行正常，不知是不是满足楼主的要求。VB code
Private Sub Workbook_Open() Dim CName As String, MyRow As Long Dim MyToday As Date CName = "7日之内有设备维修计划的公司是：" & Chr$(13) & "------------------" & Chr$(13) MyToday = Date MsgBox "当前日期是：" & MyToday For Each MySheet In Worksheets If MySheet.Index <> 1 Then MyRow = MySheet.Range("G200").End(xlUp).Row For I = 4 To MyRow If DateDiff("d", MyToday, MySheet.Cells(I, 7).Value) >= 0 And DateDiff("d", MyToday, MySheet.Cells(I, 7).Value) <= 7 Then CName = CName & Worksheets(1).Cells(MySheet.Index + 1, 3) & " 计划保维日期：" & MySheet.Cells(I, 7) & Chr$(13) Exit For End If Next I End If Next MySheet CName = CName & "------------------" & Chr$(13) MsgBox CNameEnd Sub看着你手中的戒指，你说，你可以把它取下来吗？
