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

[µo°Ý] ¦h±iSheet¸ê®Æ²Ö¥[ªºµ{¦¡°Ý

[µo°Ý] ¦h±iSheet¸ê®Æ²Ö¥[ªºµ{¦¡°Ý

¥»©«³Ì«á¥Ñ ABK ©ó 2011-1-13 02:29 ½s¿è

¦h¦~«e©Ó»XHsiehª©¥D«ü¾É¤F¤@­Ó¤pµ{¦¡, ÆZ¤£¿ù¥Îªº,
¦]¬°·sªºÀ³¥Î»Ý­n±Nµ{¦¡¤p­×¤@¤U, Àµ½Ð¥ý¶i«e½ú¦A¤©«üÂI¤@µf.
ªþ¥óFÄ椤¦³¤@¦Û­q¨ç¼Æ(°²´Á²Ö­p), ¸Óµ{¦¡­n¦p¦ó­×§ï, ¤~¥i¥H¥u²Ö¥[ªþ¥ó¤¤ 1¤ë~12¤ë¶¡ªº½Ð°²¸ê®Æ,
¦Ó¤£·|¥[¨ì¦P¼Ë®æ¦¡¦Ó«D¤ë¥÷Sheet¸Ìªº¸ê®Æ.

off_record.rar (19.73 KB)

¥»©«³Ì«á¥Ñ Hsieh ©ó 2011-1-13 08:51 ½s¿è

¦^´_ 1# ABK
¦pªG¤u§@ªí¶¶§Ç¦³¦ç¤é´Á¤ë¥÷¶¶§Ç±Æ¦C
¥i§ï¬°¦p¤Uµ{¦¡½X
  1. Function °²´Á²Ö­p(©m¦WÄæ$, ½Ð°²Äæ$, ©m¦W$, ¤ë¥÷$)
  2. Application.Volatile
  3. m = Val(¤ë¥÷)
  4. For Each sh In Sheets
  5. If sh.Name = ActiveSheet.Name Then Exit For
  6.       Set A = sh.Range(©m¦WÄæ).Find(©m¦W, lookat:=xlWhole)
  7.       If Not A Is Nothing Then
  8.          For i = 1 To sh.Range(©m¦WÄæ).Count
  9.          If sh.Range(©m¦WÄæ)(i) = ©m¦W Then
  10.           °²´Á²Ö­p = °²´Á²Ö­p + sh.Range(½Ð°²Äæ)(i): Exit For
  11.          End If
  12.          Next
  13.       End If
  14. Next
  15. End Function
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¤£¦n·N«ä!  
¦h¦~«eµo°Ýªº°ÝÃD¡A ºÉµM¨S¦³·PÁª©¥D¡A¥¢Â§! ¥¢Â§!
³o¤äµ{¦¡¥Ø«eÁÙ¦b¨Ï¥Î¤¤¡A¬Ù¤U«Ü¦h¸ê®Æ¾ã²zªº®É¶¡¡C
«D±`ÁÂÁÂHsiehª©¥D!

TOP

        ÀR«ä¦Û¦b : «Ý¤H°h¤@¨B¡A·R¤H¼e¤@¤o¡A´N·|¬¡±o«Ü§Ö¼Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD