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

Question

如题所述

Answer 1

其实条件格式就可以解决（比如单元格B1，条件格式，公式，=MOD(B1,2)=1，格式填充红色）

如果你非要用VBA，代码如下：
Sub test()
Dim cell As Range
For Each cell In Range("A1:B4")
If cell <> "" Then
If cell Mod 2 = 1 Then
cell.Interior.Color = vbRed
Else
cell.Interior.Color = vbGreen
End If
End If
Next cell
End Sub
请自己修改粗体部分