Accessで使えるAPI
Access便利ツール
Accessの小技
Accessの常識・バグ情報
  Run command
過去のVBA道具箱
Vitamin Excel
 窓の影(Windows情報)
Ｅｘｃｅｌ銀行振込データ作成
(V2.30 UPD 07/11/11)

Excel最適化
(V1.07 UPD 05/11/06)

銀行カレンダー関数のExcelアドイン
 (V1.10 UPD 07/03/02)

ＭｄｂＣｍｐｔ(V2.05)
MDB最適化&バックアップ
(UPD 01/03/03)

自己解凍ファイル作成
(UPD 02/06/17)

kotonoha（UPD 05/06/26)

 no_smoke.gif (3476 バイト)
禁煙日記UPD(00/02/19)
(更新終了しました)
お気に入り UPD 06/02/03)


(有)ロードシステム
911-0843  福井県
勝山市鹿谷町本郷15-9
info@loadsystem.net
Last Update：08/01/27
(Since 99/02/20)
　Copyright(C)
Loadsystem Inc.
1999-2007

【広告】


   Ｅｘｃｅｌ ＶＢＡに効く Vitamin E
UserFormのTerminateイベントでShowは使うな
UserFormのTerminateイベントでShowを使うと正常な動きをしなくなります｡（01/10/19MS確認）
【ThisWorkbook】
Option Explicit

Private Sub Workbook_Open()
　　 UserForm1.Show
End Sub

【UserForm1】
Option Explicit

Private Sub CommandButton1_Click()
　　 'UserForm1を隠してからUserForm2を表示します。逆にするとUserForm2から
　　 '戻るときに失敗します。
　　 UserForm1.Hide
　　 UserForm2.Show
End Sub

Private Sub UserForm_Activate()
　　 'UserForm1が隠されるのを確認するため位置をずらしておきます。
　　 Me.Top = 0
　　 Me.Left = 0
End Sub

【UserForm2】
Option Explicit
Dim BtnClick As Boolean 'コマンドボタンが押されたらTrueになります。

Private Sub CommandButton1_Click()
　　 BtnClick = True

　　 'UserForm2を閉じてUserForm1を表示します。この順番も変えると不具合が
　　 '発生します。
　　 Unload Me
　　 UserForm1.Show
End Sub

Private Sub UserForm_Initialize()
　　 BtnClick = False
End Sub

Private Sub UserForm_Terminate()
　　 '閉じるボタンでUserForm2を閉じた場合にUserForm1を表示します。
　　 'この場合次回UserForm2が開かれた後、正常な動きをしなくなります｡
　　 'Excel2000：コマンドボタン、閉じるボタンを受け付けなくなります。
　　 '　　　　　　　 強制終了またはVBEでFormを編集状態にしてください。
　　 'Excel97 ：閉じるボタンをクリックするとすべてのフォームを閉じます。
　　 If BtnClick = False Then UserForm1.Show
End Sub
Ｓｏｕｒｃｅ表示（上記TEXTファイル）
hide_show.xlsのダウンロード(hide_show.lzh 10k)

（UPD:01/10/24）