2023-03-06 12:29来源:m.sf1369.com作者:宇宇
如果是要全部显示的话,可以在审阅菜单栏里有“显示所有批注”
请问您是如何操作修改批注的呢?直接双击吗?正常情况下修改批注需要选中批注并且右击-选择修改批注。请尝试下此操作并查看是否可以正常修改。
材料/工具:Excel2010
1、打开Excel2010表格,在excel中输入数字
2、选中刚输入的数字,点击目录上面的审阅
3、然后点击新建批注,会出现一个小框,我们就可以批注excel了
4、在新建批注的右侧有留个小框框,每个框代表一种功能,比如删除批注
5、如果我们点击翻译的话,右侧会出现一个大框,可以进行相关信息的编辑,excel审阅模式就开启了。
Excel2010添加批注:
方法一:打开Excel2010工作表,选中需要添加批注的单元格。
切换至“审阅”功能区,在“批注”分组中单击“新建批注”,
在批注里添加内容保存即可:
方法二:也可以右键单击被选中的单元格,在打开的快捷菜单中选择“插入批注”命令。
第1步,打开Excel2010工作表,选中需要添加批注的单元格。
第2步,切换至“审阅”功能区,在“批注”分组中单击“新建批注”按钮,如图1所示。
图1单击“新建批注”按钮
小提示:用户也可以右键单击被选中的单元格,在打开的快捷菜单中选择“插入批注”命令。
第3步,打开Excel2010批注编辑框,默认情况下第一行将显示当前系统用户的姓名。用户可以根据实际需要保留或删除姓名,然后输入批注内容即可,如图2所示。
图2 编辑批注内容
在工作表标签上击右键,查看代码,在VBE窗口中点“插入”,模块,
在模块代码窗口中粘贴以下代码,然后按ALT+F8运行之,即可
Sub 添加批注()
For i = 1 To 2 '注:列遍历
For j = 4 To Cells(65536, i).End(3).Row '注:行遍历
If Cells(j, i) <> Then '检测非空
Dim a
a =
For K = 2 To [e65536].End(3).Row '遍历E列区域
If Cells(K, 5) = Cells(j, i) Then '比对数据
a = a & CStr(Cells(K, 6)) '获取对应F列的值存入变量a。
On Error Resume Next '容错
Cells(j, i).ClearComments '若有批注,先行删除
Cells(j, i).AddComment '添加批注
Cells(j, i).Comment.Visible = False '批注隐藏
Cells(j, i).Comment.Text Text:=a '批注内容
End If
Next
End If
Next
Next
End Sub
审阅----新建批注(一般右键的快捷菜单中也有的)