| ©«¤l227 ¥DÃD3 ºëµØ1 ¿n¤À273 ÂI¦W0  §@·~¨t²ÎXP ³nÅ骩¥»XP ¾\ŪÅv20 ©Ê§O¤k µù¥U®É¶¡2011-3-22 ³Ì«áµn¿ý2013-1-29 
 | 
                
| ¤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
 | 
 |