excel vb 关于IF 和 msgbox 结合的用法

答案:2 悬赏:70 手机版

解决时间 2021-03-04 10:53

提问者网友：浮克旳回音
2021-03-03 17:22

最佳答案

五星知识达人网友：酒安江南
2021-03-03 17:28

if not worksheets("sheet2").range("g:g").find("到期项") is nothing then
msgbox "有到期", vbokonly, "提示"
end if追问有错误呢追答程序没有错误，应该是你对应的工作表名称或者你表格中只有“到期项”还是包含其他？最好截个图。别人给你的只能是猜的追问
我的意思是：要把sheet2中的这些项逐个的提示框显示出来不知道能做到不谢谢

追答如果是每条都要就不是用find了，而是要用for 循环，每一行每一行判断追问能帮我做下吗我做的这样
For i = 1 To 15
If Cells(i, 9) <> "" Then MsgBox Cells(i, 9)
Next i
但是它只对当前表起作用能帮我让它指定sheet2这个表吗

全部回答

1楼网友：duile
2021-03-03 18:13

Private Sub Workbook_Open()
Dim f
Set f = Sheet1.Range("g:g").Find("到期项")
If Not f Is Nothing Then
MsgBox "有到期"
End If
End Sub追问你帮我试过了我试了不好使？（g:g 中是显示“到期项”这几个字）

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息