Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

59842 / 76732

←次へ　｜　前へ→


	【21558】Re:ユーザーフォームが非表示にならない...

りすりす - 05/1/24(月) 0:11 -


	引用なし

	パスワード

▼ヒロさん：
>▼りすりすさん：
>>ご回答ありがとうございます。
>ご指摘の方法は試してみたのですが駄目でした。
>Unload　は　Userform1上ではなくそこに配置しているCommandButtonに記述しています。
>CommandButtonではなく標準モジュールに記述した方が良いのでしょうか？
標準モジュールにかいても使い方を間違うと同じことが起こると思います。

>Hideを使った場合メモリ不足に陥ったりはしませんか？
>ちなみにUserformを10枚、標準モジュールを11個作っています。
普通の編集フォーム程度ならhideでいいと思いますけど。
たくさんメモリを使うようなことしていたら
unloadも考えないといけないでしょう
使う内容によりますので何ともいえません

新規でワークブックつくってフォーム３つとボタン
シートにぼたんをおいて下のをコピーして張ってみるといいです、
きちんときえます。

Private Sub CommandButton2_Click()
' Sheet1
　UserForm1.Show (0)
　UserForm2.Show (0)
　UserForm3.Show (0)
　UserForm1.Left = 0
　UserForm2.Left = 200
　UserForm3.Left = 400
End Sub

Private Sub CommandButton1_Click()
'UserForm1
Unload UserForm3
Unload UserForm2
Unload UserForm1
End Sub

Private Sub CommandButton1_Click()
'UserForm2
Unload UserForm3
Unload UserForm2
Unload UserForm1
UserForm1.Show (0)
' ここに Unload UserForm2をかいたほうがいい。
' わざと順番かえてます
End Sub

Private Sub CommandButton1_Click()
'UserForm3
Unload UserForm2
Unload UserForm1
End Sub

1 hits

▼

【21553】ユーザーフォームが非表示にならないので... ヒロ 05/1/23(日) 20:54