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

[µo°Ý] ½Ð°Ý¦p¦ó±N¥H³s±µEXCELªºDDE¼Æ¾Ú¨C¤ÀÄÁ¬ö¿ý¤U¨Ó¡H

[µo°Ý] ½Ð°Ý¦p¦ó±N¥H³s±µEXCELªºDDE¼Æ¾Ú¨C¤ÀÄÁ¬ö¿ý¤U¨Ó¡H

ªO¥D¡A¦U¦ì«e½ú¤j®a¦n

¨ä¹ê³o­Ó°ÝÃD¡A§Ú¤§«e¤w¸g¦b½׾«ôŪ¹L¬ÛÃö¤å³¹¡A¤×¨ä¬Ojimmy¤jªº¨º½g¸g¨å¤å³¹
¦]¬°¤p§Ì¥»¨­ªº°µªk©M¬Ý½L³nÅé¡]§Ú¬O¥Îyeswin¡^¸ò¤§«ejimmy¤jªº¤£¤@¼Ë
©Ò¥H§Ú§âGBKEE¤j¤À¨Éªºµ{¦¡½Xµy·L§ï¤F¤@¤U¡A¥i¬OÁÙ¬O¤£¯à¥Î....¬G·Q½Ð°ÝGBKEE¤j¡A§Ú¸Ó«ç»ò§ï¤~¥i¥H¨Ï¥Î

½Ð¥ýÅý§Ú²³æ»¡©ú§Úªº³]©w¡G
1.¤p§Ì¬O¥ý±N©Ò¦³§Ú»Ý­nªº¸ê®Æ¡]´ÁÅv¡^¥þ³¡³£¥ý¶°¤¤¦b¤@­Ó¤u§@ªí(sheet 1)¤¤¡]³o¥i¯à¸ò¨ä¥L«e½ú¤£¤@¼Ë¡^
2.¦A¬D¥X§Ú¤µ¤ÑÃöª`ªº¬Y¤@ÀÉ¡]¤ñ¦p»¡¤j¥x¡^¡A¦A±N¤j¥xªº¬ÛÃö¸ê°T«ü¦V²Ä¤G­Ó¤u§@ªí(sheet 2)
3.§Ú§Æ±æ¯à±N¤j¥xªº¨C¤@¤ÀÄÁ¸ê®Æ³£¬ö¿ý¦bsheet 2¸Ì

¤]´N¬O»¡¡A§Ú¤£¬Oª½±µ¬ö¿ýDDE¦^¶Çªº¸ê®Æ¡A§Ú¬O¬ö¿ýsheet 1¤¤¸ê®Æ®æªºÅÜ°Ê¡A
©Ò¥H§Ú±NGBKEE¤jªºµ{¦¡½Xdownload§ï¦¨¤Fchange¡A¥i¬OÁÙ¬O¤£¯à¥Î....¥i§_½Ð°ÝGBKEE¤j¡A§Ú¸Ó«ç»ò§ï¤~¥i¥H¨Ï¥Î¡H

½Ð¬d¾\§Úªþ¤WªºÀɮסA·PÁ¦U¦ì

DDE(Yeswin).xls.zip (25.87 KB)

§Ú·R³Â»¶®a±Ú°Q½×°Ï¡I¡I

¥»©«³Ì«á¥Ñ GBKEE ©ó 2010-7-1 17:33 ½s¿è

¦^´_ 1# j1221
¸Õ¸Õ¬Ý
  1. Private Sub Workbook_Open()
  2. If Time >= TimeValue("08:45:00") And Time <= TimeValue("13:45:00") Then
  3. Sheet2.[B7:G307] = ""
  4. change
  5. Else
  6. Application.OnTime "09:01:00", "ThisWorkbook.change"
  7. End If
  8. End Sub
  9. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  10. Private Sub change()
  11.     Dim TimeRange As Range, Rng As Range, R As Range
  12.     With Sheet2
  13.         Set TimeRange = .[A:A].Find(Format(TimeSerial(Hour(Time), Minute(Time), 0), "hh:mm"), LookIn:=xlValues)
  14.         Set Rng = TimeRange.Offset(, 1).Resize(1, 6)
  15.         Set R = Application.Evaluate(Mid(.Range("A3").Formula, 2))
  16.         'R ¬OA3ªº¤½¦¡ =Data!B2 ©Ò«üªº¦ì¸m
  17.     End With
  18.     Rng.Value = R.Offset(, 1).Resize(, 6).Value
  19.     If Time > TimeValue("13:45:00") Then Exit Sub
  20.     Application.OnTime Now + TimeValue("00:01"), "ThisWorkbook.change"
  21. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ j1221 ©ó 2010-7-2 09:00 ½s¿è

¦^´_ 2# GBKEE


¥ýÁÂÁÂGBKEE¤jªº¦^´_¡I¡I

¤p§Ì­è­è¸Õ¤F¡A¶K¤Wµ{¦¡½X«á«öF5°õ¦æ¡A¥X²{¡u¨S¦³³]©wª«¥óÅܼƩΠWith °Ï¶ôÅÜ¼Æ (¿ù»~ 91)¡vªº°T®§.....
°»¿ù«á¡AÅã¥Ü¦³°ÝÃDªº³¡¥÷¬°¡ySet Rng = TimeRange.Offset(, 1).Resize(1, 6)¡z¡A¥i§_½Ð°Ý³o¬O¤°»ò­ì¦]©O¡H

ÁÙ¦³¥t¤@°Ý·Q½Ð±Ð±z¡A¥i§_½Ð°Ý±z¬°¤°»ò»Ý­n
¡ySet R = Application.Evaluate(Mid(.Range("A3").Formula, 2))
        'R ¬OA3ªº¤½¦¡ =Data!B2 ©Ò«üªº¦ì¸m¡z

¦]¬°§Ú¹ê»Ú¤W·Q­n°O¿ýªº¬O±NSheet1 ªºC2-H2°O¿ý¦ÜSheet2ªºB7-G7¡AµM«á¨Ì®É¶¡¶¶§Ç©¹¤U°O¿ý
Sheet1!A3 «ü¦VSheet2!B2 ¥u¬O§Ú¬°¤F­n¤è«K¿ë»{¥Ø«e°O¿ýªº¶µ¥Ø¡A½Ð°Ý±z³o¼Ë³]©w¬O¦³¤°»ò¯S§Oªº§@¥Î¶Ü¡H

¦A¦¸ÁÂÁ±zªºÀ°§U
§Ú·R³Â»¶®a±Ú°Q½×°Ï¡I¡I

TOP

¦^´_ 3# j1221
¥X²{¡u¨S¦³³]©wª«¥óÅܼƩΠWith °Ï¶ôÅÜ¼Æ (¿ù»~ 91)¡vªº°T®§.....

½Ð°Ý§A´ú¸Õ®Éªº®É¶¡¬OSheet2ªºAÄæ¸Ì¦³ªº®É¶¡¶Ü?
2.¦A¬D¥X§Ú¤µ¤ÑÃöª`ªº¬Y¤@ÀÉ¡]¤ñ¦p»¡¤j¥x¡^¡A¦A±N¤j¥xªº¬ÛÃö¸ê°T«ü¦V²Ä¤G­Ó¤u§@ªí(sheet 2)

