如何给A列满足B列对应条件的单元格批量加入批注

作者：绿色风分类：时间：2022-08-18 浏览：110

楼主
wjh619993018

Q：如何给A列满足B列对应条件的单元格批量加入批注

A：1、ALT+F11→在工程窗口双击“sheet1”→在代码窗口复制如下代码：

Sub 按条件添加批注()
Dim cell As Range, str As String, strr As String
On Error Resume Next
str = Application.InputBox("请输入条件，可以是a、b、d等", "条件", "d", 100, 100, , , 2)
strr = Application.InputBox("请输入批注内容：", "批注", "excel 2003", 100, 100, , , 3)
For Each cell In Range("a2:a" & cells(Rows.count,1).End(xlUp).Row)
cell.Comment.Delete
Next
For Each cell In Range("a2:a" & cells(Rows.count,1).End(xlUp).Row)
If cell.Offset(0, 1) = str Then cell.AddComment strr
Next
End Sub

2、调出窗体工具条，选择“按钮”工具，制作一个按钮并指定宏为 “Sheet1.按条件添加批注”
3、右键点击按钮，编辑文字，输入你想要的名称
4、点击按钮就可以为A列满足对应B列条件的单元格批量加入相同内容的批注

0002如何给满足某件的单元格批量加入批注.zip

2楼
海洋之星

VBA,学习一下

免责声明

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

评论列表