介紹
輸入存貨名稱宏怔，返回其產(chǎn)地
Function GetPlace(Name) As String
'傳入存貨名稱返回產(chǎn)地
Dim Code As String
Dim Res As String
Code = Left(Name, 2)
Select Case Code
Case "JF", "LF", "DX", "OF", "LK", "DU" '根據(jù)自己的實(shí)際情況添加蜀备，兩個(gè)編號(hào)之間用逗號(hào)隔開
Res = "福建"
Case "JN", "LN", "JH", "KN", "ND", "SN", "LH"
Res = "河南"
Case "JC"
Res = "廣東"
Case "JD"
Res = "山東"
Case Else
Res = "沒有分類"
End Select
GetPlace = Res
End Function
