½Ð°Ý¸Ó¦p¦ó±NDDEªº¼Æ¾Ú¡u¨C¬í¡v¬ö¿ý¡H
- ©«¤l
- 50
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 69
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows XP
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- Taiwan
- µù¥U®É¶¡
- 2010-6-21
- ³Ì«áµn¿ý
- 2015-1-11
|
½Ð°Ý¸Ó¦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:- Private Sub change()
- Dim TimeRange As Range, Rng As Range, R As Range
- With Sheet8
- Set TimeRange = .[A:A].Find(TimeSerial(Hour(Time), Minute(Time), 0), LookIn:=xlFormulas)
- Set Rng = TimeRange.Offset(, 1).Resize(1, 15)
- End With
- Rng.Value = Sheet1.[B8:P8].Value
-
- If Time > TimeValue("13:45:00") Then Exit Sub
- Application.OnTime Now + TimeValue("00:01:00"), "ThisWorkbook.change"
½Æ»s¥N½X §ï¦¨- Private Sub change()
- Dim TimeRange As Range, Rng As Range, R As Range
- With Sheet8
- Set TimeRange = .[A:A].Find(TimeSerial(Hour(Time), Minute(Time), Second(Time)), LookIn:=xlFormulas)
- Set Rng = TimeRange.Offset(, 1).Resize(1, 15)
- End With
- Rng.Value = Sheet1.[B8:P8].Value
-
- If Time > TimeValue("13:45:00") Then Exit Sub
- 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
|
|
|
|
|
- ©«¤l
- 37
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 41
- ÂI¦W
- 0
- §@·~¨t²Î
- windows xp
- ³nÅ骩¥»
- 2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-7
- ³Ì«áµn¿ý
- 2018-2-10
|
¦b³ocode¤¤¦³¼g¨ìsheet8
§A½T©wexcelÀɮפ¤¦³¦³³oÓ¤u§@ªí |
|
|
|
|
|
|
- ©«¤l
- 50
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 69
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows XP
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- Taiwan
- µù¥U®É¶¡
- 2010-6-21
- ³Ì«áµn¿ý
- 2015-1-11
|
¦^´_ 2# kobo
¦³ªº¡A¦]¬°ì¥ýªºcode¬O¥i¥H°õ¦æªº¡I |
|
§Ú·R³Â»¶®a±Ú°Q½×°Ï¡I¡I
|
|
|
|
|
- ©«¤l
- 50
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 69
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows XP
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- Taiwan
- µù¥U®É¶¡
- 2010-6-21
- ³Ì«áµn¿ý
- 2015-1-11
|
¦^´_ 4# GBKEE
ÁÂÁÂGBKEE¤j¡A½Ð°Ñ¾\ªþ¥ó¡C
OP.rar (190.29 KB)
|
|
§Ú·R³Â»¶®a±Ú°Q½×°Ï¡I¡I
|
|
|
|
|
- ©«¤l
- 50
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 69
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows XP
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- Taiwan
- µù¥U®É¶¡
- 2010-6-21
- ³Ì«áµn¿ý
- 2015-1-11
|
¦^´_ 6# Hsieh
ÁÂÁÂHsieh¤j¡I §Ú¦bSheet8¤w¸g§â©Ò¦³ªº®É¶¡§ï¦¨ hh:mm:ss¤Fªü..... ¨º¥i§_½Ð°Ý¸Ó«ç»ò§ï©O¡H |
|
§Ú·R³Â»¶®a±Ú°Q½×°Ï¡I¡I
|
|
|
|
|
- ©«¤l
- 50
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 69
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows XP
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- Taiwan
- µù¥U®É¶¡
- 2010-6-21
- ³Ì«áµn¿ý
- 2015-1-11
|
¦^´_ 8# GBKEE
ÁÂÁÂGBKEE¤j¡A§Ú¤µ¤Ñ½L¤¤¤S¸Õ¤F¤@¦¸¡Aµ²ªG¥i¥H¤FäM....
¤£ª¾¹D«ç»ò·d±o....³Ò·Ð¦U¦ì¤F:$ |
|
§Ú·R³Â»¶®a±Ú°Q½×°Ï¡I¡I
|
|
|
|
|
- ©«¤l
- 50
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 69
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows XP
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- Taiwan
- µù¥U®É¶¡
- 2010-6-21
- ³Ì«áµn¿ý
- 2015-1-11
|
¦^´_ 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
|
|
|
|
|