ªð¦^¦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®É¶¡¦¨´N¤@¤Á¡j®É¶¡¥i¥H³y´N¤H®æ¡A¥i¥H¦¨´N¨Æ·~¡A¤]¥i¥HÀx¿n¥\¼w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD