作者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/cn.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