作者doun (DoDo)
看板Visual_Basic
標題[VBA ] 迴圈問題
時間Mon Jan 26 19:42:06 2015
目前正在寫一個練習excel vba的會計系統
但目前寫了一個迴圈，自己看不出問題，但卻跳不出迴圈
以下是我的程式碼
其中 x, y 是日期格式 z 為工作表名稱
假設 x = 2015/1/1
y = 2015/1/31
--
Sub 抓取資料(x, y, z)
For i = x To y
Set a_1 = Worksheets("資料庫").Columns("B").Find(what:=i)
MsgBox a_1
If Not a_1 Is Nothing Then Call 填入資料(z, a_1)
Next
End Sub
--
結果執行這段城市的時候 會一直卡在MsgBox a_1的地方
不斷跳出2015/1/1，無法跳到下一天
請大家協助看一下到底是怎麼了q _ q
原始檔案：
http://ppt.cc/IPVR
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 175.180.175.72
※ 文章網址: https://webptt.com/m.aspx?n=bbs/Visual_Basic/M.1422272529.A.98A.html
1F：→ sosokill: 日期可以直接用++的? 01/27 11:25
2F：→ doun: 我有試過 可以 01/27 19:16
3F：→ sosokill: 很久沒有寫VB了 你有試著攔一下斷點看看每一次的I值嗎 01/28 19:18
4F：→ hulapig: 試試MsgBox a_1.value 01/29 07:38
5F：→ wenyonba: 老實說我沒去研究原po的問題，不過我看到沒有 02/03 15:59
6F：→ wenyonba: option explicit 的 code 我都很抖... 02/03 16:00