作者gofee (撞墙的青蛙)
看板PLT
标题[问题] VBA 双回圈输入单一格
时间Tue Oct 25 21:27:43 2016
作业题目是用VBA找出特定两数字间所有偶数
我的答案
-------------------------------------
Sub test()
Dim i As Integer
Dim c As Integer
a = InputBox("enter the initial number")
b = InputBox("enter the end number")
For i = a To b
If i Mod 2 = 0 Then
c = c + 1
End If
Next i
For i = a To b
If i Mod 2 = 0 Then
Cells(i - a + 1, 1) = i
End If
Next i
MsgBox "偶数数量: " & c
End Sub
-------------------------------------
问题来了
虽然没要求列出偶数的格式
我自己想要的格式是
所有偶数从A1到A10逐一输入
但这要用到两个回圈
我想的方法是
For i = a To b
If i Mod 2 = 0 Then
For d = 1 to c
Cells(c , 1) = i
Next d
End If
Next i
输出情况
却是(1,1)到(c,1)都是b
请各位大大释疑 感恩
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 120.107.188.26
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/PLT/M.1477402066.A.F65.html