小弟想請教一下各位大大 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/m.aspx?n=bbs/Visual_Basic/M.1502942939.A.90D.html