改成
If e.Col.Name = "F_PAEZ_CHECKBOX1" If e.Row("F_PAEZ_CHECKBOX1") = 0 Then e.Row("F_PAEZ_CHECKBOX1") = 1 ElseIf e.Row("F_PAEZ_CHECKBOX1") = 1 Then e.Row("F_PAEZ_CHECKBOX1") = 0 End IfEnd If