Question

excel 打开时根据某列单元格数值自动弹出窗口

我有一列单元格设置了公式，会根据时间数值发生变化，显示“是”或“否”，我希望excel能够在打开的时候，根据这列单元格此时的“是”的数量，在“是”的数量超过0的时候，根据“是”的数量弹出提醒“请及时处理×个超期样品”，我应该怎么设置？

Answer 1

这个

Private Sub Workbook_Open()
Dim a As Integer
a = Application.CountIf(Range("c:c"), "是")
If a > 0 Then
MsgBox ("请及时处理" & a & "个超期样品")
Else
Exit Sub
End If

End Sub

追问

你好，请问我把以上插入VBA以后，怎么设置它开始执行？我单独run了以后是ok的，但是每次打开它还是没有自动执行，公司网络有限制下载不了以上的附件

Answer 2

需要建立辅助列，出现：提醒“请及时处理×个超期样品

Answer 3

=if（countif（"是",c1:c100）=0,"请及时处理X个超期样品",")

Answer 4

这个需要用到VBA写个open事件