根据消息框中的值计算结果

Question

我正在寻求帮助，教我如何基于此创建消息框

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

我希望当我打开 excel 文件时，消息框会出现在“提醒”下，只有一个数字。根据计数，消息框将显示为“32 Reminder found in XLMembership”结果。

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

根据消息框中的值计算结果

Counting result base on value in Message Box

message

counting

box