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

[µo°Ý] DDE Äæ¦ì¬O°Ñ·Ó , ­n¦p¦ó¨ú¥X­È¦Ó«D¾ã¦ê°Ñ·Ó

¦b«ü©w®É¶¡¤º±NÄæ¦ì¥N¤J¼Æ¦r

Test.rar (19.14 KB)

¤p©fªº³o­Ó¤u§@ªí
¬O­n¨C¹j¤@¬q®É¶¡´N¦Û°Ê¥i°O¿ý¥æ©ö¶q
¨ä¤¤¨C¤é¦Û°Ê±N¸ê®Æ¤U²¾¨Ã´¡¤J¤µ¤é¤é´Áªº³¡¥÷¤w¸g²×©ó¼g¥X¨Ó¤F :Q

¦ý­n¦b«ü©w®É¶¡¤º±N C2 ³o­ÓÄæ¦ì¤ºªº­È½Æ»s¨ì«ü©wªº B__ Äæ¦ì¤¤
³o³¡¥÷«Ü©Ç¤£ºÞ«ç»ò¼g³£¨S¿ìªk¦¨¥\¹B§@ ><"

¹ê¦b¬O¸Õ¤£¥X¨Ó...¥u¯à¦V¦U¦ì¤j¤j¨D§U¤F... T_T
¤p©f¦b¦¹¦V¦U¦ì¤j¤j¨D±Ð¤F Orz

TOP

¥»©«³Ì«á¥Ñ owen06 ©ó 2013-12-27 09:38 ½s¿è

¦^´_ 1# saleen


    ®É¶¡©Î¤é´Áªº®æ¦¡«e«á­n¥Î ##¡A¤£¯à¥Î""¡Atimevalue¤~­n¥Î¨ì""¡A¥i¬O¥Lªø³o¼Ë¡Gtimevalue("08:04:00")
    §A§â¥L§ï¦¨³o¼Ë´N·|¦³§@¥Î¤F¡G
    If Time > #8:04:00 AM# < #5:04:30 PM# Then

TOP

¦^´_  saleen


    ®É¶¡©Î¤é´Áªº®æ¦¡«e«á­n¥Î ##¡A¤£¯à¥Î""¡Atimevalue¤~­n¥Î¨ì""¡A¥i¬O¥Lªø³o¼Ë¡Gtim ...
owen06 µoªí©ó 2013-12-27 09:36



    ¦nªº§Ú¸Õ¥«¬Ý ~ ·PÁ¤j¤j
¤p©f¦b¦¹¦V¦U¦ì¤j¤j¨D±Ð¤F Orz

TOP

¦^´_  saleen


    ®É¶¡©Î¤é´Áªº®æ¦¡«e«á­n¥Î ##¡A¤£¯à¥Î""¡Atimevalue¤~­n¥Î¨ì""¡A¥i¬O¥Lªø³o¼Ë¡Gtim ...
owen06 µoªí©ó 2013-12-27 09:36



    ÁÙ¬O¨S¥Î...
¤@¼Ë¬O¨t²Î®É¶¡¨ì¤F«á¤£·|¥h§ó·s ><?...
¤p©f¦b¦¹¦V¦U¦ì¤j¤j¨D±Ð¤F Orz

TOP

³oÃäµo¤W§Ú·Ó Mico ½×¾Â¤Wªº¬ÛÃö°ÝÃD¤§¸Ñµª¨Ó¿é¤Jªº®æ¦¡

Sub recordData()

With ¤u§@ªí2


Dim szTime As String

szTime = Time

' Setting For Time Constraints


If szTime > #2:25:00 PM# And szTime < #2:25:10 PM# Then


.[C2].Copy .[B5]

End If

End With
End Sub


·Ó²z»¡À³¸Ó­n¦b 2:25:00 ¨ì 2:25:10 ¤¤¶¡
¤@ª½§â C2 ½Æ»s¨ì B5 ¤~¹ï

¤£ª¾¹D¬°¤°»ò´N¬O¨S¦³§@¥Î ><


´N©R  T__T
¤p©f¦b¦¹¦V¦U¦ì¤j¤j¨D±Ð¤F Orz

TOP

