Question

我有一个具有唯一值的列。我使用这些值在userform上填充列表框，并在使用以下代码单击列表框中的值时将其他列中的数据返回到标签标题：

With Table
    Set rngNum = .ListColumns(.ListColumns(strNum).Range.column).DataBodyRange
    Set rngVal = .ListColumns(.ListColumns(strVal).Range.column).DataBodyRange
End With
With Worksheet
        strResult = wf.Index(.Range(rngVal.address), wf.Match(lstVal.List(lstVal.ListIndex), .Range(rngNum.address), 0)) --Error occurs here!
End With
    lblDescription.Caption = strResult

代码已经完美地工作了几个月，直到最近我在上面提到的行上得到Run-time error '1004': Unable to get the Match property of the WorksheetFunction class。

单击列表框中的某些值时会发生错误。范围中的大多数值都是以文本形式存储的数字，但有一些不是。最初，我认为那是问题所在。但是，奇怪的是，没有存储为文本的值，其中一个给出了错误而另一个没有。该表从Internet导出。不确定我错过了什么。任何帮助表示赞赏！如果您需要其他信息，请与我们联系。谢谢！

匹配函数返回运行时错误

0 个答案: