'Comment 对象
'代表单元格批注
1 Sub 批注添加() 2 With [a1] 3 If .Comment Is Nothing Then 4 .AddComment.Text "123" 5 .Comment.Visible = True '批注可见 6
'Comment 对象
'代表单元格批注
1 Sub 批注添加() 2 With [a1] 3 If .Comment Is Nothing Then 4 .AddComment.Text "123" 5 .Comment.Visible = True '批注可见 6