[求助]怎样查找批注的位置？

RQG0717 · 发表于 2004-4-28 11:34

我想实现根据批注的内容查找到批注的位置，并在批注格的下方插入数据！请问如何实现？谢谢！

PS:怎么样能得到单元格里的内容呢？

RQG0717 · 发表于 2004-4-28 12:37

zzzz_11253 你当我白痴？[em03]

我是说找到批注的位置后，插入数据！！！

RQG0717 · 发表于 2004-4-28 13:41

批注的位置是什么？哪行哪列？？？

RQG0717 · 发表于 2004-5-8 14:23

怎么能得到批注在哪行哪列？

RQG0717 · 发表于 2004-5-8 15:18

怎么能得到批注的具体位置？哪行哪列？

RQG0717 · 发表于 2004-5-8 17:10

各位大虾！能看看我的问题吗？

守柔 · 发表于 2004-5-8 17:22

请参考：

Sub com() Dim i As Comment For Each i In ActiveSheet.Comments MsgBox i.Parent.Address i.Parent.Select ActiveCell.Offset(1, 0).Value = 123 Next End Sub

lxcapp · 发表于 2004-5-8 18:01

Sub gg() Dim st As String st = pzdz("shx:" & Chr(10) & "fff") '注意批注内容包含批注作者，换行符，如仅内容，可另编程处理 MsgBox IIf(st <> "", "批注位置为" & st, "无匹配批注") End Sub

Function pzdz(ByVal pznr As String) As String 'pzdz批注地址 'pznr批注内容 Dim pz As Comment For Each pz In ActiveSheet.Comments If pz.Text = pznr Then pzdz = pz.Parent.Address: Exit Function Next End Function

RQG0717 · 发表于 2004-5-9 08:28

谢谢楼上的两位大虾！谢谢啊！！！[em17]

兰色幻想 · 发表于 2004-4-28 13:38

我是举个例子,批注上输入的是"1234",然后查找该批注,找到批注为"1234"的单元格后插入数据"123",你的意思不就是这吗???????//

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