使用用戶窗體刪除多個工作表上的特定行

Question

我正在開發一種跟蹤學生評估的工具，並且正在使用用戶表格來管理學生數據。

我已基於對先前問題的回答編寫了代碼，以刪除工作簿中14個工作表上的同一行，該工作表上包含各種瞳孔數據，但在WshtNameCrnt.Rows(l).Delete處收到``Object required''錯誤。下面代碼中的WshtNameCrnt.Rows(l).Delete行：

Private Sub cmbDelete_Click()
    Dim WshtNames As Variant
    Dim WshtNameCrnt As Variant

    WshtNames = Array("Pupil Data", "RWM", "Art", "Computing", "Design Technology", "Geography", "History_", _
                        "MFL", "Music", "PE", "RE", "Science", "Bookbands", "KS1 - TRP")

    Dim msgResponse As String    'confirm delete
        Application.ScreenUpdating = False
            msgResponse = MsgBox("This will delete the selected record. Continue?", _
            vbCritical + vbYesNo, "Delete Entry")

    Select Case msgResponse    'action dependent on response

        Case vbYes
            Dim l As Long
            l = ActiveCell.Row 'store currently active cell row

                For Each WshtNameCrnt In WshtNames
                    WshtNameCrnt.Rows(l).Delete
                Next

        'restore form settings
        With Me
            .cmbAmend.Enabled = False    'prevent accidental use
            .cmbDelete.Enabled = False    'prevent accidental use
            .cmbAdd.Enabled = True    'restore use
            'clear form
            Call ClearControls
            Call ResortData
        End With

    Case vbNo
        Exit Sub    'cancelled
    End Select
    Application.ScreenUpdating = True
End Sub

我認為問題是我的工作表名稱數組的尺寸設置為變量，但不確定將其設置為對象並循環訪問數組中工作表的最佳方法。

如果我的假設正確，請有人告訴我並建議/演示如何解決該問題？

Answer 1

@BigBen找出問題和可能的解決方案

另一個解決方案是遍歷您在WshtNames數組中收集的名稱的Worksheets集合

            For Each WshtNameCrnt In Worksheets(WshtNames)
                WshtNameCrnt.Rows(l).Delete
            Next

兩種解決方案（以及您的代碼）都無法管理工作表名稱與當前任何工作簿工作表都不匹配的情況

Answer 2

WshtNameCrnt是Worksheet的名稱，而不是實際的Worksheet對象。

所以代替

WshtNameCrnt.Rows(l).Delete

使用可與Worksheet索引或name一起使用的Worksheets集合，返回有問題的Worksheet對象。

ThisWorkbook.Worksheets(WshtNameCrnt).Rows(1).Delete