可以将所有公式单元格的公式都显示在批注中吗？

作者：绿色风分类：时间：2022-08-17 浏览：136

楼主
zlxtl

Q:可以将所有公式单元格的公式都显示在批注中吗？
A:通过SpecialCells(xlCellTypeFormulas)定位公式，然后创建批注，将公式作为批注的文本

Sub 为公式添加标注()
on error resume next
Set Rng = Selection.Cells.SpecialCells(xlCellTypeFormulas)
For Each cell In Rng
cell.ClearComments
With cell.AddComment
.Text Text:=cell.Formula
.Shape.TextFrame.AutoSize = True
.Shape.Fill.ForeColor.SchemeColor = 44
.Shape.AutoShapeType = msoShapePlaque
End With
Next cell
End Sub
Sub Del_Comments() '删除批注
Set Rng = Selection.Cells.SpecialCells(xlCellTypeFormulas)
For Each cell In Rng
cell.ClearComments
Next cell
End Sub

添加批注前

添加批注后2.jpg

2楼
herelazy

学习啦，谢谢分享！

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表