小弟想请教一下各位大大
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