sub跑没有问题变成自定义函数就#value

yyzh_god_2013

Function FgValue(name As String, num As String)
        Dim data
        Dim i&, k&
        '读取数据
        '  1   1   张三  [1,1,@]
        '  1   2    王五  [1,2,@]
       '  1  3   赵四  [1,3,@]
        data = Workbooks("RESOURCES.xlsm").Sheets("resources").[a1].CurrentRegion

        '循环如果name=数组，则取出对应列

        For i = 1 To UBound(data)
            If data(i, 3) = name Then
                k = i
                Exit For
            End If
        Next


        '读取对应列的值 [1,1,@]
      FgValue = data(k, 4)
        '换成对应的值[1,1,999]
      FgValue = Replace(FgValue, "@", num) & ""


End Function

yyzh_god_2013

挽挽挽挽挽挽挽挽挽

microyip

去掉

1. FgValue = data(k, 4)

复制代码

再下面一行改成

1. FgValue = Replace(data(k, 4), "@", num) & ""

复制代码

huang1314wei

Workbooks("RESOURCES.xlsm")  是打开的还是未打开的

microyip

huang1314wei 发表于 2018-8-29 12:35
Workbooks("RESOURCES.xlsm")  是打开的还是未打开的

他这么写，默认是打开的吧？

yyzh_god_2013

huang1314wei 发表于 2018-8-29 12:35
Workbooks("RESOURCES.xlsm")  是打开的还是未打开的

开着呢  就是在这个表上面写的额

huang1314wei

yyzh_god_2013 发表于 2018-8-29 14:13
开着呢  就是在这个表上面写的额

那就不知道啥原因了，要么你上传附件，要么你打个断点，F8单步运行找一下原因

yyzh_god_2013

huang1314wei 发表于 2018-8-29 15:09
那就不知道啥原因了，要么你上传附件，要么你打个断点，F8单步运行找一下原因

OK，这个是附件，表示完全不知道是什么问题。就是这么神奇的小问题折腾老半天。。。

yyzh_god_2013

microyip 发表于 2018-8-29 12:30
去掉

再下面一行改成

QAQ 附件已上传，表示按照这个修改之后，还是么有好~~~很奇怪的说

huang1314wei

yyzh_god_2013 发表于 2018-8-29 17:50
OK，这个是附件，表示完全不知道是什么问题。就是这么神奇的小问题折腾老半天。。。

你那个data="type'  根本不是一个数组，既然data不是数组，你用  ubound(data)  肯定是类型不匹配，所以报错，改成 data=range("A1:D7")    就好了，至于在function里面，像你那样写为什么不能赋值数组，原因不得而知