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

[µo°Ý] vlookup§ä¨ì¤£­È

[µo°Ý] vlookup§ä¨ì¤£­È

¹Á¸Õ¦bvba¤¤¨Ï¥Îvlookup¡A¦ý¤@ª½µLªk§ä¨ì­È
½ÐÀ°¦£¬d¬Ý¬O¨º¸Ì¿ù»~...
³Â·Ð¤F Book1.rar (7.39 KB)
¼Ó¥D¼ö©«

¤u§@ªíªº«ü©w¤è¦¡¤£¹ï
Function TEST(ByVal strAccNo As String) As String
    Dim A As Integer   '³o¦æ°µ¤°»ò¥Î  
    If strAccNo <> "" Then
       TEST = Application.VLookup(Mid(strAccNo, 3, 1), Sheets("Table").[A1:B26], 2, 0)
    End If
     End Function

TOP

ÁÙ¦³¤u§@ªí"Table "ªºªí¦W«á­±¦h¤@­ÓªÅ¥Õ®æ¡A­n§ï¹L¡C

TOP

ÁÂÁÂchin15¤j
­ì¨Ó¬O­n³o»ò¼g®@...
²×©ó¤F¸Ñ°Õ:D

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