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

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

¦^´_ 28# c_c_lai
ok! ¦¬¨ì¡A©ú¤Ñ¨Ó¸Õ¸Õ¬Ý~

TOP

¦^´_ 26# c_c_lai

¶Ù c_c_lai ¤j¤j±z¦n
¤p©f³Ìªñ¤]·Q¾ÇDDE©Ô¤J¸ê®Æ
»Ý¨D­è¦n¸ò¼Ó¥D¤@¼Ë
¥i¬O§Ú¥á¶i¥h«á«oÅã¥Ü"Åܼƥ¼©w¸q"
¬O¦b
Sub updateFollow()
    Dim Rng As Range
   
    On Error Resume Next
    If (TimeValue(Now) < TimeValue("08:45:00") Or TimeValue(Now) > TimeValue("13:45:00")) Then Exit Sub

    With Sheet2
³o¬q
½Ð°Ý¸Ó«ç»ò­×¥¿ >"<
¤p©f¦b¦¹¦V¦U¦ì¤j¤j¨D±Ð¤F Orz

TOP

¦^´_  c_c_lai

¶Ù c_c_lai ¤j¤j±z¦n
¤p©f³Ìªñ¤]·Q¾ÇDDE©Ô¤J¸ê®Æ
»Ý¨D­è¦n¸ò¼Ó¥D¤@¼Ë
¥i¬O§Ú¥á¶i¥h«á ...
saleen µoªí©ó 2013-6-4 11:10

©p¬O§¹¾ã½Æ»s 26# ¤Wªºµ{¦¡½X¶Ü¡H
©p§â°õ¦æµe­±½Æ»s¨ì¤pµe®a (Print Screen -> ¤pµe®a -> ¶K¤W ) ¤W¶Ç¡C
ÁÂÁ¡I

TOP

c_c_lai ¤j¤j·PÁÂ
§Ú¤w¸g¸Ñ¨M¤F , §âµ{¦¡¤¤ªº "Sheet2" ¥þ³£§ï¦¨ Excel ¥ª¤U¤èªº "¤u§@ªí1" ´N¥i¥H¤F ^^
¤£¹L¤£ª¾¹D¬°¤°»ò§Ú¦pªG§â¥ª¤U¨¤ªº"¤u§@ªí1"§ï¦¨ "Sheet2" «o¨S¥Î ~ ©Ç

¦Ó¥B¤S¦h¤F¦n¦h°ÝÃD¾¾
¬Ý¨Ó­n¶}¥t¤@½g¤å³¹¤F >~<
¤p©f¦b¦¹¦V¦U¦ì¤j¤j¨D±Ð¤F Orz

TOP

§A³]©wªº¨º­ÓDDE ¬O§ì¨ú°ÊºA¸ê®Æªº
©Ò¥H§A¨C¦¸¦b¶}±Ò³o­Ó¥¨¶°ªº®É­Ô­nª`·Nªº³¡¤À´N¬O

1.§AªºDDE ³ø»ù¸ê®Æ¨Ó·½­n¥ý±Ò°Ê(¤@¯ë³£¬O¨é°Óªº³ø»ù³nÅé)
2.§Aªº¥¨¶°¦b2003 ¥H¤Wªºª©¥»¤W­±³£­n¤â°Ê¶}±Ò  ¥L¤~·|°µµ{¦¡ªº°Ê§@
¤£ºÞ¬O¥~³¡¸ê®ÆÁÙ¬O§A­n°µ°ÊºADDE ªº¶}±Ò ¡A¥L¦bEXCEL¿é¤J¤½¦¡ªº¨º¦æ®ÇÃä
¥L·|§iª¾§A ¬O§_­n±Ò°Ê

TOP

        ÀR«ä¦Û¦b : §Ú­Ì³Ì¤jªº¼Ä¤H¤£¬O§O¤H¡D¥i¯à¬O¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD