求一句命令的写法，老师帮帮忙。

hwc2ycy

条件格式这个肯定没戏的。

stockding111

hwc2ycy 发表于 2013-6-3 13:48
条件格式这个肯定没戏的。

   晕~~~      

stockding111

hwc2ycy 发表于 2013-6-3 13:48
条件格式这个肯定没戏的。

老师，这个是条件格式填充颜色的条件
If (x >= 239 And x <= 241) Or (x >= 269 And x <= 271) Or (x >= 359 And x <= 361) Or (x >= 59 And x <= 61) Or (x >= 179 And x <= 181) Or (x >= 119 And x <= 121) Or (x >= 89 And x <= 91) Or (x >= 0 And x <= 1) Then

加上这些条件，又办法实现我那个诉求吗？
   

hwc2ycy

条件格式的没法判断。
你只能根据条件来测试符是否符合条件。

无聊的疯子

stockding111 发表于 2013-6-3 13:55
老师，这个是条件格式填充颜色的条件
If (x >= 239 And x = 269 And x = 359 And x = 59 And x = 179 An ...

将你条件格式中的条件直接放到代码中来判断,直接处理,不需要重新设置条件格式

无聊的疯子

stockding111 发表于 2013-6-3 13:55
老师，这个是条件格式填充颜色的条件
If (x >= 239 And x = 269 And x = 359 And x = 59 And x = 179 An ...

代码中的条件应该从小到大或从大到小排列,不能这样混排

给你写了一个自定义函数,用来判断给定的一个值是否在设置的条件内,如果在则返回 true ,否则返回 false

1. 
   
2. Private Function Tf(ByVal Num As Double) As Boolean
   
3.   Select Case Num
   
4.     Case 0 To 1, 59 To 61, 89 To 91, 119 To 121, 179 To 181, 239 To 241, 269 To 271, 359 To 361
   
5.     Tf = True
   
6.   Case Else
   
7.     Tf = False
   
8.   End Select
   
9. End Function
   

复制代码

调用方法很简单

1. 
   
2. Sub cc()
   
3.   MsgBox Tf(125)
   
4.   MsgBox Tf(121)
   
5. End Sub
   

复制代码

无聊的疯子

stockding111 发表于 2013-6-3 13:55
老师，这个是条件格式填充颜色的条件
If (x >= 239 And x = 269 And x = 359 And x = 59 And x = 179 An ...

再修改一下,方便你一次使用多个单元格

1. 
   
2. Private Function Tf(ParamArray Num() As Variant) As Boolean
   
3. Dim X As Byte, T As Boolean
   
4.   For X = LBound(Num) To UBound(Num)
   
5.     Select Case Num(X)
   
6.       Case 0 To 1, 59 To 61, 89 To 91, 119 To 121, 179 To 181, 239 To 241, 269 To 271, 359 To 361
   
7.         T = True
   
8.       Case Else
   
9.         T = False
   
10.     End Select
    
11.     If T = False Then Exit For
    
12.   Next X
    
13.   Tf = T
    
14. End Function
    
15. 
    
16. Sub cc()
    
17.   MsgBox Tf(Range("B3").Value, Range("C3").Value)
    
18. End Sub
    

复制代码

stockding111

无聊的疯子 发表于 2013-6-3 16:44
代码中的条件应该从小到大或从大到小排列,不能这样混排

给你写了一个自定义函数,用来判断给定的一个值 ...

谢谢热心的老师！！！

stockding111

无聊的疯子 发表于 2013-6-3 17:35
再修改一下,方便你一次使用多个单元格

老师，举个例子让我这个菜鸟学习下吧：
如果“E5：L51”和“Q5：X51”两个区域的单元格符合以下条件的，则用红色颜色填充。怎么写呢？
条件是“Case 0 To 1, 59 To 61, 89 To 91, 119 To 121, 179 To 181, 239 To 241, 269 To 271, 359 To 361”

无聊的疯子

stockding111 发表于 2013-6-3 20:14
老师，举个例子让我这个菜鸟学习下吧：
如果“E5：L51”和“Q5：X51”两个区域的单元格符合以下条件的， ...

以单个单元格为条件么？？

还是以区域中的行为单位做条件？？