[VBA ] 迴圈問題
目前正在寫一個練習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://www.ptt.cc/bbs/Visual_Basic/M.1422272529.A.98A.html
→
01/27 11:25, , 1F
01/27 11:25, 1F
→
01/27 19:16, , 2F
01/27 19:16, 2F
→
01/28 19:18, , 3F
01/28 19:18, 3F
→
01/29 07:38, , 4F
01/29 07:38, 4F
→
02/03 15:59, , 5F
02/03 15:59, 5F
→
02/03 16:00, , 6F
02/03 16:00, 6F
討論串 (同標題文章)
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章