[VBA ] 迴圈問題

[doun (DoDo)]

目前正在寫一個練習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
→ sosokill: 日期可以直接用++的?
→ doun: 我有試過 可以
→ sosokill: 很久沒有寫VB了   你有試著攔一下斷點看看每一次的I值嗎
→ hulapig: 試試MsgBox a_1.value
→ wenyonba: 老實說我沒去研究原po的問題，不過我看到沒有
→ wenyonba: option explicit 的 code 我都很抖...