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

[µo°Ý] ½Ð°Ý¦p¦ó¦bB5¿é¤JA­È¡A¦bC5¿é¤J­n§ó§ïªº­È¡A¥h­×§ïc17~25ªº­È(¤w¸Ñ¨M)

[µo°Ý] ½Ð°Ý¦p¦ó¦bB5¿é¤JA­È¡A¦bC5¿é¤J­n§ó§ïªº­È¡A¥h­×§ïc17~25ªº­È(¤w¸Ñ¨M)

¥»©«³Ì«á¥Ñ ´Ñ»y³¾»ï ©ó 2011-7-15 06:33 ½s¿è

¦pÃD¡A½Ð°Ý¬ÛÃöªº¥¨¶°¦p¦ó¼g?? ÀÉ®×ÅÜ´«.rar (7.86 KB)

¦^´_ 1# ´Ñ»y³¾»ï
  1. Sub ¯x§Î2_Click()
  2. Set a = [B17:B25].Find([B5], lookat:=xlWhole)
  3. If Not a Is Nothing Then a.Offset(, 1) = [C5]
  4. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# Hsieh


    ´ú¸ÕOK!·PÁÂ"Hsieh "¤j¤j«ü¾É~~

TOP

        ÀR«ä¦Û¦b : ¤f»¡¤@¥y¦n¸Ü¡A¦p¤f¥X½¬ªá¡F¤f»¡¤@¥yÃa¸Ü¦p¤f¦R¬r³D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD