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

[µo°Ý] [¤w¸Ñ¨M]§Q¥ÎEXCEL»s§@K½u®É¹J¨ì®É¶¡©µ¿ð°ÝÃD

[µo°Ý] [¤w¸Ñ¨M]§Q¥ÎEXCEL»s§@K½u®É¹J¨ì®É¶¡©µ¿ð°ÝÃD

¥»©«³Ì«á¥Ñ jiuhtsair ©ó 2012-1-31 20:00 ½s¿è

¦U¦ì¤j¤j¦n¡G ¥x«ü1¤ÀK.zip (36.24 KB) ²{³f¤j½L5¤ÀK.zip (30.67 KB)
     ¤p§Ì¬°¤F»s§@K½u¤w¸g§xÂZ¤@¬q®É¶¡¤F¡I
     ¤]´¿§V¤Oª¦¤å¡A½×¾Â¸Ì¦h¦ì°ª¤â³£´¿¹ï¬ÛÃöijÃD¦³³\¦hÄ_¶Q¤èªk..
       §Ì¤]§Q¥Îºô¸ô¤W½u¦³ªº¸ê·½­×§ï«á±o¨ìK½u¹Ï¡A¦ý¹J¨ì¤@­Ó°ÝÃD...
       ´N¬O­è¶}©l±µ¦¬¸ê®Æ®ÉOK...¦ýºCºCªº®É¶¡·|©µ¿ð..
       ­ì¥»À³¸Ó¦b00¬í¶}©l·sªºK ½u¸ê®Æ..«oºCºCÅܦ¨01¬í..02¬í...03¬í..
       §Ì²q·QÀ³¸Ó¬O¦aªº­p®É¤è¦¡¬O§Q¥Î¥»¨­¹q¸£¦Ó«DDDEªº¨t²Î®É¶¡ªº½t¬G..
       ¥i¬ODDEªº¶Ç¿é¿ï¶µ¤¤¤]¨S¦³¨t²Î®É¶¡¥i¥H®Õ¹ï...
       ¬O§_¥i¥H½Ð¤j¤j­ÌÀ°¤p§Ì¸Ñ´b¡H
     ·P®¦¡I
     ¨Ã¯¬¤j®a·s¦~§Ö¼Ö¡B¸U¨Æ¦p·N¡BÂó©²¥­¦w¡I
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

t=Time

Sub( )

if minute(Time)=mintute(t)  then
..
t=Dateadd("n",1,Time)
...
Else
..

TOP

¦^´_ 6# jiuhtsair
½Ð±Ð¤@¤U¡A§A¬JµM¬O¥H¤@¤ÀÄÁ¤~¼g¤J¤@µ§¸ê®Æ¡A¬°¦ó¤£¥Î 60 ¦Ó¬O 58¡H
§Ú¶¶¤â±NªÑ²¼¹Ïª±¤F¤@¤U¤U¡AO¡BH¡BL¡BC ªº³B¸ÌÁÙÆZ¤Á¹ê»Úªº¡A¦]½L¤¤¨é°Ó¤§H¡BL ³£¤£¤Ó......

¥x«ü1¤ÀK.rar (20.31 KB)

TOP

½Ð°Ýª©¤j
    j = 2
¶}©l°õ¦æ«ç»ò
j=1

TOP

¦^´_ 4# GBKEE
·PÁÂGBKEE¤j¤j¡I
¤@¸ÕOK¡I
¤@¸Ñ¼Æ¤ë¨Óªº§xÂZ¡I
·PÁ¡I
±z....¤Ó...¤Ó¼F®`¤F¡I
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 2# GBKEE

ÁÂÁ¤j¤j«ü¾É..
¤µ¤Ñ¶}©l¤W¯Z...©Ò¥H..
³o¨â¤Ñ©â­Ó®É¶¡¶]¶]¬Ý;¦A¦V¤j¤j³ø§iµ²ªG¡I
·P®¦¡I
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 3# jiuhtsair
§A©ú¤Ñ¸Õ¸Õ«Kª¾¤F

TOP

¦^´_ 2# GBKEE
ÁÂÁÂGBKEE¤j¤jªº«ü¾É...
´N§Ìªº¤F¸Ñ...
µ{¦¡¤@¶}©l¦]¬°i¤£µ¥©ó58
©Ò¥Hµ{¦¡°õ¦æelse¥H«áªº³¡¥÷
¤]´N¬O°õ¦æL¡BHªº§P©w
·íi=58®É
¤~±N¼Æ­È¼g¤JO¡BH¡BL¡BV¡BCµ¥Äæ¦ì
³Ì«á¦A±NiÂk0...§Î¦¨°j°éªº§ÎºA...
³o¬O§Ìªº¤£¦¨¼ô¬Ýªk..
©|½ÐGBKEE¤j¤j«ü¾É..
ÁÂÁ¡I
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 1# jiuhtsair
Private Sub ExeSelf()
    On Error Resume Next
    i = i + 1
    If i = 58 Then    '*¦Ü¤Ö­n°õ¦æ ExeSelf 58¦¸      
        Sheets(2).Cells(j, 1) = Time
        Sheets(2).Cells(j, 2) = O
        Sheets(2).Cells(j, 3) = H
        Sheets(2).Cells(j, 4) = L
        Sheets(2).Cells(j, 5) = C
        Sheets(2).Cells(j, 6) = V
        j = j + 1
        i = 0: V = 0                                          
       '¥i¬O³o¸Ì i Âk¹s¤F : ¨º«e­±ªº If i = 58 Then ¤S­nµ¥°õ¦æ ExeSelf 58¦¸        
        O = Sheets(1).Cells(2, 2)
        V = V + Sheets(1).Cells(2, 4)
        H = O: L = O: C = O
    Else
        '¥H¤U§PÂ_°j°éÅý§ë¸êÅv­«»P§ë¸ê¼Ðªºª«¦WºÙ³]©w¡A¶È°õ¦æ¤@¦¸
        C = Sheets(1).Cells(2, 2)
        If C > H Then H = C
        If C < L Then L = C
        V = V + Sheets(1).Cells(2, 4)
'        Sheets(2).Cells(i, 1) = Sheets(1).Cells(2, 2)
    End If
        Application.OnTime Now + TimeValue("00:00:01"), "ThisWorkBook.ExeSelf"
End Sub

TOP

        ÀR«ä¦Û¦b : ¯u¥¿ªº·R¤ß¡A¬O·ÓÅU¦n¦Û¤vªº³oÁû¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD