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 Combobox

這是我刪除On Error Resume Next時出現的錯誤：

Answer 1

您必須將其視為對象

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