Excelで取引先表を作ってみよう

シートイベント

下記のVBAコードを追加してください。

'抽出トグルボタン
Private Sub ToggleButton1_Click()
    ToggleButton2.Value = Not ToggleButton1.Value
    If ToggleButton1.Value Then
        Frm抽出.Show
    End If
End Sub

'解除トグルボタン
Private Sub ToggleButton2_Click()
    ToggleButton1.Value = Not ToggleButton2.Value
End Sub

抽出フォームコード

下記のVBAコードを追加してください。

Private Sub CommandButton2_Click()
    Unload Me
End Sub

Private Sub UserForm_Initialize()
    bNowFillter = False
End Sub

入力画面

抽出フォーム