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

heijingang

我最近在研究彩票，自已做了一些图表，我想做个判断奇偶的自定义函数，但因VBA太浅，请坛子时的高人们指点。

判断指定的单元格为空或数据大于2位或是文本结束程序
如果指定单元格为 0，2，4，6，8， 为偶，
如果指定单元格为1，3，5，7，9    为奇

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的奇偶性了。

heijingang

谢谢楼主。。。。。。。。。。。。