ªð¦^¦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 : ¤ß¤¤±`¦sµ½¸Ñ¡B¥]®e¡B·P«ä¡Bª¾¨¬¡B±¤ºÖ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD