龙空技术网

VBA/Excel实例系列——奇偶判断

excel技能宝典 153

前言:

现时兄弟们对“vb 自定义函数 判断奇偶”大约比较着重,小伙伴们都想要分析一些“vb 自定义函数 判断奇偶”的相关资讯。那么小编同时在网摘上搜集了一些对于“vb 自定义函数 判断奇偶””的相关内容,希望朋友们能喜欢,各位老铁们快快来了解一下吧!

Part 1:逻辑过程

采用一个函数,传入需要检查的整除函数内部采用求余数运算,余数为0则为偶数,反之奇数其中求余VBA函数为Mod官方帮助文件:Integer 变量存储为 16位(2 个字节)的数值形式,其范围为 -32,768到32,767 之间所有超过Integer范围的会报错

Part 2:代码

Function f01_奇偶判断(num As Integer) Rem>>判断数字的奇偶性 Rem>> Dim remainderNum remainderNum = num Mod 2 If remainderNum = 0 Then f01_奇偶判断 = "偶数" Else f01_奇偶判断 = "奇数" End IfEnd Function

Part 3:调用该函数

 num = 11 Status = f01_奇偶判断(num) If Status = "偶数" Then MsgBox num & "是偶数" Else MsgBox num & "是奇数" End If

标签: #vb 自定义函数 判断奇偶 #vba判断奇偶数 #excel的vba怎么判断奇数偶数 #vb怎么判断奇偶性 #vba判断奇偶数函数