看着自己写的代码挺别扭，请大侠看看能简化不？

a20089668

                If c = 0 Or c = 1 Then
                    .Cells(i, 22).Interior.ColorIndex = 3
                End If
                If c = 2 Or c = 3 Then
                    .Cells(i, 23).Interior.ColorIndex = 3
                End If
                If c = 4 Or c = 5 Or c = 6 Then
                    .Cells(i, 24).Interior.ColorIndex = 3
                End If
                If c = 7 Or c = 8 Or c = 9 or c = 10 Or c = 11 Or c = 12 Then
                    .Cells(i, 25).Interior.ColorIndex = 3
                End If

c的值一定是0-12内的数了，就4个区间，0-1、2-3、4-6、7-12
我也曾用区间  如  2 =< c < 4 这样去搞，但也有3、4个if语句，总觉得啰嗦，不够效率，假如 i 的值很大的话，相信要处理很久的。
所以上论坛来求帮助，恳请大侠赐教。

opiona

试试：

1.     Select Case C
   
2.         Case 0, 1
   
3.             .Cells(i, 22).Interior.ColorIndex = 3
   
4.         Case 2, 3
   
5.             .Cells(i, 23).Interior.ColorIndex = 3
   
6.         Case 4, 5, 6
   
7.             .Cells(i, 24).Interior.ColorIndex = 3
   
8.         Case 7, 8, 9, 10, 11, 12
   
9.             .Cells(i, 25).Interior.ColorIndex = 3
   
10.         Case Else
    
11.             MsgBox "不在范围内"
    
12.     End Select

复制代码

liulang0808

select，看看这个吧

a20089668

opiona 发表于 2016-9-4 10:44
试试：

感谢，
已经简化成
                Select Case CInt(a) + CInt(b)
                Case 0, 1
                    .Cells(i, 22).Interior.ColorIndex = 3
                Case 2, 3
                    .Cells(i, 23).Interior.ColorIndex = 3
                Case 4, 5, 6
                    .Cells(i, 24).Interior.ColorIndex = 3
                Case Else
                    .Cells(i, 25).Interior.ColorIndex = 3
                End Select

比原来要好。

屌爆了z

1. If c = Int(c) Then
   
2. m = Application.VLookup(c, [{-1,22;2,23;4,24;7,25;13,0}], 2, 1)
   
3. .Cells(i, m).Interior.ColorIndex = 3
   
4. End If

复制代码

a20089668

屌爆了z 发表于 2016-9-4 12:20

屌爆了，我刚看到，但好像不通啊。
c为不确定的整数，

假设c为3时
又或者为5时
待会测试一下。

a20089668

屌爆了z 发表于 2016-9-4 12:20

很好，测试通过。
但这句(c, [{-1,22;2,23;4,24;7,25;13,0}], 2, 1)，我看不明白。可以为我解释一下吗？

当c=12是就报错。

-1从哪里得来？
花括号加中括号，搞得我头晕。