Excel VBA：如果與組合框中的值匹配，則刪除行

Question

我有一張工作表中的工程列表，該工作表由另一工作表中的範圍填充。我已經可以添加一個項目。現在我想刪除一個項目名稱，如果組合框的值等於另一個工作表上的範圍內的值。我有以下的代碼，但它不工作：

Dim ProjNameWS As Worksheet 
Set ProjNameWS = Sheets("Project Names") 
Dim MainWS As Worksheet 
Set MainWS = Sheets("Main") 


Application.ScreenUpdating = False 


ProjValue = Me.CmbProjName.Value 
LR = ProjNameWS.Cells(Rows.Count, 1).End(xlUp).row 

For y = 1 To LR 



If ProjValue = ProjNameWS.Cells(y, 1) Then 

    ProjNameWS.Rows(y).Delete 

End If 

Next y 

Application.ScreenUpdating = True 

End Sub 

順便說一句，我使用的ActiveX組合框在片

這是當我刪除了錯誤的外觀在錯誤恢復下一頁：

Answer 1

你必須把它當作一個物體來對待

將ProjValue = Me.CmbProjName.Value替換成ProjValue = ProjNameWS.OLEObjects("CmbProjName").Object.Value它會起作用。