標題: [發問] 請教 match K線 問題? [打印本頁] 作者: seemee 時間: 2012-9-14 13:18 標題: 請教 match K線 問題?
If Time < TimeValue("8:45:00") Or Time > TimeValue("13:46:00") Then Exit Sub
'If Sheet1.Range("大台成交量") = LastVol1 Then Exit Sub
pos1 = Application.Match(Sheet1.Range("大台時間"), Sheet1.Range("時間一"), 1) + 301
If pos1 > 601 Then pos1 = 601
成交價 = Sheet1.Range("大台成交價")
成交量 = Sheet1.Range("大台成交量")
If Not (Application.WorksheetFunction.IsNA(pos1) Or Application.WorksheetFunction.IsErr(pos1)) Then
If Sheet1.Cells(pos1, 2) = "" Then
Sheet1.Cells(pos1, 2) = 成交價
Sheet1.Cells(pos1, 3) = 成交價
Sheet1.Cells(pos1, 4) = 成交價
Sheet1.Cells(pos1, 5) = 成交價
Sheet1.Cells(pos1, 6) = 成交量 - LastVol1
LastVol1 = 成交量
Else
If 成交價 > Sheet1.Cells(pos1, 3) Then
Sheet1.Cells(pos1, 3) = 成交價
End If
If 成交價 < Sheet1.Cells(pos1, 4) Then
Sheet1.Cells(pos1, 4) = 成交價
End If
Sheet1.Cells(pos1, 5) = 成交價
Sheet1.Cells(pos1, 6) = Sheet1.Cells(pos1, 6) + 成交量 - LastVol1
LastVol1 = 成交量
End If
End If
If Time < TimeValue("8:45:00") Or Time > TimeValue("13:46:00") Then Exit Sub
'If Sheet1.Range("大台 ...
再用MATCH比對現在時間(大台時間) 那怎麼知道多久比對一次還是不斷在比對?...
seemee 發表於 2012-9-14 13:18
觀察該段程式中,
唯一與時間有關的程式碼為:
If Time < TimeValue("8:45:00") Or Time > TimeValue("13:46:00") Then Exit Sub
然而這段程式碼的功能僅僅是判斷若非盤中時間則跳出此 Sub 不執行其內的其他作業.