016-优化“批量修改批注背景色”-疑难千寻千解丛书（VBA）

小妖

ET疑难千寻千解丛书之EXCEL2010编程与实践

罗刚君 章兰新 黄朝阳 编著

疑难16
如何优化过程“批量修改批注背景色”

工作表中A列为姓名，B列为成绩，在A列中部分单元格有批注。将所有批注的背景色修改为红色，其代码如下。那么如何才能优化代码而提升速度呢？

1. 
   
2. Sub 批量修改批注框背景色()
   
3.     Dim rng As Range
   
4.     On Error Resume Next '防错
   
5.     For Each rng In Range([a1], Cells(Rows.Count, 1).End(xlUp))  '遍历A列所有非空单元格
   
6.         Debug.Print rng.Comment.Text  '导出批注文字
   
7.         If Err = 0 Then  '如果没有错误（表示有批注）
   
8.             rng.Comment.Visible = True  '让批注可见
   
9.             rng.Comment.Shape.Fill.ForeColor.SchemeColor = 10 '指定批注背景色
   
10.             rng.Comment.Visible = False '恢复隐藏属性
    
11.         End If
    
12.         Err.Clear  '清除错误
    
13.     Next
    
14. End Sub
    

复制代码

è解决方案

将循环对象单元格修改为批注对象，其循环次数可以大大降低，从而提速。

í操作方法

步骤1
修改代码循环的对象，完整代码如下：

1. 
   
2. Sub 批量修改批注框背景色2()  '通过改变循环对象提速，即循环的次数减少
   
3.     Dim Com As Comment  
   
4.     For Each Com In ActiveSheet.Comments    '遍历所有批注
   
5.         If Not Intersect(Com.Parent, [a:a]) Is Nothing Then
   
6.             Com.Visible = True  '让批注可见
   
7.             Com.Shape.Fill.ForeColor.SchemeColor = 10  '指定批注背景色
   
8.             Com.Visible = False    '恢复隐藏属性
   
9.         End If
   
10.     Next
    
11. End Sub
    

复制代码

步骤2
分别执行两段代码，优化后的代码明显速度更快，因为循环的次数已大大减少。

=============================

以上摘自《EXCEL2010编程与实践》

小妖

妖言：

一个是历遍非空单元格，一个是历遍批注，效率当然完全不同了。
不过对妖来说，对批注永远是有心理障碍滴
{:231:}

hhzjxss

该妖是好妖，该脑袋是函数脑袋！

hhzjxss

试试这样行不行，速度没测试过：

1. 
   
2. Sub 批量修改批注框背景色3()
   
3.     Dim MRG As Range
   
4.     Dim rng As Range
   
5.     Application.DisplayCommentIndicator = xlCommentAndIndicator    '显示批注
   
6.     Set MRG = Cells.SpecialCells(xlCellTypeComments) '定位批注
   
7.     For Each rng In MRG
   
8.         rng.Comment.Shape.Fill.ForeColor.SchemeColor = 3    '指定批注背景色
   
9.     Next
   
10.     Set MRG = Nothing
    
11.     Application.DisplayCommentIndicator = xlCommentIndicatorOnly    '隐藏批注
    
12. End Sub
    

复制代码

西安专家

向高手学习

UNA123

{:011:}{:011:}{:011:}{:011:}

yelangge

真不错啊！！！！

fulljy

辛苦了，多谢分享！