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

无聊的疯子

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

如果以单元个单元格为条件，修改自定义函数为自定义过程，做一点小的修改就可以了

运行 CC，参数就照着那样设置就行了

1. 
   
2. Private Sub Rg(ByVal Num As Range)
   
3. Dim T As Range
   
4.   For Each T In Num
   
5.     If Len(T.Value) > 0 Then
   
6.       Select Case T.Value
   
7.         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
   
8.         T.Interior.ColorIndex = 3
   
9.       End Select
   
10.     End If
    
11.   Next
    
12. End Sub
    
13. Sub CC()
    
14.   Rg Range("E5:L51,Q5:X51")
    
15. End Sub
    

复制代码

stockding111

无聊的疯子 发表于 2013-6-3 20:58
以单个单元格为条件么？？

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

以单个单元格为条件