VBA匹配功能与ActiveSheet

2017-01-09 63 views 0 likes

，如果我把这个脚本工作正常：ThisWorkbook但ActiveWorkbook不起作用。VBA匹配功能与ActiveSheet

错误1004说： “Unable to get the Match property of the Worksheet function class”

有些事情错在这里：Application.WorksheetFunction.Match(data_gen, ActiveWorkbook.Worksheets("PE_Centralizare").Range("A:A"), 0)，但我想不出什么。

来源

2017-01-09 BOB

第一：请修正语法错误在你的示例代码。第二：那个With块的目的是什么？没有你的代码使用它。删除它或使用它。 – Tomalak

也许看看这里：http://stackoverflow.com/questions/20214540/application-worksheetfunction-match-method 此外，可能重复http://stackoverflow.com/questions/38398310/match-function-in-vba – Veve

我的代码，打开一个excel文件，并打开该文件，我需要'匹配'的东西。那场比赛不能正常工作性质 – BOB

回答

这是没有答案的，只是如何在你的情况下正确使用Match功能：

Dim nr_linie As Variant 

With ActiveWorkbook 
    dat = zi & "-" & luna & "-" & an 
    data_gen = CDbl(dat) 

    ' in case Match was able to find data_gen in Column A 
    If Not IsError(Application.Match(data_gen, .Worksheets("PE_Centralizare").Range("A:A"), 0)) Then 
     nr_linie = Application.Match(data_gen, .Worksheets("PE_Centralizare").Range("A:A"), 0) 
     MsgBox "Row number " & data_gen & " value was found in row " & nr_linie 
    Else ' <-- Macth failed, unable to find find data_gen in Column A 
     MsgBox data_gen & " value not found in Range !" 
    End If 
End With

来源

2017-01-09 11:17:37

谢谢，这是下一步。 – BOB

您是否将此代码插入您的？它现在在工作吗？ –

我不知道如何，但它的工作原理。谢谢:) – BOB

VBA匹配功能与ActiveSheet

回答

相关问题