If Time < TimeValue("8:45:00") Or Time > TimeValue("13:46:00") Then Exit Sub
'If Sheet1.Range("¤j¥x¦¨¥æ¶q") = LastVol1 Then Exit Sub
pos1 = Application.Match(Sheet1.Range("¤j¥x®É¶¡"), Sheet1.Range("®É¶¡¤@"), 1) + 301
If pos1 > 601 Then pos1 = 601
¦¨¥æ»ù = Sheet1.Range("¤j¥x¦¨¥æ»ù")
¦¨¥æ¶q = Sheet1.Range("¤j¥x¦¨¥æ¶q")
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) = ¦¨¥æ¶q - LastVol1
LastVol1 = ¦¨¥æ¶q
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) + ¦¨¥æ¶q - LastVol1
LastVol1 = ¦¨¥æ¶q
End If
End If
³o¬O¦¬¶°K½uªº¤ù¬qVBA
·í¤¤¥Î¨ìMATCH ¥i¬O¸Ì±¨S¦³³]©w¦h¤[RUN¤@¦¸
¨º¬O¤@ª½´`Àô¶Ü?
X®y¼Ð(®É¶¡¤@)¤w¸g¥ý¥´¦n¤F 09:00,09:01,09:02......
¦A¥ÎMATCH¤ñ¹ï²{¦b®É¶¡(¤j¥x®É¶¡) ¨º«ç»òª¾¹D¦h¤[¤ñ¹ï¤@¦¸ÁÙ¬O¤£Â_¦b¤ñ¹ï? |