作者:乔山办公网日期:
返回目录:excel表格制作
取批注,加批注比较简单,麻烦在于取的位置对应到添加的位置,这个得具体搞。百
先说度说“取”与“加”吧。
比如,你定义了一个String变量,把A1单元格的批注赋值给这个变量。
Dim Comment_1 as String
Comment_1 = Range("A1").Comment.Text
如果你想在工作表取第N个批注,也可以专这么来,假设把第一个批注赋值给 Comment_1
Comment_1 = Worksheets("sheet1").Comments(1).Text
添加,如把 Comment_1 内容添加到 sheet2 D1
Sheets("Sheet2").Range("D1").AddComment comment_2
至于Range("") 究竟往哪里放,属那就需要你自己建立对应关系了。
用宏百方便些,G3是要度创建的知批注道,C3是原有内的批注容
Range("G3").AddComment
Range("G3").Comment.Visible = False
Range("G3").Comment.Text Text:=Range("C3").Comment.Text
为何要添加批注? 为何不把 3-5;3-6;3-7
写在随后的单元格里面呢? 批准是不能进行excel计算的,, 所以没有办法批量
一、用自定义名称的方法:
=GET.OBJECT(12,"备注 "&ROW())
操作:百1.任选一个单元格-->插入--->名称-->定义
2.在名称称输入度AA(任意名称)
3.在引用位置知上写入=GET.OBJECT(12,"备注 "&ROW())
4.点添加
5.在B1单元格里输入=AA
二、补充:自定义函数解道法
转自LangqueS版主:Function 批注(a As Range)
Application.Volatile True
批注 = a.Comment.Text
End Function
复制公式回或代码然答后输入公式=批注(A1)可取出A1单元格的批注。