コマンドボタンを押した後にのみ選択を実行するVBA userform

Question

コマンドボタン（この場合は「GO」ボタン）を押した後でのみ、選択を実行するのに苦労します。アタッチされているのは、userXの画像です。これは、activeXコントロールで作成されていないもの、および私が作業しているコードです。ありがとう！ （おそらくGO_Click()が、必要に応じて変更）ボタンの_Clickイベントプロシージャを「行く」のチェックボックスのそれぞれに対してチェックし、それに応じて削除を行うにはを使用してこのよう

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

、。

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の両方がチェックされている場合（逆の順序で行われる必要があるとして、注意を払う、指摘しました行7は最初は削除されません）。これは、いくつかの追加のコード変更を必要とするかもしれないが、非常に単純にそれだけでGO_Click内のコマンドを再注文しているようだ、これを処理する必要があります@DavidZemensコード上

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

ただ文体バリエーション：

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