如何在vba里边判断数的奇偶性然后给予对应单元格值！！！！

Question

如果x 是大于1的奇数，coeffi就是4，偶数的话，coeff就是2

求解！！！！

Answer 1

奇数、偶数是根据能否被2整除来区分的，整数才有这个区分，小数是无所谓奇数、偶数的，判断奇数偶数的一般方法是整除2测试，例子代码如下：

 
Sub test()
    Dim x
    For Each x In Array(7, 8, 9)
        If x Mod 2 = 1 Then
            MsgBox x & "是奇数"
        Else
            MsgBox x & "是偶数"
        End If
    Next x
End Sub

如果你需要把1.1的整数部分进行判断， 可以使用int或者round函数转换，如果是当11进行判断，可以使用*10运算为整数。