☰

VBA - 将宏分配给表单控制按钮

tag-icon • tag-icon microsoft-excel vba microsoft-excel-2013 macros
VBA - 将宏分配给表单控制按钮

我在 VBA 中编写了以下代码，如果 Sheet21 的 U 列（实际名为“ROG 注册”）中出现“自行取消”或“已列入候补名单”，则删除整行。当我在 VBA 窗口打开的情况下在 ROG 注册选项卡上运行此代码时，它运行正常。

我有一个带有宏按钮的单独选项卡，并且我将这个宏分配给表单控制按钮，但是当我单击该按钮时什么也没有发生。

知道为什么吗？是不是因为我需要在代码中使用“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

相关内容