将如下代码写在 Public Sub Workbook_Open下，渐变的区域按正常设置好条件格式，并将区域地址添加别名  KB_BMX,添加后可直接使用不用改VBA代码。

1. Excel.GetLock()
   
2.             AW = Excel.ActiveWorkbook
   
3.             Range = AW.ActiveWorksheet.Range
   
4.             With Range("KB_BMX").FormatConditions(0).Interior
   
5.                 .Pattern = Pattern.Solid
   
6.                 .PatternColorIndex = 20
   
7.                 .ThemeColor = Themes.ColorSchemeIndex.Accent3
   
8.                 .TintAndShade = 0.9
   
9.             End With
   
10.             Excel.ReleaseLock()

复制代码

KB_BMX.rar (3.14 KB, 下载次数: 133)

2018-8-13 00:56 上传

点击文件名下载附件

求大神们，把这个斑马线的方法放进命令树里

求大神们，把这个斑马线的方法放进命令树里