介绍

输入存货名称，返回其产地

Function GetPlace(Name) As String
    '传入存货名称返回产地
    
    Dim Code As String
    Dim Res As String
    
    
    Code = Left(Name, 2)
    Select Case Code
    
        Case "JF", "LF", "DX", "OF", "LK", "DU"   '根据自己的实际情况添加，两个编号之间用逗号隔开
            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