2017-03-08 71 views
0

我寻求帮助,教我如何在这个计数结果的基础

value: 
=IF(F2<=TODAY(), "EXPIRED", IF(AND(F2-TODAY()>0, F2-TODAY()>=10), "ACTIVE", "REMINDER")) 

我希望当我打开Excel文件,该文件下的所有消息框将显示创建消息框基地'Reminder'只有一个号码,根据计数结果,这个消息框将会是例如“在XLMembership中找到32个提醒”

回答

0

由于没有人有兴趣回答我的问题,我自己回答并分享给用户,对同一问题的回答。

Private Sub Workbook_Open() 
Dim Ret_type As Integer 
Dim strMsg As String 
Dim strTitle As String 
Dim iReminders As Long 

iReminders = WorksheetFunction.CountIf(Columns("B"), "REMINDER") 
MsgBox Format(iReminders, "#,##0") & " REMINDER found in XLMembership", vbInformation + vbOK 

End Sub