excel 如何判断3列数值奇偶

选择A列

格式--条件格式--公式

=AND(MOD(A1,2)=0,MOD(B1,2)=0,MOD(C1,2))

点击“选项”设置颜色为红色 确定即可

给你编了个vba宏（已通过测试），把横线下面的代码放在
一个模块里面然后把代码里面的“sheet1”替换成你的表格
的名字，运行这个宏就可以了！希望对你有用！
------------------------------------------
Sub test()
Dim i, a As Integer
a = Application.CountA(Sheets("sheet1").Columns(1))
For i = 1 To a
If Sheets("sheet1").Cells(i, 1).Value Mod 2 = 0 And Sheets("sheet1").Cells(i, 2).Value Mod 2 = 0 And Sheets("sheet1").Cells(i, 3).Value Mod 2 <> 0 Then
Sheets("sheet1").Cells(i, 1).Font.ColorIndex = 3
End If
Next i
End Sub

你使用条件格式
选中A1,然后格式>条件格式>
公式里面输入
=AND(ISEVEN(A1)=TRUE,ISEVEN(B1)=TRUE,ISODD(C1)=TRUE)
设置格式为红色.
就可以了,其他行用格式刷一下就好了.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim x As Long
x = Val(Right(Target.Address, Len(Target.Address) - 3))
If Rang