大神们 可以提取批注吗 帮忙写个公式

py009325

roych

Access中国版友盗梦的代码

1. '函数名：获取批注的作者
   
2. '返回值：字符串（String）
   
3. '--参数：rng，单元格，必填
   
4. '--示例：=GetCommentAuthor(A1)
   
5. Public Function GetCommentAuthor(rng As Range) As String
   
6.     If Not rng.Comment Is Nothing Then GetCommentAuthor = rng.Comment.Author
   
7. End Function
   
8. 
   
9. '函数名：获取批注的内容
   
10. '返回值：字符串（String）
    
11. '--参数：rng，单元格，必填
    
12. '--示例：=GetCommentText(A1)
    
13. Public Function GetCommentText(rng As Range) As String
    
14.     If Not rng.Comment Is Nothing Then GetCommentText = rng.Comment.Text
    
15. End Function

复制代码