VBA用户表单仅在点击命令按钮后执行选择

Question

我很难让 vba 仅在按下命令按钮（在本例中为 GO 按钮）后执行我的选择。附件是用户窗体的图片，不是由activeX控件制作的，以及我正在处理的代码。谢谢！

Private Sub MR_Click()

If MR.Value = True Then
Rows(6).Delete
End If

End Sub

Private Sub PMS_Click()

If PMS.Value = True Then
Rows(7).Delete
End If

End Sub

Private Sub VOIDMR_Click()

If VOIDMR.Value = True Then
Rows(13).Delete
End If

End Sub

Private Sub VOIDPMS_Click()

If VOIDPMS.Value = True Then
Rows(14).Delete
End If

End Sub

Answer 1

像这样，使用“Go”按钮的_Click 事件过程（推测为GO_Click()，但如果需要可修改）检查每个复选框并相应地进行删除。

Private Sub GO_Click()
If MR.Value = True Then
    Rows(6).Delete
End If
If PMS.Value = True Then
    Rows(7).Delete
End If
If VOIDMR.Value = True Then
    Rows(13).Delete
End If
If VOIDPMS.Value = True Then
    Rows(14).Delete
End If
End Sub
'These event procedures won't do anything, and can be removed:
Private Sub MR_Click()
End Sub
Private Sub PMS_Click()
End Sub
Private Sub VOIDMR_Click()
End Sub
Private Sub VOIDPMS_Click()
End Sub

不再需要复选框的_Click 事件过程。

要注意事件过程，只要事件发生，它们就会触发。因此，对于带有_Click 事件的复选框，任何时候用户选中（或取消选中）_Click 处理程序都会执行。

如上所述，从集合中删除元素时要小心，因为这通常需要以相反的顺序完成（当您删除第 6 行时，第 7 行变为第 6 行，因此如果同时选中 MR 和 PMS，则 Row 中的内容7 最初不会被删除）。这可能需要一些额外的代码更改，但很简单，只需重新排序 GO_Click 中的命令，就可以解决这个问题：

Private Sub GO_Click()
If VOIDPMS.Value = True Then
    Rows(14).Delete
End If
If VOIDMR.Value = True Then
    Rows(13).Delete
End If
If PMS.Value = True Then
    Rows(7).Delete
End If
If MR.Value = True Then
    Rows(6).Delete
End If

End Sub

Answer 2

只是@DavidZemens 代码的一种风格变化：

Private Sub GO_Click()
    With Me '<-- reference the userform
        Select Case True
            Case .MR '<-- if MR checkbox control is True
                Rows(6).Delete
            Case .PMS '<-- if PMS checkbox control is True
                Rows(7).Delete
            Case .VOIDMR '<-- if VOIDMR checkbox control is True
                Rows(13).Delete
            Case .VOIDPMS '<-- if VOIPMS checkbox control is True
                Rows(14).Delete
        End Select
    End With
End Sub