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

[µo°Ý] DDE¸ê®Æ¬ö¿ý°ÝÃD

[µo°Ý] DDE¸ê®Æ¬ö¿ý°ÝÃD

¤p¤k¤l¦³­Ó°ÝÃD·Q½Ð±Ð¤@¤U..
¤U¹Ï¬O§Ú©Ò±¶¨úªº¨÷°ÓDDE¸ê®Æ.ª¦¤å«áÁÙ¬O§ä¤£¨ì¦p¦ó¼¶¼gVBA
§Ú·Q§a¥¦¨C5¤ÀÄÁªº¸ê®Æ.¬ö¿ý¦b¥t¤@­Ó¤u§@ªí¤¤.¥i¥H¶Ü..½Ð¦U¦ì¤j¤j¬°§Ú¸Ñµª¤@¤U..ÁÂÁÂ..
¥¼©R¦W.JPG
2012-4-26 10:30

¦^´_ 1# chenua
¤@¯ë¼Ò²Õ¿é¤J¥H¤Uµ{¦¡½X¡A¦sÀÉ«á¶}±ÒÀɮסA´ú¸Õ¬Ý¬Ý
  1. Sub auto_open()'¶}Àɮɦ۰ʰõ¦æ¦¹¥¨¶°
  2. GetDDE  '©I¥sµ{§Ç
  3. End Sub
  4. Sub GetDDE()
  5. Dim T As Date
  6. T = Now  '¨ú±o²{¦b®É¶¡
  7. If Not IsError(Sheets(1).[B2]) Then Sheets(2).[A65536].End(xlUp).Offset(1).Resize(, 7) = Sheets(1).[A2:G2].Value  '¤u§@ªí1ªº¸ê®ÆDDE³sµ²¦¨¥\¼g¤J¤u§@ªí2
  8. Application.OnTime T + TimeValue("00:00:02"), "GetDDE"  '³o¬O¥H2¬í´ú¸Õ¡A¶¡¹j5¤ÀÄÁ§ï¦¨TimeValue("00:05:00"),
  9. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# Hsieh


    ¤j·§¥i¥H¤F..ÁÂÁª©¥D¸Ñµª

TOP

¦^´_ 2# Hsieh
¦^´_ 3# chenua
§Ú±N¥H¯à§@·~ªº ¤u§@ªí³æ ªþ¤W¡A Chenua ©p¥i¥H¸Õ¸Õ¬Ý¡A ¦pªþ¹Ï©Ò¨£¡C
01.png
2012-4-26 15:06

Hsieh¤j¤j¡A·Q½Ð±Ð±zªº¬O¡G
(1) ¤W¹Ï¥ª¥b³¡¤À¡A ±q A2:A21 ªº¸ê®Æ«ÇÀ³¥Î If Not IsError(Sheets(1).[B2]) Then Sheets(2).[A65536].End(xlUp).Offset(1).Resize(, 7) =
       Sheets(1).[A2:G2].Value  ªº¤è¦¡³B²z¡C ¬°¤°»ò ¤u§@ªí1 ªº A2 ¸ê®Æ¤@Âà¨ì ¤u§@ªí2 ªºÄæ¦ì¡A01:44 PM -> 0.572905 ¡H
      ©Ò¥H§Ú«K±N¥¦ªº³B¸Ì§ï¦¨ Sheets("¤u§@ªí2").Cells(CIndex + 2, 1).Value = Sheets("¤u§@ªí1").Cells(2, 1).Value µ²ªG¤@¼Ë¡A
      ¦]¬°¥Ñ DDE ¶×¤Jªº®É¶¡Äæ¦ì¬O A3 (=YT|KS!TXFE2.123),  ¶×¤J¤º®e¬° 134459¡A¦¹Äæ¼Æ¾Ú¸ê®ÆµLªkÀ³¥Î¡A¬G±N¥¦Â૬¨ì A2 Äæ¦ì
      (=TIME(LEFT(A3,LEN(A3)-4),MID(A3,LEN(A3)-3,2),RIGHT(A3,2)))¡A¥Ø«e¦pªG±q A3 °Ï¥X¸ê®Æ´N·|¦³°ÝÃD¡A©Ò¥H¤S¦A±N¥¦§ï¦¨
     Sheets("¤u§@ªí2").Cells(CIndex + 2, 1).Value = TimeValue(Now) ªº¤è¦¡¡A¦pªþ¹Ï¤Wªº A22LA28¡C
