小弟想请教一下各位大大 Sub time_now() Sheet1.Range("B23").Value = Time End Sub Dim Time1 As Boolean Sub Schedule() If Sheet1.Range("B23").Value > Sheet1.Range("B19").Value And Sheet1.Range("B23").Value < Sheet1.Range("B20").Value Then Time1 = True ElseIf Sheet1.Range("B23").Value > Sheet1.Range("B21").Value Or Sheet1.Range("B23").Value < Sheet1.Range("B22").Value Then Time1 = True Else Time1 = False End If Dowhile Time1 = True DoEvents If Sheet2.Cells(2, 2) = 1 Then '当这个栏位值为1的时候开始纪录 Call record '把DDE值抓到EXCEL的副程式 Call timer_Start 'timer开始 End If Loop End Sub Sub timer_Start() '开始timer 每秒call Schedule一次 Application.OnTime Now + TimeValue("00:00:01"), "Schedule", Schedule:=True End Sub Sub timer_Stop() On Error Resume Next '停止timer Application.OnTime Now + TimeValue("00:00:01"), "Schedule", Schedule:=False End Sub Sub record() '纪录DDE资料的副程式 Sheet2.Cells(2, 2) = Sheet2.Cells(2, 2) + 1 '这栏用来记录现在行数 Sheet2.Cells(Sheet2.Cells(2, 2), 3) = Sheet1.Range("F11") Sheet1.Range("B23").Value = Time '假设DDE要记录的值在 Sheet1的(1,1)这个栏位 '将这资料存在 Sheet2中 End Sub 我从吹顶版那边找了一个大大的范例来更改 加了if判别时间还有DOWHILE回圈想让他在时间里面一直重复 但是原本执行是没问题的只是要一直按执行才会动 可是加了我自己写的部分就有问题了 还请各位大大们帮我看一下问题出在哪儿? 感谢各位大大 https://i.imgur.com/2bXnGLK.jpg -- http://i.imgur.com/FirYZSf.png 假的 --

※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 61.219.220.97 ※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Visual_Basic/M.1502942939.A.90D.html