®Ú¾Ú§A»¡ªº ©Ò¥H->   Set R = Application.Evaluate(Mid(.Range("A3").Formula, 2))
    ** R ¬OA3ªº¤½¦¡ =Data!B2 ©Ò«üªº¦ì¸m ->¤µ¤ÑÃöª`ªº¬Y¤@ÀÉ

¦pªG§A­n
¹ê»Ú¤W·Q­n°O¿ýªº¬O±NSheet1 ªºC2-H2°O¿ý¦ÜSheet2ªºB7-G7

¨º§A§ï¦¨ Rng.Value = Sheet1.[C2:H2].Value

TOP

¦^´_ 4# GBKEE

·PÁÂGBKEE¤jªº¦^µª

§Ú¤w¸g§ï¦n¤F¡C

§Ú¬O¦b¶}½L«e¡A´N¥´¶}excelÀÉ¡A§Úsheet2¤Wªº²Ä¤@­Ó®É¶¡¬O8:45¡A©Ò¥H³o´N¬O¥X°ÝÃDªº­ì¦]¶Ü¡H

¨º....½Ð°Ý±z§Ú¸Ó«ç»ò§JªA³o­Ó±¡§Î¡Hµ¥¶}½L«á¦A¥´¶}excelÀÉ¡H
§Ú·R³Â»¶®a±Ú°Q½×°Ï¡I¡I

TOP

¦^´_ 5# j1221
¤U¶g¤@ 08:45 «e¶}±ÒÀÉ®×´ú¸Õ¬Ý¬Ý
  1. Private Sub Workbook_Open()
  2. Sheet2.[B7:G307] = ""
  3. If Time >= TimeValue("08:45:00") And Time <= TimeValue("13:45:00") Then
  4. change
  5. Else
  6. Application.OnTime "08:45:00", "ThisWorkbook.change"
  7. End If
  8. End Sub
½Æ»s¥N½X

TOP

¦^´_ 6# GBKEE


ÁÂÁÂGBKEE¤j¡A

§Ú§ï¤F¡A¤]¦b­è­è¸Õ¤F¡A¥i¬O«oÁÙ¬O¸õ¥X¦P¼Ëªº¿ù»~°T®§¡A¬O§_¬O¦]¬°§Ú¦bsheet3¦³¥~¥[¹Ïªíªº°ÝÃD¡H

¥i§_ªþ¤Wªþ¥ó¡A½Ð±z¦AÀ°§Ú¬Ý¤@¤U¡H

DDE(Yeswin).rar (18.53 KB)

§Ú·R³Â»¶®a±Ú°Q½×°Ï¡I¡I

TOP

¦^´_ 7# j1221
   
  1. Private Sub Achange()
  2.     Dim TimeRange As Range, Rng As Range, R As Range
  3.     With Sheet2
  4.         Set TimeRange = .[A:A].Find(TimeSerial(Hour(Time), Minute(Time), 0), LookIn:=xlFormulas)
  5.         Set Rng = TimeRange.Offset(, 1).Resize(1, 6)
  6.     End With
  7.     Rng.Value = Sheet1.[C2:H2].Value
  8.     If Time > TimeValue("13:45:00") Then Exit Sub
  9.     Application.OnTime Now + TimeValue("00:01"), "ThisWorkbook.change"
  10. End Sub
½Æ»s¥N½X

TOP

¦^´_ 8# GBKEE


·PÁÂGBKEE¤j¡A¤w¸g¥i¥H¥Î¤F¡I¡I¡I¡I

¦ý¥i§_½Ð°Ý¡A¤§«e¤£¯à¥Î¬O¦]¬°¬Æ»ò°ÝÃD©O¡H

¦¹¥~¡A­Y§ÚÁÙ·Q¦A¼W¥[Àx¦s®æ¡A¬O§_¥u­n§ï°ÊÀx¦s®æ½d³ò´N¥i¥H¤F¡H

¦]¬°§Ú¤µ¤Ñ½T»{¥i¥H¥Î¤§«á¡A·Q»¡¦h¥[´X®æ¸Õ¸Õ¬Ý¡A¬°¤F«K©óÆ[¬Ý¡A§ÚªÅ¤F¤@¾ã¦æ·í§@¤À¹j½u¡A¤§«á¤~¼W¥[§ÚªºÀx¦s®æ

¤]´N¬O»¡§Ú¬O³o¼Ë¨Ï¥Îªº  --->>   ¸ê®Æ | ªÅ®æ¡U¸ê®Æ

µ²ªG¥¦¨ÌÂÂ¥u·|§ó·s³Ì¦­«ü©wªº¨º¨ÇÀx¦s®æ¡A³o¬O¦]¬°§Ú¤¤¶¡¦³ªÅ®æªºÃö«Y¶Ü¡HÁÙ¬O¨ä¹ê¨Ã¨S¦³®t§O¡H

¦A¦¸·PÁ±z
§Ú·R³Â»¶®a±Ú°Q½×°Ï¡I¡I

TOP

¦^´_ 9# j1221
Set TimeRange = .[A:A].Find(Format(TimeSerial(Hour(Time), Minute(Time), 0), "hh:mm"), LookIn:=xlValues) ¦h¤F¤@­Óh   ¦]¬° Àx¦s®æ®É¶¡®æ¦¡¬O h:mm

§ï¦¨ª½±µ´M§ä®É¶¡´N¤£®e©ö¥X¿ù
Set TimeRange = .[A:A].Find(TimeSerial(Hour(Time), Minute(Time), 0), LookIn:=xlFormulas)

¤]´N¬O»¡§Ú¬O³o¼Ë¨Ï¥Îªº  --->>   ¸ê®Æ | ªÅ®æ¡U¸ê®Æ ???  ¤£¤Ó¾é¸Ñ ½ÐªþÀɬݬÝ

TOP

        ÀR«ä¦Û¦b : ¤Hªº²´·úªø¦b«e­±¡A¥u¬Ý¨ì§O¤Hªº¯ÊÂI¡Aµ·²@¬Ý¤£¨ì¦Û¤vªº¯ÊÂI¡C
ªð¦^¦Cªí ¤W¤@¥DÃD