使用用户窗体 'delete' 按钮删除多个工作表上的行

Question

我修改了 Roy Cox 编写的代码（感谢您为我节省了这么多时间！）来创建一个用户窗体，以便在我正在创建的分析工具中添加、修改和删除用户的详细信息。

在单个作品上处理用户数据时，它工作得很好sheet。我想修改代码，以便在添加或删除用户时，它会检查每个工作sheet 并相应地修改添加或删除行。

这是删除单个学生数据的代码sheet:

Private Sub cmbDelete_Click()

Dim msgResponse As String    'confirm delete

Application.ScreenUpdating = False

'get user confirmation
msgResponse = MsgBox("This will delete the selected record. Continue?", _
        vbCritical + vbYesNo, "Delete Entry")
Select Case msgResponse    'action dependent on response

Case vbYes
    'c has been selected by Find button on UserForm
    Set c = ActiveCell
        c.EntireRow.Delete    'remove entry by deleting row

'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
    End With

Case vbNo
    Exit Sub    'cancelled
End Select

Application.ScreenUpdating = True

End Sub

我试过修改删除每个作品的用户数据sheet，如下：

Private Sub cmbDelete_Click()

Dim Sh As Worksheet
Dim msgResponse As String    'confirm delete

Application.ScreenUpdating = False

'get user confirmation
msgResponse = MsgBox("This will delete the selected record. Continue?", _
        vbCritical + vbYesNo, "Delete Entry")
Select Case msgResponse    'action dependent on response

Case vbYes
For Each Sh In ThisWorkbook.Sheets
    With Sh.UsedRange
        'c has been selected by Find button
        Set c = ActiveCell
            c.EntireRow.Delete    'remove entry by deleting row
    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
    End With

Case vbNo
    Exit Sub    'cancelled
End Select

Application.ScreenUpdating = True

End Sub

但得到

'Next without For' error.

我不明白为什么会这样，因为我认为这就是我在本节中所做的事情：

For Each Sh In ThisWorkbook.Sheets
With Sh.UsedRange
    'c has been selected by Find button
    Set c = ActiveCell
        c.EntireRow.Delete    'remove entry by deleting row
Next

任何建议将不胜感激。

（我希望解决删除问题后，我可以修改添加新学生时添加行的解决方案！）

Answer 1

添加End With:

For Each Sh In ThisWorkbook.Sheets
    With Sh.UsedRange
        'c has been selected by Find button
        Set c = ActiveCell
        c.EntireRow.Delete    'remove entry by deleting row
    End With
Next

在 Next.

之前

作为最佳实践，使用 ThisWorkbook.Worksheets 可能是更好的主意，因为它只循环工作表并避免图表（如果可用）。

使用用户窗体 'delete' 按钮删除多个工作表上的行

Delete rows on multiple worksheets using userform 'delete' button

excel

vba

worksheet

delete-row