单元格背景上颜色

flywolfwn

须给工作表中数值在0.5到1之间的单元格加上绿色背景，单元格有十几万个，逐个循环上色耗时过长，请问能否不循环批量一次性的添加背景颜色，谢谢!

q490525427

1. Sub SetConditionalFormatting()
   
2.     Dim ws As Worksheet
   
3.     Dim rng As Range
   
4.       
   
5.     ' 设置工作表和范围（如果需要，可以自定义范围）
   
6.     Set ws = ThisWorkbook.Sheets("Sheet1") ' 替换为你的工作表名
   
7.     Set rng = ws.UsedRange ' 或者你可以指定一个特定的范围，比如 ws.Range("A1:Z100000")
   
8.       
   
9.     ' 清除之前的所有条件格式（可选，如果你不想保留其他条件格式的话）
   
10.     rng.FormatConditions.Delete
    
11.       
    
12.     ' 添加新的条件格式
    
13.     With rng.FormatConditions.Add(Type:=xlCellValue, Operator:=xlBetween, Formula1:="=0.5", Formula2:="=1")
    
14.         .Interior.Color = RGB(0, 255, 0) ' 绿色背景
    
15.         .StopIfTrue = False ' 如果为真，继续检查其他条件格式
    
16.     End With
    
17.       
    
18.     ' 你可以添加更多的条件格式，如果需要的话
    
19.       
    
20. End Sub
    

复制代码

purpledragoon

设置条件格式就可以了

flywolfwn

谢谢楼上二位老师，使用条件格式测试后速度大幅提高！！

沈默00

直接条件格式不是更快捷，，

flywolfwn

谢谢 沈默老师