求一个判断奇偶的自定义函数

roych

excel 2007版本以上有个公式，iseven——判断偶数，isodd——判断奇数。
新建一个模块，将以下代码输入

1. Function getOdd(ByVal rng As Range) As String
   
2. If IsNumeric(rng) Then
   
3.     Select Case rng.Value Mod 2
   
4.         Case 0
   
5.             getOdd = "偶数"
   
6.         Case 1
   
7.             getOdd = "奇数"
   
8.         Case Else
   
9.             getOdd = "小数"
   
10.     End Select
    
11. Else
    
12.     getOdd = "文本"
    
13. End If
    
14. End Function
    

复制代码

然后在单元格输入=getOdd(A1)之类即可判断A1的奇偶性了。