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

¡y¤w¸Ñ¨M¡zdde tick¸ê®ÆÂà´«¤ÀÄÁ¸ê®Æ

¡y¤w¸Ñ¨M¡zdde tick¸ê®ÆÂà´«¤ÀÄÁ¸ê®Æ

¥»©«³Ì«á¥Ñ ko310kmo ©ó 2011-5-10 23:06 ½s¿è

§Ú¬O¨Ï¥Î¥ÃÂת÷ªº(e-leader)ªºDDE
§Ú¨C¤é³£·|¿z¿ï¥X§Ú¤µ¤Ñ·QÆ[¹îªº¼i¬ù»ù¡A¦C¦bSheet1
¨Ã¥H¦U§O¼i¬ù»ù©R¦W·s¼W¤u§@ªí¡A°O¿ý¤U¥¦ªº§Y®É¸ê®Æ

§Ú²{¦bªº°ÝÃD¦b©óe-leader¬O¢ì¢ì¢í¬O¨S¦³¤é´ÁÄæ¦ì
§Ú·Q¦b¨C­Ó¤u§@ªí¤¤¢ØÄæ¤À§O¬ö¿ý¤U¥¦­Ìªº§Y®É¸ê®Æ
¦A¢ØÄ檺¹j¾À·Q°O¤U¥¦­Ì¨C¤ÀÄÁªº¶}¡B°ª¡B¦¬¡B§C¡B¦¨¥æ¶q
¦³·Qªk¡A¦ý«o¤£ª¾¸Ó±q¦ó°µ°_¡I¡I
½Ð¦U¦ì¤j¤jÀ°¦£¡I¡I¡@ÁÂÁÂ
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

¹ï©óµ{¦¡¦³ÂI¤£¤F¸Ñ¡A«ç»òµ¥«Ý¤@¤ÀÄÁ¡Aµ¥«ÝK½u¤£´N·|¥¢¯u¡A°ªÂI§CÂI§ì¤£·Ç¡Aµ{¦¡À³¸Ó­n¤£°±¤ñ¸û°ª§CÂI¤~¹ï¡I

TOP

·PÁ¤À¨É

¾Ç¨ì«Ü¦h

ÁÂÁÂ

TOP

¦^´_ 15# GBKEE


«D±`·PÁ¤j¤jªºÀ°¦£¡A¤w¸Ñ¨M§Úªº°ÝÃD¤F¡I¡I¡I
¤£¹L¢´¡þ¢°¢¯¤é¡A¦A¦¸´ú¸ÕÁÙ¬O±o¨ì¬Û¦Pªºµ²ªG
ok.5.10.rar (74.4 KB)
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¥»©«³Ì«á¥Ñ ko310kmo ©ó 2011-5-10 23:04 ½s¿è

¦^´_ 15# GBKEE


    ¤j¤j
¡yµ{¦¡¤@°õ¦æ«áª½¨ì   Loop Until Time <= #1:30:00 PM#  ¤~°±¤îªº¡z
³o­Ó§ÚÀ´¡A¦ý«Ü©_©Çªº¬O

§Ú13¼ÓªþªºÀÉ
¬O¥ý°õ¦æ test1¡Aµ¥¥¦¶]§¹¦A°õ¦ætest3
³o¼Ë¬O¥i¥H¨C¤À§ó·sªº

¦pªG§Ú¬O¥ý°õ¦ætest1¦A°õ¦ætest2¡A¨S¦³³]©wtest3
³o¼Ë¤ÀÄÁ¸ê®Æ¥u·|§ó·s²Ä¤@¹M¡C

§Úµ¥©ú¤é¶}½L«á¡A¦A´ú¸Õ¬Ý¬Ý¡A
ÁÂÁ¤j¤jªºÀ°¦£:)
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 14# ko310kmo
¡ySub test3()
    Call test2
    TickTime = Now + TimeValue("00:01:00")
    Application.OnTime TickTime, "test3"
End Sub¡z
¦æ¤£³qªº µ¹§Aªºµ{¦¡¤@°õ¦æ«áª½¨ì   Loop Until Time <= #1:30:00 PM#  ¤~°±¤îªº
¦³¨Æ ¼È®É­n¤U½u¤F!

TOP

¦^´_ 11# GBKEE


¤j¤j
§Ú«á¨Ó¦Û¤w¦A´ú¸Õ
§â¤j¤j¦b¤»¼Ó¡@¼gªºµ{¦¡§ï¶K¨ì¡@¤@¯ë¼Ò²Õ
¨Ã¦A¼g¤@­Ó
¡ySub test3()
    Call test2
    TickTime = Now + TimeValue("00:01:00")
    Application.OnTime TickTime, "test3"
End Sub¡z

´N¥i¥H§¹¦¨¨C¤Àªº¸ê®Æ§ó·s¡A¦Ó¥B¤£·|§â§Ú­ì¥»dde¼g¤Jªº¤½¦¡¬~±¼¡A
¤]´N¬O§Ú­ì¥»¦b²Ä¤Q¼Ó©Ò»¡ªº°ÝÃD¡C

¦ý¨Ì·|¥X²{§Ú²Ä¢°¢±¼Ó
³Ì§C»ù³ºµM¤ñ¦¬½L»ù°ªªº°ÝÃD¡I¡I

ªþ¤W­×§ï«á¡B°õ¦æ«áªºÀɮסA
Àµ½Ð¤j¤j±Ð¾É¡I¡I
ÁÂÁ¡B·P¿E¤£ºÉ:)
³Ì«á´ú¸Õ.rar (44.46 KB)
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 12# ko310kmo
¥i¥ÎÄæ¦ìªº­^¤å¦r¥Àªí¥Ü  Cells(1, "J") =>Range("J1")  
³Ì§C»ù³ºµM¤ñ¦¬½L»ù°ª   ­×¥¿¦p¤U
  1. Sub Ex()
  2.     Dim t As Date, i%, R%, P%
  3.     With Sheet1
  4.         R = .[B1].End(xlDown).Row
  5.         Do
  6.             ReDim AR(1 To 6, 2 To R)
  7.             t = Time
  8.             For i = 2 To R
  9.                 AR(1, i) = TimeSerial(Hour(Time), Minute(Time), 0)   '¨C¤ÀÄÁ®É¶¡
  10.                 AR(2, i) = .Cells(i, 3)   '¨C¤ÀÄÁªº¶}½L»ù
  11.                 AR(3, i) = .Cells(i, 3)   '¨C¤ÀÄÁªº³Ì°ª»ù
  12.                 AR(5, i) = .Cells(i, 3)   '¨C¤ÀÄÁªº³Ì§C»ù
  13.                 'AR(6, i) = .Cells(i, 4)   '¨C¤ÀÄÁªº¦¨¥æ¶q
  14.             Next
  15.         If Minute(Time) = Minute(t) Then
  16.             Do While Minute(Time) = Minute(t)
  17.                 For i = 2 To R
  18.                     DoEvents
  19.                     AR(3, i) = IIf(.Cells(i, 3) > AR(3, i), .Cells(i, 3), AR(3, i)) '¨C¤ÀÄÁªº³Ì°ª»ù
  20.                     AR(5, i) = IIf(.Cells(i, 3) < AR(5, i), .Cells(i, 3), AR(5, i)) '¨C¤ÀÄÁªº³Ì§C»ù
  21.                     '  AR(6, i) = AR(6, i) + .Cells(i, 4)                             '¨C¤ÀÄÁªº¦¨¥æ¶q
  22.                 Next
  23.             Loop
  24.             For i = 2 To R
  25.                 AR(4, i) = .Cells(i, 3)                '¨C¤ÀÄÁªº¦¬½L»ù
  26.                 P = Sheets(.Cells(i, 2).Text).Cells(Row.Count, "J").End(xlUp).Row + 1
  27.                 Sheets(.Cells(i, 2).Text).Range("J" & P).Resize(1, 6) = Application.Index(Application.Transpose(AR), i - 1)
  28.             Next
  29.         End If
  30.         Loop Until Time <= #1:30:00 PM#
  31.     End With
  32. End Sub
½Æ»s¥N½X

«Øij¦¹µ{§Ç ¥ÎThisWorkbookªºµ{§Ç ¦Û°Ê°õ¦æ
Private Sub Workbook_Open()
        Ex
End Sub

TOP

¥»©«³Ì«á¥Ñ ko310kmo ©ó 2011-5-9 11:12 ½s¿è

¦^´_ 11# GBKEE


ÁÂÁ¤j¤j
¤µ¤Ñ¸Õ¶]µ{¦¡¡A§Ú¦Û¦æ¦A°µ¤FÂI­×§ï«á
µo²{¤F¤@­Ó°ÝÃD
´N¬O³Ì§C»ù³ºµM¤ñ¦¬½L»ù°ª
§Ú·Q¥i¯à¬O¦]¬°§Ú­Ì¦b¤@¶}©l´N AR(4, i) = .Cells(i, 3)
©Ò¥Hµ{¦¡´N§ì³Ì¤@¶}©lªºCells(i, 3)
½Ð°Ý¸Ó¦p¦ó­×§ï?

¥t¥~¦A½Ð±Ð
¤j¤j©Ò¼gªº
P = Sheets(.Cells(i, 2).Text).Cells(Rows.Count, "J").End(xlUp).Row + 1
½Ð°Ý·í¤¤¬°¤°»ò­n¼g¡y¡¨¢Ø¡¨¡z

ÁÂÁ¤j¤jªº±Ð¾É
°}¦C.rar (23.02 KB)
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-5-9 07:41 ½s¿è

¦^´_ 10# ko310kmo
¸Óª«¥ó RowS
P = Sheets(.Cells(i, 2).Text).Cells(RowS.Count, "J").End(xlUp).Row + 1

8¼ÓªºªþÀɦ³Ãø«×
Sheet1¨C¤@¼i¬ù»ù­n¦³, §Y®É¦¨¥æ»ùªºÅܰʮɶ¡ ¤Î¦¨¥æ¶qªºÅܰʮɶ¡,¨Ó°Ñ¦Òªº ¤~¥i­pºâ ¤@¤ÀÄÁ¤º §Y®É¦¨¥æ»ùªº¦¨¥æ¶qªºÁ`©M
PS: ¦¨¥æ¶q¦³ÅÜ°Ê,§Y®É¦¨¥æ»ù¤£¤@©w¦³ÅÜ°Ê.

TOP

        ÀR«ä¦Û¦b : ¦³Ä@©ñ¦b¤ß¸Ì¡A¨S¦³¨­Åé¤O¦æ¡A¥¿¦p¯Ñ¥Ð¤£¼½ºØ¡A¬Ò¬OªÅ¹L¦]½t¡C
ªð¦^¦Cªí ¤W¤@¥DÃD