作者：绿色风
分类：
时间：2022-08-17
浏览：125
楼主
breezy |
Q：如何编写提取单元格批注的自定义函数？
A：提取单元格批注的自定义函数代码如下：
- '
- 'Code By Breezy
- 'Date:2009-11-3
- '
- '增加判断单个单元格区域以及选择显示方式（sDisp:1为显示无作者批注；2为只显示批注作者，其他为完全显示）
- '→→→→→→→
- '
- Function GetComment(sRng As Range, sDisp As Integer) As String
- On Error GoTo ErrLine
- Dim sComment As String
- Application.Volatile True
- If sRng.Count = 1 Then
- sComment = sRng.Comment.Text
-
- If sDisp = 1 Then
- GetComment = Right(sComment, Len(sComment) - InStr(1, sComment, ":"))
- ElseIf sDisp = 2 Then
- GetComment = Left(sComment, InStr(1, sComment, ":") - 1)
- Else
- GetComment = sComment
- End If
- End If
- ErrLine:
- End Function
宏表函数法请参见：http://www.exceltip.net/thread-1584-1-1.html
|
2楼
い卋玑┾宝珼 |
谢谢分享 |
3楼
芐雨 |
谢谢分享 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一