(2) °²³]¥Ø«e§Ú·Q±N A2:G2¡AK2:P2¡A¥H¤Î H5:J5 µ¥Äæ¦ì¦P®É§ì¨úªº¸Ü¡A¦p¨Ï¥Î¹³ Sheets(2).[A65536].End(xlUp).Offset(1).Resize(, 7) =
       Sheets(1).[A2:G2].Value  ªº¤è¦¡¨Ó°µ³B²z¡A½Ð±Ð¦b»yªk¤WÀ³«ç»ò¨Óªí¹F©O¡H
ÁÂÁ±zªº«ü¾É¡I
DDE ¸ê®Æ¬ö¿ý°ÝÃD.rar (13.19 KB)

TOP

¦^´_ 3# chenua
§Ú±NÀɮ׶ÇE-Mailµ¹©p¤F¡A¦¬¦¬¬Ý¡I

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-4-26 18:01 ½s¿è

¦^´_ 4# c_c_lai
¤u§@ªí2 ªºÄæ¦ì ¶·³]¦n®æ¦¡
¬°¤°»ò ¤u§@ªí1 ªº A2 ¸ê®Æ¤@Âà¨ì ¤u§@ªí2 ªºÄæ¦ì¡A01:44 PM -> 0.572905 ¡H
0.572905¬O¼Æ¦r   01:44 PM ¬OÀx¦s®æªº®æ¦¡

Sheets("¤u§@ªí2").Cells(CIndex + 2, 1) = Sheets("¤u§@ªí1").Cells(2, 1).Text

TOP

¦^´_ 6# GBKEE
ÁÂÁ±z¡I ¸g¹L´ú¸Õªºµ²ªG¡Aµo²{¦pªG±N
Sheets("¤u§@ªí2").Cells(CIndex + 2, 1).Value = Sheets("¤u§@ªí1").Cells(2, 1).Value §ó§ï¦¨
Sheets("¤u§@ªí2").Cells(CIndex + 2, 1).Value = Sheets("¤u§@ªí1").Cells(2, 1).Text ªº½T OK¡C

¦ý¬O Sheets(2).[A65536].End(xlUp).Offset(1).Resize(, 7) = Sheets(1).[A2:G2].Value §ó§ï¬°
Sheets(2).[A65536].End(xlUp).Offset(1).Resize(, 7) = Sheets(1).[A2:G2].Text ´N¤£¦æ¤F¡A
µ²ªG³£¨S¦³¥ô¦ó¸ê®Æ¼g¤J¡A¨º°Z¤£»¡µLªk§¹¥þ¨Ï¥Î Sheets(2).[A65536].End(xlUp).Offset(1).Resize(, 7)
= Sheets(1).[A2:G2].Value ªº¤è¦¡³B²zËç¡H

TOP

¦^´_ 7# c_c_lai


    Sheets(2).[A65536].End(xlUp).Offset(1).Resize(, 7)= Sheets(1).[A2:G2].Value
³o¼Ëªº¼g¤J¬O¥H°}¦C«¬ºA¼g¤J¡A©Ò¥H¤£¯à¨Ï¥Î
    Sheets(2).[A65536].End(xlUp).Offset(1).Resize(, 7)= Sheets(1).[A2:G2].Text
