|
| Menuへ |
| 取引先表を作ってみよう |
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
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| 入力画面 |
|
|
|
| 抽出フォーム |
|
|
|
|
Topへ
|
|
|
■このサイトの内容を利用して発生した、いかなる問題にも一切の責任は負いませんのでご了承下さい。■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します。
Copyright (c) 2006 excel_ninpou All rights reserved. |
