VBA - 将宏指定给表单控件按钮


0

如果在Sheet21的列U(实际命名为“ROG Registration”)中出现“Self Cancelled”或“Waitlisted”,我在VBA中编写了以下代码以删除完整行。当我在ROG注册选项卡上打开VBA窗口并运行它时,它可以正常工作。

我有一个带宏按钮的单独选项卡,我将此宏指定给表单控件按钮,但是当我单击按钮时没有任何反应。

知道为什么吗?可能是我需要在代码中使用“ROG注册”名称吗?“。首先选择”选项卡,因为它位于与按钮不同的选项卡上?

Sub ROG_DeleteRows()

Dim r As Integer
For r = Sheet21.UsedRange.Rows.Count To 1 Step -1
    If Cells(r, "U") = "Self Cancelled" Then
         Sheet21.Rows(r).EntireRow.Delete
    ElseIf Cells(r, "U") = "Waitlisted" Then
         Sheet21.Rows(r).EntireRow.Delete
    End If
Next

End Sub

您需要每次都指定工作表:If Sheet21.Cells(r, "U") =...否则默认使用活动工作表(即带有按钮的工作表)
cybernetic.nomad

@ cybernetic.nomad它完美无缺。谢谢!!!我认为这可能是问题,但不确定在哪里编辑(我对VBA来说还不够新)。
Lenny

@Lenny,你应该写这个如果Sheet21.Cells(r,“U”)=“自我取消”然后而不是 If Cells(r,“U”)=“自我取消”然后
Rajesh S
By using our site, you acknowledge that you have read and understand our Cookie Policy and Privacy Policy.
Licensed under cc by-sa 3.0 with attribution required.