|
问题：
| EXCEL如何获取当前获得焦点的批注的Comment对象？《OA》 |
回答：
|
在没有使用 TextBox 的情况下可以用以下代码实现，如果已经使用了 TextBox 估计就只能通过枚举所有 Comment 的 Text 跟 Selection.Text 做比对才能知道了。 '===========================================================
' 过程及函数名： ActiveComment
' 版本号 ： --
' 说明 ： 返回当前获得焦点的comment对象，如果当前获得
' 焦点的不是comment，则返回nothing
' 引用 ： --
' 输入参数 ： --
' 输出值 ： --
' 返回值 ： 符合条件返回 Excel.Comment 对象，否则返回Nothing
' 调用演示 ： Debug.Print ActiveComment.Text
' 最后修改日期： 2007-12-20 04:36:00
' 示例地址 ： http://access911.net/?kbid;72FABE1E1ADCEDF3
' 作者 ： cg1
' 网站 ： http://access911.net
' 电子邮件 ： access911@gmail.com
' 版权 ： 作者保留一切权力，
' 请在公布本代码时将本段说明一起公布，谢谢！
'===========================================================
Function ActiveComment() As Comment
If TypeOf Application.Selection Is Excel.TextBox Then
Set ActiveComment = Excel.ActiveSheet.Comments(Application.Selection.Index)
End If
End Function |
|
本站文章旨在为该问题提供解决思路及关键性代码，并不能完成应该由网友自己完成的所有工作，请网友在仔细看文章并理解思路的基础上举一反三、灵活运用。
access911.net 原创文章，作者本人对文章保留一切权利。
如需转载必须征得作者同意并注明本站链接
| 
1701910
