Excel 1004錯誤vlookup

Question

我有這條線：

LArticol.Caption = Application.WorksheetFunction.VLookup(Serie.Value,[TEST], 2, 0)

我的錯誤是我嘗試使用的運行時錯誤1004

LArticol.Caption = Application.WorksheetFunction.VLookup(Serie.Value,ThisWorkbook.Sheets("ELECTRICE").Range("TEST"), 2, 0)

但是...我確實需要幫助

碼：

Private Sub Serie_Change() 
    LArticol.Caption = Application.WorksheetFunction.VLookup(Serie.Value,ThisWorkbook.Sheets("ELECTRICE").Range("TEST"), 2, 0) End Sub

    Private Sub UserForm_Initialize() 
Call Serii 
End Sub

Serii模塊

Sub Serii() 
Dim Ssheet As Worksheet 
Set Ssheet =
ThisWorkbook.Sheets("ELECTRICE") 
If Ssheet.Cells(Rows.Count, 1).End(xlUp).Row = 1 Then
    sslr = 3 Else
    sslr = Ssheet.Cells(Rows.Count, 1).End(xlUp).Row 
End If 
For X = 3 To sslr
    UserForm1.Serie.AddItem Ssheet.Cells(X, 1) 
Next X 
End Sub

Answer 1

ELECTRICE是活動表嗎？ 除非另行說明，否則Application.WorksheetFunction.VLookup將在活動工作表上運行。

也，

ThisWorkbook.Sheets("ELECTRICE").Range("TEST")

將返回$A$3:$H$1048576 。 如果您希望它返回ELECTRICE!$A$3:$H$1048576 ，則應使用

ThisWorkbook.Names("TEST").RefersTo

還要記住，這要求將命名范圍的范圍定義為Workbook而不是特定的工作表。