作者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/m.aspx?n=bbs/PLT/M.1477402066.A.F65.html