UC知道请教，如何在excel vba中为自定义函数输入值加上双引号
来源：百度知道 编辑：UC知道 时间：2024/05/23 19:53:53
我自定义的一个函数
功能，当使用自定义函数输入名字拼音缩写是
例如： 输入 zf 则 公式自动搜索名字库（另一个表中名字库）求得对应名字张飞
但是我的自定义函数 输入值必须 输入 "zf" 才能求得 正确值
但是我使用excel 自带的 求字符串函数 left（） 只需要输入 字符串 无需手动输入 引号的
请问这功能如何实现。
谢谢
Function spfind(sap As String) As String
Dim SPNO(6), SAPNO(6), I, a
For I = 1 To 6
SPNO(I) = Worksheets("SHEET3").Range("A" & I).Value
SAPNO(I) = Worksheets("SHEET3").Range("B" & I).Value
If sap = SPNO(I) Then
a = SAPNO(I)
Exit For
End If
Next I
spfind = a
End Function
我不取单元格数值，直接手动输入
在使用excel 函数时，手动输入完一个字符串后，计算机会自动添加引号的，但我的函数不行
功能，当使用自定义函数输入名字拼音缩写是
例如： 输入 zf 则 公式自动搜索名字库（另一个表中名字库）求得对应名字张飞
但是我的自定义函数 输入值必须 输入 "zf" 才能求得 正确值
但是我使用excel 自带的 求字符串函数 left（） 只需要输入 字符串 无需手动输入 引号的
请问这功能如何实现。
谢谢
Function spfind(sap As String) As String
Dim SPNO(6), SAPNO(6), I, a
For I = 1 To 6
SPNO(I) = Worksheets("SHEET3").Range("A" & I).Value
SAPNO(I) = Worksheets("SHEET3").Range("B" & I).Value
If sap = SPNO(I) Then
a = SAPNO(I)
Exit For
End If
Next I
spfind = a
End Function
我不取单元格数值，直接手动输入
在使用excel 函数时，手动输入完一个字符串后，计算机会自动添加引号的，但我的函数不行
说得好复杂....其实,在自定义函数中,把这个变量类型定义好——文本型,就可以了吧
你是怎么取得单元格值呢，直接用A1不好，用range("a1")就行了
你把你的代码发出来，大家一看不就知道了？