Question

EXCEL VBA 添加批注出错误 问题出在哪？怎么改正

上面的两句标注的都不能通过，显示应用程序或对象定义错误？是不是后面单元格引用错误？不能直接引用单元格内容吗？
Cells(d, 6).Select
If Cells(d, 6).Comment Is Nothing Then
Cells(d, 6).AddComment
Cells(d, 6).Comment.Text Text:=Cells(28, 9).Value
Else: Cells(d, 6).ClearComments
Cells(d, 6).AddComment Text:=Cells(28, 9).Value
End If
Cells(d, 6).Comment.Visible = True

End Sub

Answer 1

添加批注的过程可以录制宏获得.
批注的内容必须是文本格式.可以用两个方法来改变:
pz.Comment.Text Text:=CStr(Date)
使用cstr函数将数据类型改为文本
pz.Comment.Text Text:="" & Date
附加一个空值使得日期的值变成了文本.
vba多数情况不需要转换数据类型,所以会导致一个问题:因文件类型问题而报错,同时也令人找不到报错原因...毕竟很多vba使用者也不是专业的程序员...

Answer 2

修改成下面的代码：
Dim xStr As String

xStr = Cells(28, 9).Value
If xStr <> "" Then
Cells(d, 6).Select
If Cells(d, 6).Comment Is Nothing Then
Cells(d, 6).AddComment
Cells(d, 6).Comment.Text Text:=xStr
Else
Cells(d, 6).ClearComments
Cells(d, 6).AddComment Text:=xStr
End If
Cells(d, 6).Comment.Visible = True
Else
Cells(d, 6).ClearComments
End If

Answer 3

是不是 cells(28,9)是空值

Cells(2, 1).AddComment IIf(Len(Cells(1, 2).Value) = 0, "空", Cells(1, 2).Value)
试试

Answer 4

把VALUE改成TEXT

追问

改成TEXT不在报错了，但是CELLS(28,9)里面就说一个数值150，为啥VALUE不可以呢？ 有没有什么讲究？

追答

批注要是文本