Question

我正在寻求帮助，教我如何根据此

创建消息框

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

我希望打开excel文件后会出现一个消息框，该文件全部在＆＃39;提醒＆＃34;只有一个数字。消息框将是＆＃34; 32提醒在XLMembership＆＃34;基于计数结果。

Answer 1

由于没有人回答我的问题，所以我自己回答并分享给在同一问题上寻找答案的用户..

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

根据Message Box中的值计算结果

1 个答案: