[VBA ] 迴圈問題

看板Visual_Basic作者 (DoDo)時間9年前 (2015/01/26 19:42), 編輯推噓0(006)
留言6則, 4人參與, 最新討論串3/4 (看更多)
目前正在寫一個練習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
很久沒有寫VB了 你有試著攔一下斷點看看每一次的I值嗎
01/28 19:18, 3F

01/29 07:38, , 4F
試試MsgBox a_1.value
01/29 07:38, 4F

02/03 15:59, , 5F
老實說我沒去研究原po的問題,不過我看到沒有
02/03 15:59, 5F

02/03 16:00, , 6F
option explicit 的 code 我都很抖...
02/03 16:00, 6F
文章代碼(AID): #1KnYWHcA (Visual_Basic)
討論串 (同標題文章)
文章代碼(AID): #1KnYWHcA (Visual_Basic)