Excel中的VBA编程中怎么样编程判断奇偶数，并且把奇数涂成红色，偶数涂成绿色？怎么弄？高手帮忙！谢了！

Question

Excel中的VBA编程中怎么样编程判断奇偶数，并且把奇数涂成红色，偶数涂成绿色？怎么弄？高手帮忙！谢了！

Answer 1

给你写了个例子, 例子里改变背景颜色的和改变字体颜色的都写了 ,你自己参考使用吧

Sub test()

For i = 1 To 20

    a = i Mod 2 '求2的余数,余数是0的是偶数.

    If a = 0 Then

        Range("A" & i).Interior.ColorIndex = 3 '改变背景色

    Else

        Range("A" & i).Font.ColorIndex = 4 '改变字的颜色

    End If

Next

End Sub 

下面是excel默认颜色编号列表

 

 

Answer 2

全选以後

格式化设定条件
条件1公式＝isodd(A1)
样式改为红色
条件2公式＝iseven(A1)
样式改为绿色

注意游标是停在A1的位置