§Aªº°ÝÃD¥u¬O®æ¦¡ªº°ÝÃD
¥u»Ý±N¨â­Ó¤u§@ªí¹ïÀ³Äæ¦ì®æ¦¡¥ý³]¦¨¬Û¦P§Y¥i¨Ï¥Î
¨Ò¦p:Sheets(1)ªºA2¬O®É¶¡¡A®æ¦¡À³¸Ó¬O"h:mm:ss"
§A´N§âSheets(2)ªºAÄæ®æ¦¡¤]³]©w¦¨"h:mm:ss"
play.gif
2012-4-26 20:54
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 8# Hsieh
¹ê°È¤W¡A³Q¼g¤JºÝ¥¼¥²¥u¦³ "¤u§@ªí³æ2"¡A¦³¥i¯à¬O°ÊºA²£¥Íªº¤u§@ªí³æ¡A
¬Æ©Î¬O¨C¤é¤@¥÷¤£¦P¤§¤u§@ªí³æ¨Ó°O¿ý¥æ©ö¬ö¿ý¡A¨Ì·Ó±zªº·N«ä¬O¥ý¦æ±N¦¹Äæ¦ì
±N¥¦¥ý¤©¥H®æ¦¡¤Æ¦A¦æ³B²z¶Ü¡H ¬O¤£¬O³o¼Ë¡H  Sheets("Good Morning").[A].Formula = "hh:mm:ss"
(¹ï¤£°_¡A§Ú¤§«e³£¨S±µÄ²¹L Excel¡A¬O³Ìªñ¤~¶}©l¸ò¦U¦ì¥ý¶i¾Ç²ßªº¡A ¥B¥Ø«e¤§ VBA µ{¦¡»yªk³£¬O¾ÌÂÇ¥H©¹ªº¨ä¥¦»y¨¥ªº¼¶¼g¸gÅç¨Ó±Ä¼¯ªº)
¦p¦¹¶Õ¥²¨C¦b²£¥Í¤@¤ßªí³æ¤§«e¡A´N­n¥ý¦æ³B²z¦¹®æ¦¡¤Æ¡A¦ý¬O A1¥»Äæ¬O¤å¦rÄݩʱԭz¨º¨SÃö«Y¶Ü¡H

TOP

¥»©«³Ì«á¥Ñ Hsieh ©ó 2012-4-27 08:39 ½s¿è

¦^´_ 9# c_c_lai

°ÊºA·s¼W¤u§@ªí¬°¥Øªº¤u§@ªí®É¡A¹w³]®æ¦¡³q±`¬O¥H³q¥Î®æ¦¡
¦pªG¤£Ä@·N¨Ï¥Îµ{¦¡½X©ó·s¼W¤u§@ªí®É³]©w®æ¦¡
¥i¥ý»s§@¦nÀ³¦³®æ¦¡ªº¤u§@ªí§@¬°½d¥»
©ó·s¼W¤u§@ªí®É¥H´¡¤J½d¥»¬°¤§
Á`¤§¡A¤@¦¸©ÊÂà¼g¸ê®Æ®ÉÀ³¥HvalueÄݩʼg¤J¡A¤£±o¥Htext¼g¤J
­Y­n¥Htext¼g¤J«h¥²¶·¤@®æ¤@®æ¼g¤J

Sheets("Good Morning").[A].Formula = "hh:mm:ss"
§ó§ï®æ¦¡³o¼Ëªº»yªk¬O¿ù»~ªº¡A«Øij§A¥ý¥H¿ý»s¥¨¶°¤è¦¡¡A¨ú±o°ò¥»µ{¦¡½X
±z¦³¨ä¥Lµ{¦¡»y¨¥°ò¦¡AÅÞ¿è·§©ÀÀ³¸Ó¤£¬O°ÝÃD
§A¥i±q¼ô±xEXCELªº°ò¥»¾Þ§@¡A¥h¤F¸ÑEXCEL VBAªº¯S®í¨ç¼Æ¤Îª«¥óÄÝ©Ê
¦]¬°»yªk´N¬OVB»yªk¡A©Ò¥H¡A°ò¥»¥\¯à¤F¸Ñ¶V¦h¡A§AªºVBA¹B¥Î¤~·|¶VÆF¬¡
~¦@«j¤§~
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡¦¨´N¤@¤Á¡j®É¶¡¥i¥H³y´N¤H®æ¡A¥i¥H¦¨´N¨Æ·~¡A¤]¥i¥HÀx¿n¥\¼w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD