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

[µo°Ý] DDE°O¿ý¸ê®Æ¨D§U

[µo°Ý] DDE°O¿ý¸ê®Æ¨D§U

¶W¯ÅĹ®a.rar (11.92 KB) ¦U¦ì¤j¤j¡A·í¶}½L«á¡Aexcel¨S¦³¥ô¦ó°Ê§@¡A¶i¤J¥¨¶°¤º«ö°õ¦æ¡A¸õ¥X"¦¹±M®×ªº¥¨¶°¤w³Q¼È¤î"ªº®Ø®Ø¡A³o¬O¥X²{¤F¤°»ò°ÝÃD?
¦Ó¥B¤]¨S¿ìªk¥¿±`Ãö³¬excel

¦^´_ 1# n8975067
¦p¹Ï­×§ï«á,¶·Ãö³¬excel­«·s¶}ÀÉ

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

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2013-4-21 10:03 ½s¿è
¦U¦ì¤j¤j¡A·í¶}½L«á¡Aexcel¨S¦³¥ô¦ó°Ê§@¡A¶i¤J¥¨¶°¤º«ö°õ¦æ¡A¸õ¥X"¦¹±M®×ªº¥¨¶°¤w³Q¼È¤î"ªº®Ø®Ø¡A³o¬O¥X²{¤F ...
n8975067 µoªí©ó 2013-4-19 12:27
  1. Sub updateFollow()
  2.     Dim Rng As Range
  3.    
  4.     With Sheet2
  5.         Set Rng = .Range("A" & .Range("A" & .Rows.Count).End(xlUp).Row + 1)

  6.         Rng = Sheet1.[c2]
  7.         Rng.Offset(, 1) = Sheet1.[d2]
  8.         Rng.Offset(, 2) = Sheet1.[e2]
  9.         Rng.Offset(, 3) = Sheet1.[f2]
  10.         Rng.Offset(, 4) = Sheet1.[g2]
  11.         Rng.Offset(, 5) = Sheet1.[h2]
  12.         Rng.Offset(, 6) = Sheet1.[i2]
  13.         Rng.Offset(, 7) = Sheet1.[j2]
  14.         Rng.Offset(, 8) = Sheet1.[k2]
  15.         Rng.Offset(, 9) = Sheet1.[l2]
  16.     End With
  17.    
  18.     Application.OnTime Now + 300 / 86400#, "[color=Red]ThisWorkbook.[/color]updateFollow"             '  ¨C¤­¤ÀÄÁ©I¥s ¤@¦¸
  19.     '  Application.OnTime Now + 60 / 86400#, "[color=Red]ThisWorkbook.[/color]updateFollow"    '  ¨C¤@¤ÀÄÁ©I¥s ¤@¦¸
  20. End Sub
½Æ»s¥N½X
Application.OnTime Now + 300 / 86400#, "UpdateFollow" µ{¦¡½X¦b°õ¦æ®É¡AµLªk¦Û°Ê§ä¨ì updateFollow¡A
©Ò¥H½Ð¦b¥¦ªº«e­±©ú½T«ü©w¦¹²[¦¡¼Ò²Õ¬O©ñ¸m¦b¦ó¤è¡H
Ä´¦p¡G Application.OnTime Now + 300 / 86400#, "ThisWorkbook.updateFollow"  ¡A§í©Î¬O
              Application.OnTime Now + 300 / 86400#, "Module1.updateFollow"

TOP

¦^´_ 13# c_c_lai
c_c_¤j¡AÁÂÁ±z¡A©ú¤Ñ¶}½L¨Ó´ú¸Õ¬Ý¬Ý

TOP

¦^´_ 13# c_c_lai
c_c_¤j§A¦n¡A¤µ¤Ñ¨Ï¥Îªºµ²ªG:
"µLªk¶}±Ò¥¨¶°Application.OnTime Now + 300 / 86400#, "ThisWorkbook.updateFollow" "
³o­Ó¥X²{

TOP

¦^´_ 13# c_c_lai
"ThisWorkbook.updateFollow"
³o¤@¥y

TOP

¦^´_  c_c_lai
"ThisWorkbook.updateFollow"
³o¤@¥y
n8975067 µoªí©ó 2013-4-22 21:40

¾ã¬qµ{¦¡½XÀ³©ñ¸m©ó ThisWorkbook ¤º¡A¦pªG©ñ¸m©ó¼Ò²Õ¤º¡A
§A«K­n¥h­×¥¿ ThisWorkbook.updateFollow ¬° Modulex.updateFollow¡C

TOP

¦^´_ 17# c_c_lai
c_c_¤j

§Ú¬O©ñ¸m©óThisWorkbook ¨S¿ù

TOP

¦^´_  c_c_lai
c_c_¤j

§Ú¬O©ñ¸m©óThisWorkbook ¨S¿ù
n8975067 µoªí©ó 2013-4-23 08:36

§A E-Mail µ¹§Ú¡A§Ú§âÀɮ׶ǵ¹§A¡C

TOP

¦^´_ 19# c_c_lai
[email protected]

TOP

        ÀR«ä¦Û¦b : ½_ÁJµ²±o¶V¹¡º¡¡A¶V·|©¹¤U««¡A¤@­Ó¤H¶V¦³¦¨´N¡A´N­n¶V¦³Á¾¨Rªº¯ÝÃÌ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD