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

[µo°Ý] ½Ð°Ý¨ç¼Æ¦p¦ó«ü©w¹ïÀ³¤§¥t¤@¬¡­¶ªíÀɮ׸ô®|

[µo°Ý] ½Ð°Ý¨ç¼Æ¦p¦ó«ü©w¹ïÀ³¤§¥t¤@¬¡­¶ªíÀɮ׸ô®|

¥»©«³Ì«á¥Ñ yafeii ©ó 2010-10-17 12:04 ½s¿è

¦U¦ì°ª¤â¤j¤j½Ð±Ð¤@­ÓÃö©ó¸ó¸ê®Æ§¨ªº°ÝÃD
¦³¤G­ÓÀɮפÀ§O¦b
¸ê®Æ§¨"²Ä¤@¼h"--¸ê®Æ§¨"1"--AÀÉ,sheet¥Ò
¸ê®Æ§¨2--"BÀÉ".sheet¤A
¥Ñ©óBÀÉsheet¤AªºÀx¦s®æB2·|¥Î¨ì¨ç¼Ævlookup¥h¹ïÀ³¨ìAÀɪºsheet¥Ò¸ê®Æ¡A
¹ïÀ³¤½¦¡¬°
    Range("B2") = "=VLOOKUP(RC[-1],[A.xlsx]¥Ò!A:B,2,0)"
¦ý§Ú¦b°õ¦æVB®É·|¥d¦b¥X²{"§ó·s¼Æ­È:BÀÉ"µøµ¡*(Ãþ¦ü¶}±ÒÂÂÀɪºµøµ¡)
§Ú§Æ±æ¯à¦bVB¤¤¥ý«ü©w¦n¸ô®|,¤£­n¥X²{¦¹µøµ¡,½Ð°Ý¸Ó«ç»ò°µ©O?

§Ú¬OVB·s¤â,·PÁ±zªº«ü¾É..

°ÝÃD.rar (17.14 KB)

°ÝÃD2003ª©¥».rar (26.56 KB)

ªþ¥ó§ï为2003®æ¦¡ªº¡A¤£µM¦n¦h¤H¥´¤£开¤å¥ó¡A没ªk帮§Aªº«¢¡C

TOP

·PÁÂet5323¤jªº´£¿ô,¤w±N2003ª©¤W¶Ç¤F,ÁÂÁÂ!!

TOP

§A¨S¦³«ü©w¸ô®|¡C
Sub Macro1()
t = Left(ThisWorkbook.Path, Len(ThisWorkbook.Path) - 1)
Range("B2") = "=VLOOKUP(A2," & "'" & t & "²Ä¤@¼h\1\[A.xls]¥Ò'!$A$1:$C$5,2,0)"
    Range("B3").Select
End Sub

TOP

­C..¤w¸g¦¨¥\¤F,ÁÂÁÂoobird¤j...­ì¨Ó¸ô®|¬O­n³o¼Ë«üªº,¾Ç¨ì¤F...ÁÂÁÂ..

TOP

        ÀR«ä¦Û¦b : ºÉ¦h¤Ö¥»¥÷¡A´N±o¦h¤Ö¥»¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD