自定义函数问题

xing836

设置自定义函数，但是不知道哪里不对，大神给看下
如:输入110111001，通过自定义函数得到城关，有附件，下面是我照猫画虎的代码

Function qhdm(rang)

Dim arr1, arr2
Dim i

arr1 = Array(110111001, 110111011, 110111012)
arr2 = Array(城关, 拱辰, 西潞)


For i = 0 To UBound(arr1)
    If Val(rang) = arr1(i) Then
       qhdm = arr2(i)
    End If
Next

End Function

liulang0808

1. Function qhdm(rang)
   
2. 
   
3. Dim arr1, arr2
   
4. Dim i
   
5. 
   
6. arr1 = Array(110111001, 110111011, 110111012)
   
7. arr2 = Array("城关", "拱街", "西潞")
   
8. 
   
9. 
   
10. For i = 0 To UBound(arr1)
    
11.     If Val(rang) = arr1(i) Then
    
12.        qhdm = arr2(i)
    
13.     End If
    
14. Next
    
15. 
    
16. End Function

复制代码

liulang0808

附件内容供参考

qingc0221

Function qhdm(rang)

Dim arr1, arr2
Dim i

arr1 = Array(110111001, 110111011, 110111012)
arr2 = Array("城关"," 拱辰"," 西潞")


For i = 0 To UBound(arr1)
    If Val(rang) = arr1(i) Then
       qhdm = arr2(i)
       exit function
    End If
Next

End Function

xing836

liulang0808 发表于 2017-6-26 20:26
附件内容供参考

谢谢，原来差在了双引号

xing836

liulang0808 发表于 2017-6-26 20:26
附件内容供参考

求教下 qhdm(rang) 和 Val(rang) 是什么意思，谢谢

liulang0808

xing836 发表于 2017-6-26 21:28
求教下 qhdm(rang) 和 Val(rang) 是什么意思，谢谢

转换成数值