Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 4476|回复: 4

[已解决]请问为何不能批量添加批注?

[复制链接]
发表于 2010-7-28 11:33 | 显示全部楼层 |阅读模式
Public Sub 技巧4_154()
    Dim myRange As Range
    Set myRange = Range("a1:d1")    '指定任意的单元格
    With myRange
        On Error Resume Next
        .Comment.Delete     '删除已经存在的批注
        On Error GoTo 0
        '添加批注
        .AddComment "这是为单元格添加的批注"
    End With
    Set myRange = Nothing
End Sub
最佳答案
2010-7-28 11:52

a1:d1不是一个单元格,是一个单元格区域,无法一次完成,必须一个个单元格添加。

可以手工试试,选取一个区域,添加批注时,只是激活单元格被添加了批注。

将a1:d1改为某个单元格,就不会错了。如果要为区域批量添加,还得以其他方式完成,如循环。

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2010-7-28 11:52 | 显示全部楼层    本楼为最佳答案   

a1:d1不是一个单元格,是一个单元格区域,无法一次完成,必须一个个单元格添加。

可以手工试试,选取一个区域,添加批注时,只是激活单元格被添加了批注。

将a1:d1改为某个单元格,就不会错了。如果要为区域批量添加,还得以其他方式完成,如循环。

回复

使用道具 举报

发表于 2010-7-28 12:17 | 显示全部楼层

添加的时候可以这样

for each mrange in myrange

next

加个循环就可以了.

回复

使用道具 举报

发表于 2011-6-4 07:54 | 显示全部楼层
学习            
回复

使用道具 举报

发表于 2011-6-5 04:13 | 显示全部楼层
学习
学习
学习
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 06:38 , Processed in 0.380864 second(s), 8 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表