VBA初学中，求助大神!

强哥000 · 发表于 2023-7-6 17:00

照书本学习中，查找显示批注，仿造一段代码如下
Sub 判断有无批注并显示()
Dim comm As Comment
Set comm = ActiveCell.Comment
MsgBox IIf(comm Is Nothing, "没有批注", comm.Text)
End Sub

Active有批注的单元格，运行代码后，能正常显示批注内容！

Active无批注的单元格，运行代码后，会出现错误提示：

Object variable or With block variable not set

这是为啥呢？

半百 · 发表于 2023-7-6 19:49

大概IIF函数不能这样用吧

wangtk1982 · 发表于 2023-7-6 20:02

解释类语音就这样，在解释这句的时候找不到comm对象，不知道怎么解释comm.Text，虽然它运行不到

强哥000 · 发表于 2023-7-7 09:29

wangtk1982 发表于 2023-7-6 20:02
解释类语音就这样，在解释这句的时候找不到comm对象，不知道怎么解释comm.Text，虽然它运行不到

懂了，谢谢！

准提部林 · 发表于 2023-7-7 13:16

不考慮有批注但無文字，或只有圖片，
僅針對文字：
T$ = ActiveCell.NoteText
If T = "" Then T = "沒有批注"
MsgBox T
　
　

		自动登录	找回密码
密码			免费注册

VBA初学中，求助大神!

评分