Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6217 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【46504】ＵｓｅｒＦｏｒｍの再出力について かなり初心者 07/2/5(月) 16:15 質問[未読]
【46510】Re:ＵｓｅｒＦｏｒｍの再出力について Kein 07/2/5(月) 16:49 発言[未読]
【46538】Re:ＵｓｅｒＦｏｒｍの再出力について かなり初心者 07/2/6(火) 9:59 お礼[未読]
【46565】Re:ＵｓｅｒＦｏｒｍの再出力について ToShiYo 07/2/6(火) 21:18 発言[未読]
【46504】ＵｓｅｒＦｏｒｍの再出力について
質問  かなり初心者  - 07/2/5(月) 16:15 -
引用なし
パスワード
   過去の質問で探したのですが、解らなかったので教えてください
UserForm1を表示して『次への』ボタンを押して
UserForm2を表示、UserForm1はUnloadします。
再度、UserForm1を表示しようとするとエラーとなります。
どうしたら良いのでしょうか？記述は下記の通りです。

ＵｓｅｒＦｏｒｍ１の記述
Private Sub 次へ_Click()
　　UserForm2.Show
　　Unload UserForm1
　　Application.Visible = True
　　Application.WindowState = xlMaximized
End Sub

ＵｓｅｒＦｏｒｍ２の記述
Private Sub 戻る_Click()
　　UserForm1.Show <====ここでエラーがでます
　　Unload UserForm2
　　Application.Visible = True
　　Application.WindowState = xlMaximized
End Sub
【46510】Re:ＵｓｅｒＦｏｒｍの再出力について
発言  Kein  - 07/2/5(月) 16:49 -
引用なし
パスワード
   Unload してエラーになるなら、Show の前に Load ステートメントで
再度メモリーに読み込んだらどうか・・? と考えて試してみましょう。
そーいうことの積み重ねがスキルアップに繋がります。
ま、一番無難な方法は、ユーザーフォームを使う前に２つのフォームを
Load しておき、操作中は Show と Hide だけを使い、全て終了した後
Unload することですね。
【46538】Re:ＵｓｅｒＦｏｒｍの再出力について
お礼  かなり初心者  - 07/2/6(火) 9:59 -
引用なし
パスワード
   返信ありがとうございました。
loadｽﾃｰﾄﾒﾝﾄとか試してみましたが今のところ
うまく行っていないのが現状ですが頑張ってやってみます。

>Unload してエラーになるなら、Show の前に Load ステートメントで
>再度メモリーに読み込んだらどうか・・? と考えて試してみましょう。
>そーいうことの積み重ねがスキルアップに繋がります。
>ま、一番無難な方法は、ユーザーフォームを使う前に２つのフォームを
>Load しておき、操作中は Show と Hide だけを使い、全て終了した後
>Unload することですね。
【46565】Re:ＵｓｅｒＦｏｒｍの再出力について
発言  ToShiYo  - 07/2/6(火) 21:18 -
引用なし
パスワード
   ▼かなり初心者 さん：
今晩は。
>返信ありがとうございました。
>loadｽﾃｰﾄﾒﾝﾄとか試してみましたが今のところ
>うまく行っていないのが現状ですが頑張ってやってみます。

Keinse様のアドバイスは
こんな感じではないでしょうか？

'Userform1に
Private Sub UserForm_Click()
　　Unload UserForm1
　　UserForm2.Show
　　Application.Visible = True
　　Application.WindowState = xlMaximized
End Sub

'Userform2に
Private Sub UserForm_Click()
　　Unload UserForm2
　　UserForm1.Show '<====ここでエラーがでます
　　Application.Visible = True
　　Application.WindowState = xlMaximized
End Sub
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6217 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free