|
本帖最后由 ljzzlan 于 2011-4-17 21:43 编辑
我想在A列任意单元格输入数值,然后在B列对应位置显示 "输入是否奇偶数",如果输入是偶数,则在对应单元格显示为偶数,反之为奇数,请问该如何写代码???
我写的代码如下,肯定有问题,请老师们指点,为谢!!函数就不必说了,谢谢!!!!
Sub jo()
Dim i As Integer, y As Integer
i = Range("a1")
y = i Mod 2
y = Range("b1")
If i Mod 2 = 0 Then
y = "你输入的是" & i & ",他是一个偶数"
Else
y = "你输入的是" & i & ",他是一个奇数"
End If
End Sub
这是在A1单元格输入数值,在对应的B1输入 是否为(奇偶)数???有错!!!!如果是判断A列呢???
本帖最后由 放浪形骸 于 2011-4-17 22:15 编辑
用一个循环,从A1到An。。。。 - Sub jo()
- Dim i As Integer, y As Integer
- Dim x As Integer
- For x = 1 To Range("a65536").End(xlUp).Row
- i = Range("a" & x).Value
- y = i Mod 2
- If y = 0 Then
- Cells(x, 2).Value = "你输入的是" & i & ",他是一个偶数"
- Else
- Cells(x, 2).Value = "你输入的是" & i & ",他是一个奇数"
- End If
- Next
- End Sub
复制代码
|
|