[已解决]求一个条件格式的代码

兰色幻想

103不是正在标准范围内吗？95~105

  

兰色幻想

你举个例子，哪个数字填充颜色不对了

lzclzch

兰色幻想 发表于 2011-7-24 15:08
怎么通不过了？

直径	边长	厚度
726	101	306
726	93	306

边长101没有颜色 厚度306 没有颜色
只有红色字体的有颜色

lzclzch

兰色幻想 发表于 2011-7-24 15:08
怎么通不过了？

我发了附件
不能按标准进行颜色填充

兰色幻想

条件格式不是已设置好了吗？要用VBA设置？现在不是挺好的吗？

lzclzch

兰色幻想 发表于 2011-7-24 09:44
条件格式不是已设置好了吗？要用VBA设置？现在不是挺好的吗？

是的，数据多了很卡啊
看用VBA会不会好点

兰色幻想

那我就帮你设置一个VBA版本的吧

lzclzch

兰色幻想 发表于 2011-7-24 10:57
那我就帮你设置一个VBA版本的吧

十分感谢{:011:}

兰色幻想

F13单元格的值是748，它即满足黄色的条件，又满足红色的条件，怎么填充

兰色幻想

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 5 And Target.Column > 8 Then Exit Sub
Dim m, n, o, p, x, v
Dim arr
arr = Range("j3:x" & Range("j65536").End(xlUp).Row)
For x = 1 To UBound(arr)
    If Cells(Target.Row, 3) >= arr(x, 1) And Cells(Target.Row, 3) <= arr(x, 2) And Cells(Target.Row, 4) = arr(x, 3) Then
      m = arr(x, Choose(Target.Column - 5, 4, 8, 12))
      n = arr(x, Choose(Target.Column - 5, 5, 9, 13))
      o = arr(x, Choose(Target.Column - 5, 6, 10, 14))
      p = arr(x, Choose(Target.Column - 5, 7, 11, 15))
     End If
Next x
v = Target.Value
If v < n Or v > o Then
  Target.Interior.ColorIndex = 6
ElseIf v < m Or v > p Then
   Target.Interior.ColorIndex = 3
End If
Stop
End Sub