Office中国论坛/Access中国论坛

标题: 求一个判断奇偶的自定义函数 [打印本页]

作者: heijingang 时间: 2015-5-16 00:34
标题: 求一个判断奇偶的自定义函数
我最近在研究彩票，自已做了一些图表，我想做个判断奇偶的自定义函数，但因VBA太浅，请坛子时的高人们指点。

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

作者: roych 时间: 2015-5-16 09:07
excel 2007版本以上有个公式，iseven——判断偶数，isodd——判断奇数。
新建一个模块，将以下代码输入

Function getOdd(ByVal rng As Range) As String
If IsNumeric(rng) Then
Select Case rng.Value Mod 2
Case 0
getOdd = "偶数"
Case 1
getOdd = "奇数"
Case Else
getOdd = "小数"
End Select
Else
getOdd = "文本"
End If
End Function

复制代码

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

作者: heijingang 时间: 2015-5-16 18:04
谢谢楼主。。。。。。。。。。。。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)