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

½Ð°Ý¸Ó¦p¦ó±NDDEªº¼Æ¾Ú¡u¨C¬í¡v¬ö¿ý¡H

½Ð°Ý¸Ó¦p¦ó±NDDEªº¼Æ¾Ú¡u¨C¬í¡v¬ö¿ý¡H

¥»©«³Ì«á¥Ñ j1221 ©ó 2011-12-27 09:06 ½s¿è

¦U¦ì«e½ú¦n¡A

¤p§Ì¤§«e´¿¸gµo°Ý¹L¡A¡u½Ð°Ý¦p¦ó±N¥H³s±µEXCELªºDDE¼Æ¾Ú¨C¤ÀÄÁ¬ö¿ý¤U¨Ó¡H¡v

¦ý¬O¤§«á¦³¤@¦ìºô¤Í¦b«áÄòªº°Q½×¤¤¡A°Ý¤F¡u¸Ó¦p¦ó¬ö¿ý¨C¬í¡vªº¸ê®Æ¡A§Ú­ì¥ý·Q¸ÕµÛ¦^µª¥L¡A©Ò¥H§Ú§â­ì¥ýªºCoode:
  1. Private Sub change()
  2.     Dim TimeRange As Range, Rng As Range, R As Range
  3.     With Sheet8
  4.         Set TimeRange = .[A:A].Find(TimeSerial(Hour(Time), Minute(Time), 0), LookIn:=xlFormulas)
  5.         Set Rng = TimeRange.Offset(, 1).Resize(1, 15)
  6.     End With
  7.     Rng.Value = Sheet1.[B8:P8].Value
  8.    
  9.     If Time > TimeValue("13:45:00") Then Exit Sub
  10.     Application.OnTime Now + TimeValue("00:01:00"), "ThisWorkbook.change"
½Æ»s¥N½X
§ï¦¨
  1. Private Sub change()
  2.     Dim TimeRange As Range, Rng As Range, R As Range
  3.     With Sheet8
  4.         Set TimeRange = .[A:A].Find(TimeSerial(Hour(Time), Minute(Time), Second(Time)), LookIn:=xlFormulas)
  5.         Set Rng = TimeRange.Offset(, 1).Resize(1, 15)
  6.     End With
  7.     Rng.Value = Sheet1.[B8:P8].Value
  8.       
  9.     If Time > TimeValue("13:45:00") Then Exit Sub
  10.     Application.OnTime Now + TimeValue("00:00:01"), "ThisWorkbook.change"
½Æ»s¥N½X
¥i¬O«o¨S¿ìªk¨Ï¥Î¡A¤@°õ¦æ¥¨¶°´N·|¸õ¥X¡u¨S¦³Withª«¥ó¡A©Î¬OWithª«¥ó¿ù»~¡v

¥i§_½Ð°Ý¬°¤°»ò³o¼Ë§ï¤£¦æ©O¡HÁÂÁ¤j®a

ps:¹ïÀ³ªºExcel®É¶¡¸ê®Æ®æ¡A¤]¤w¸g§ó§ï
§Ú·R³Â»¶®a±Ú°Q½×°Ï¡I¡I

¦b³ocode¤¤¦³¼g¨ìsheet8
§A½T©wexcelÀɮפ¤¦³¦³³o­Ó¤u§@ªí

TOP

¦^´_ 2# kobo

¦³ªº¡A¦]¬°­ì¥ýªºcode¬O¥i¥H°õ¦æªº¡I
§Ú·R³Â»¶®a±Ú°Q½×°Ï¡I¡I

TOP

¦^´_ 3# j1221
ªþÀɤW¨Ó,¬Ý¬O¨º¸Ì¥X¿ù¿ù»~.

TOP

¦^´_ 4# GBKEE

ÁÂÁÂGBKEE¤j¡A½Ð°Ñ¾\ªþ¥ó¡C

OP.rar (190.29 KB)
§Ú·R³Â»¶®a±Ú°Q½×°Ï¡I¡I

TOP

¦^´_ 5# j1221

    Set TimeRange = .[A:A].Find(TimeSerial(Hour(Time), Minute(Time), Second(Time)), LookIn:=xlFormulas)

¥i¯à³o¥y¦]¬°§ä¤£¨ìTimeSerial(Hour(Time), Minute(Time), Second(Time))³o­Ó­È³y¦¨¤U¤@¥y
Set Rng = TimeRange.Offset(, 1).Resize(1, 15)¦]¬°TimeRange=Nothing¦Ó¥X²{¿ù»~
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 6# Hsieh


ÁÂÁÂHsieh¤j¡I §Ú¦bSheet8¤w¸g§â©Ò¦³ªº®É¶¡§ï¦¨ hh:mm:ss¤Fªü..... ¨º¥i§_½Ð°Ý¸Ó«ç»ò§ï©O¡H
§Ú·R³Â»¶®a±Ú°Q½×°Ï¡I¡I

TOP

¦^´_ 5# j1221
¦b"08:45:00"<->"13:45:00" ¶¡ °õ¦æSub change ¨S¦³ 6#¶Wª©»¡ªº°ÝÃD
¦p"08:45:00"<->"13:45:00" ®É¶¡¥~ °õ¦æSub change §A³o¿ù»~¬O·|²£¥Íªº

TOP

¦^´_ 8# GBKEE

ÁÂÁÂGBKEE¤j¡A§Ú¤µ¤Ñ½L¤¤¤S¸Õ¤F¤@¦¸¡Aµ²ªG¥i¥H¤FäM....

¤£ª¾¹D«ç»ò·d±o....³Ò·Ð¦U¦ì¤F:$
§Ú·R³Â»¶®a±Ú°Q½×°Ï¡I¡I

TOP

¦^´_ 6# Hsieh

ÁÂÁÂHsieh¤j¡A§Ú¤µ¤Ñ½L¤¤¤S¬O¤F¤@¦¸¡Aµ²ªG¥i¥H¤F....¤£ª¾¹D¬°¬Æ»ò¡A³Ò·Ð¤F¡A·PÁ±z¡I:)
§Ú·R³Â»¶®a±Ú°Q½×°Ï¡I¡I

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤H¤£©È¿ù¡A´N©È¤£§ï¹L¡A§ï¹L¨Ã¤£Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD