如何用EXCEL里面的VBA语言判断数值的奇偶？

如题，望达人指教！

比如，我有一个整型值Y,那么用EXCEL里面的VBA如何判定其为奇还是为偶？请帮忙给出语句，谢谢！
补充一下：不是在EXCEL表格里面，是在VBA程序里面

举报该问题

推荐答案 2007-02-18

可以用函数:
=IF(MOD(Y,2)=1,"奇数","偶数")

在VBA中是这样的:
ActiveCell.FormulaR1C1 = "=IF(MOD(Y,2)=1,""奇数"",""偶数"")" 可用RC的值更改对哪个单元格进行判断,如RC[-1]所以表示前一单元格

温馨提示：答案为网友推荐，仅供参考

当前网址：http://77.wendadaohang.com/zd/Yv8Wp3Y8.html

第1个回答 2007-02-15

假设你的这个数值所在单元格为A1

在单元格B1可以输入公式

=IF(MOD(A1,2)=1,"奇数","偶数")

B1就显示奇数或偶数

第2个回答 2007-02-15

这种问题？？
你是学计算机的？
大学生?

相似回答

请问用Excel,vba编程——从键盘接收5个数,判断其中奇数偶数的个数,怎...答：（一）VBA程序代码：Sub input_n()Dim j1, j2, j3, str1On Error Resume NextFor j1 = 0 To 4 '执行5次循环 j2 = InputBox("数值=", "请输入数值") '输入对话框 j3 = j3 & " " & j2 '数据拼接 If j2 Mod 2 = 0 Then '如果余数是0，则为偶数 str1 = str1 & "...

Excel中的VBA编程中怎么样编程判断奇偶数,并且把奇数涂成红色,偶数涂成...答：For i = 1 To 20 a = i Mod 2 '求2的余数,余数是0的是偶数.If a = 0 Then Range("A" & i).Interior.ColorIndex = 3 '改变背景色 Else Range("A" & i).Font.ColorIndex = 4 '改变字的颜色 End If Next End Sub 下面是excel默认颜色编号列表 ...

请教,使用 Excel VBA编程,如何判断某一按钮被敲击的是奇次,还是偶数...答：static i as long i=i+1 if i mod 2= 0 then msgbox "偶数"else msgbox "奇数"end if

Excel VBA 不可一世的宏,条件判断语句你知道如何使用吗视频时间 03:15

EXCEL VBA 如何判断一列单元格里的数字是否完全一致?答：固定六个数吗？思路：循环单元格呗。循环到某个单元格，再循环字符。先判断字符长度，循环从1到字符长度的字符，当字符位置是奇数时判断是不是等于上一个字符。如果循环完全部相等，则进行着色及标记处理，如果有一个不相等的，跳出循环，进行下一个单元格。具体的代码需要原表。需要可私信。

求助excel vba中如何判断3个以上的区域是否有交集?答：你可以使用 Intersect 方法来判断：With ActiveSheet Set isect = Application.Intersect(.Range("A1:A5"), .Range("B1:B5"), .Range("C1:C5"), .Range("D1:D5"), .Range("E1:E5"))If isect Is Nothing Then MsgBox "Ranges do not intersect"Else isect.Select End If End With ...

excel中如何用VBA判断一个单元格的内容是不是数字?答：还有1种是用Excel的函数：判断 A1单元格 T= Application.WorksheetFunction.IsNumber(Range("a1"))如果 T 返回True 则为数字，否则不是

大家正在搜

奇偶函数的判断口诀 vba语言上传文件的语句 excel如何编程语言奇偶性判断 VBA语言专家 excel宏编程用什么语言宏编写用什么语言奇偶函数图像函数奇偶性

Excel中的VBA编程中怎么样编程判断奇偶数，并且把奇数涂...

excel中如何用VBA判断一个单元格的内容是不是数字？

Excel中如何用VBA判断行数？

Excel中的VBA编程中怎么样编程判断奇偶数，并且把奇数涂...

C语言判断奇偶怎么判断？

在excel VBA中如何判定单元格中的数据类型是整数还是其...

Excel中如何用VBA判断行数

EXCEL中如何编写VBA判断循环多行单元格数值及赋值.