VBA条件格式

韩有如

各位大神新年好！

求助以下,E列和F列单元格输入值后：
1. 附件表格中E列单元格的值超出O列和P列单元格的值，则E列显示红色
2. 附件表格中F列单元格的值超出O列和P列单元格的值，则E列显示红色

半百

“超出”具体是什么意思？在表中模拟几个结果看看，或把条件的公式贴上来看看。

huarong7984

“超出”是否为：小于“硬度下差要求”，或大于“硬度上差要求”？还是指其他，，，，？条件不明确！

ykcbf1100

huarong7984 发表于 2024-2-20 15:02
“超出”是否为：小于“硬度下差要求”，或大于“硬度上差要求”？还是指其他，，，，？条件不明确！

应该是小于硬度下差或大于硬度上差，则标红

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.2.20
   
2.     r = Cells(Rows.Count, 1).End(3).Row
   
3.     Cells.Interior.ColorIndex = 0
   
4.     arr = Range("a1:p" & r)
   
5.     For j = 5 To 6
   
6.         For i = 2 To UBound(arr)
   
7.             Set Rng = Cells(i, j)
   
8.             If arr(i, j) < Val(arr(i, 15)) Or arr(i, j) > Val(arr(i, 16)) Then
   
9.                 Rng.Interior.ColorIndex = 3
   
10.             Else
    
11.                 Rng.Interior.ColorIndex = 0
    
12.             End If
    
13.         Next
    
14.     Next
    
15.     MsgBox "OK！"
    
16. End Sub
    
17. 
    

复制代码

ncow

用录制宏的方式，设置一个条件格式，代码就出来啦

韩有如

ykcbf1100 发表于 2024-2-20 16:27
参与一下。。。

非常感谢！功能已实现