ªð¦^¦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 : ¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD