VBA匹配功能與ActiveSheet

Question

，如果我把這個腳本工作正常：ThisWorkbook但ActiveWorkbook不起作用。

錯誤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)，但我想不出什麼。

Answer 1

這是沒有答案的，只是如何在你的情況下正確使用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