¦^´_ 5# saleen


  ¦]¬°§Aªº¥¨¶°¸Ì¡A¨Ã¨S¦³§iª¾¨t²Î­n¦b¦ó®É¥h«ü¦ærecordData³o­Ó¥¨¶°¡C
  ¤]´N¬O»¡recordData³o­Ó¥¨¶°¬O³Q°Êªº¡A¥u¦³·í§A¤â°Ê¥h°õ¦æ¥Lªº®É­Ô¡A¥L¤~·|¦³§@¥Î¡C
  §A¥i¥H¦bworkbook open¸Ì¥[¤J call recordData ªº«ü¥O
    Private Sub Workbook_Open()
    timerEnabled = False
    Call timerStart            ' µ{¦¡¤@±Ò©l¡A«K¥h¦Û°Ê°õ¦æ timerStart
    Call recordData
    End Sub
  
  µM«á±NrecordData¤º®e­×§ï¦p¤U¨Ã±N¥L±qthiswoorkbook²¾¨ì¼Ò²Õ¸Ì¡A
  ³o¼Ë¥L¤~·|¥D°Êªº¥h°õ¦æ§A­nªº°Ê§@¡C
  1. Sub recordData()
  2. t = Now + TimeSerial(0, 1, 0)
  3. With ¤u§@ªí2
  4. If Time > #11:10:00 AM# And Time < #11:18:00 AM# Then
  5. .[C2].Copy .[c5]
  6. End If
  7. End With
  8. Application.OnTime t, "recordData"
  9. End Sub
½Æ»s¥N½X

TOP

¦^´_ 5# saleen


    ¸É¥R¤@¤U¡A
    t = Now + TimeSerial(0, 1, 0)
    application.ontime t , "recordData"
   ³o¬Oªí¥Ü¨C¹j¤@¤ÀÄÁ´N·|­«½Æ°õ¦æ¤@¦¸³o­Ó¥¨¶°ªº«ü¥O¡A
   ¦pªG§A·Q­n¨C¬íÄÁ°õ¦æ¤@¦¸¡A´N§ï¦¨Timeserial(0,0,1),
   timeseril¸Ì­±ªº¼Æ¦r¤À§O¥Nªíªº¬O®É¡B¤À¡B¬í¡C

TOP

¦^´_  saleen


    ¸É¥R¤@¤U¡A
    t = Now + TimeSerial(0, 1, 0)
    application.ontime t , "re ...
owen06 µoªí©ó 2013-12-31 12:10



    ·PÁÂ owen ¤j¤j !
¤p©f¤w¸g¦¨¥\Åý¥¦¶}©l¹B§@¤F
¤Ó·PÁ¤F ><
¤p©f¦b¦¹¦V¦U¦ì¤j¤j¨D±Ð¤F Orz

TOP

[µo°Ý] DDE Äæ¦ì¬O°Ñ·Ó , ­n¦p¦ó¨ú¥X­È¦Ó«D¾ã¦ê°Ñ·Ó

¤p©f§Ú§¹¦¨¤F¤W¦¸ªº
¦b«ü©w®É¶¡°O¿ý·í¤UÁ`¶qªº¥\¯à
·Q»¡´ú¸Õ¨S°ÝÃD´N§â¥¦®M¶i DDE ¸Ì
µ{¦¡½X¦p¤U

Sub recordData()

With ¤u§@ªí2

If Time > #9:00:00 AM# And Time < #9:00:15 AM# Then

.[B2].Copy .[F5]

End If

If Time > #9:05:00 AM# And Time < #9:05:05 AM# Then

.[B2].Copy .[G5]

End If

If Time > #9:15:00 AM# And Time < #9:15:05 AM# Then

.[B2].Copy .[H5]



µ²ªG.....
B2 ³o­ÓÄæ¦ì¦]¬°¬O±q DDE ¼´¥X¸ê®Æ©Ò¥H¥¦¦b Excel ¸Ì­±¬Oªø³o¼Ë B2 =XQTISC|Quote!'FITX*1.TF-TotalVolume'

©ó¬O©Ò¦³ªºF5,G5,H5.... ¥þ³£¦b°O¿ý®É°O¿ý¦¨ XQTISC|Quote!'FITX*1.TF-TotalVolume'

³o¼Ë´N§¹¥þ¨S§@¥Î¤F T_______________T
§Ú¤£¬O­n°O¿ý DDE ¦Ó¬O­n·í¤Uªº¼Æ­Èªü :'(


¥u¦n¦A¦V¦U¬°¤j¤j¨D§U¤F..:'(
¤p©f¦b¦¹¦V¦U¦ì¤j¤j¨D±Ð¤F Orz

¦^´_ 9# saleen

¸Õ¸Õ¬Ý
  1. .[F5]=.[B2].Value
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : Ä@­n¤j¡B§Ó­n°í¡B®ð­n¬X¡B¤ß­n²Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD