ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ½Ð±Ð match K½u °ÝÃD?

[µo°Ý] ½Ð±Ð match K½u °ÝÃD?

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¤ñ¹ï?

¥»©«³Ì«á¥Ñ luhpro ©ó 2012-9-15 00:30 ½s¿è
If Time < TimeValue("8:45:00") Or Time > TimeValue("13:46:00") Then Exit Sub
'If Sheet1.Range("¤j¥x ...
¦A¥ÎMATCH¤ñ¹ï²{¦b®É¶¡(¤j¥x®É¶¡) ¨º«ç»òª¾¹D¦h¤[¤ñ¹ï¤@¦¸ÁÙ¬O¤£Â_¦b¤ñ¹ï?...
seemee µoªí©ó 2012-9-14 13:18

Æ[¹î¸Ó¬qµ{¦¡¤¤,
°ß¤@»P®É¶¡¦³Ãöªºµ{¦¡½X¬°:
If Time < TimeValue("8:45:00") Or Time > TimeValue("13:46:00") Then Exit Sub
µM¦Ó³o¬qµ{¦¡½Xªº¥\¯à¶È¶È¬O§PÂ_­Y«D½L¤¤®É¶¡«h¸õ¥X¦¹ Sub ¤£°õ¦æ¨ä¤ºªº¨ä¥L§@·~.

¦Ó
pos1 = Application.Match(Sheet1.Range("¤j¥x®É¶¡"), Sheet1.Range("®É¶¡¤@"), 1) + 301
«h¥u¬O°õ¦æ¤@­Ó­pºâ§@·~ªºµ{¦¡½X.

¬G¦Ó§A·Q­nª¾¹D¨ì©³¬O¦h¤[¤ñ¹ï¤@¦¸ªº«ü¥O¨Ã¤£¦b§A©Ò´£¨Ñªºµ{¦¡¬q¤¤.
¦¹¬qµ{¦¡½X(¨C³æ¦¸¤ñ¹ï°Ê§@)°õ¦æÀW²v­n¬Ý¹ê»Ú¤W¨ä©Ò¦bªº Sub °Ï¶ô¦h¤[·|³Q©I¥s¤@¦¸(¶È©ó½L¤¤®É¬q).

TOP

¦^´_ 2# luhpro


    ÁÙ¬O§Ú§âVBAÀÉ®× ¶Ç¤W¨ÓÅý§A¬Ý¬Ý
  ³o¼Ë¦n¶Ü?

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¤£¤@©w²y²y¬O¦n²y¡A¦ý¬O¦³¾ú½mªº±j¥´ªÌ¡AÀH®É³£¥i¥H´§´Î¡C
ªð¦^¦Cªí ¤W¤@¥DÃD