介紹

輸入存貨名稱，返回其產(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ù)自己的實際情況添加，兩個編號之間用逗號隔開
            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