ExcelTip.Net留存知识帖 ---【注:附件之前被网盘供应商清空后,现已修复-现已修复-现已修复为本地下载!】
现在位置:首页 > E问E答 > Excel VBA > 如何用VBA调整条件格式的次序?

如何用VBA调整条件格式的次序?

作者:绿色风 分类: 时间:2022-08-17 浏览:138
楼主
biaotiger1
Q:如何用VBA调整条件格式的次序?
A:选中A1:A13单元格区域,输入公式
  1. =INT(RAND()*100)
保持选定区域不变,设置三个条件格式如下:

 
按<ALT+F11>快捷键打开VBE窗口→“插入”→“模块”,在新建模块中输入代码如下:
  1. Sub 调整条件格式优先级()
  2. With Range("A1:A13")
  3.     .FormatConditions(1).SetLastPriority '调整条件格式1为最高优先级
  4.     .FormatConditions(2).SetFirstPriority '调整条件格式2为最低优先级
  5. End With
  6. End Sub

运行以上代码后,上图中条件格式次序变更为如下:

 
以上条件格式中,
1、“前 10 %”为条件格式1,运行至第三行代码后,该条件格式上升为优先级1的条件格式(相当于选中该条件格式,单击“上移”按钮两次)。其他条件格式依次为“图标集”、“数据条”。
2、此时“图标集”为条件格式2,继续代码至第四行后,该条件格式下降为最次优先级(相当于选中该条件格式,单击“下移”按钮依次)。相应地“数据条”上升为第二优先级的条件格式。
2楼
rongjun
拜读标标新作
3楼
纵鹤擒龙水中月
支持楼主的分享

免责声明

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

评论列表
sitemap