2017-03-08 68 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