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

Step 7 「抽出」フォームの作成

メニューに戻る


スポンサードリンク



シートイベント

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

'抽出トグルボタン
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

抽出フォームコード

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

Private Sub CommandButton2_Click()
    Unload Me
End Sub

Private Sub UserForm_Initialize()
    bNowFillter = False
End Sub

スポンサードリンク



入力画面

抽出ボタンの追加

抽出フォーム

抽出フォーム

スポンサードリンク





メニューに戻る

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


関連コンテンツ

Copyright (c) Excel-Excel ! All rights reserved