Excel VBA質問箱 IV

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

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


6215 / 13644 ツリー ←次へ | 前へ→

【46504】UserFormの再出力について かなり初心者 07/2/5(月) 16:15 質問[未読]
【46510】Re:UserFormの再出力について Kein 07/2/5(月) 16:49 発言[未読]
【46538】Re:UserFormの再出力について かなり初心者 07/2/6(火) 9:59 お礼[未読]
【46565】Re:UserFormの再出力について ToShiYo 07/2/6(火) 21:18 発言[未読]

【46504】UserFormの再出力について
質問  かなり初心者  - 07/2/5(月) 16:15 -

引用なし
パスワード
   過去の質問で探したのですが、解らなかったので教えてください
UserForm1を表示して『次への』ボタンを押して
UserForm2を表示、UserForm1はUnloadします。
再度、UserForm1を表示しようとするとエラーとなります。
どうしたら良いのでしょうか?記述は下記の通りです。

UserForm1の記述
Private Sub 次へ_Click()
  UserForm2.Show
  Unload UserForm1
  Application.Visible = True
  Application.WindowState = xlMaximized
End Sub

UserForm2の記述
Private Sub 戻る_Click()
  UserForm1.Show <====ここでエラーがでます
  Unload UserForm2
  Application.Visible = True
  Application.WindowState = xlMaximized
End Sub

【46510】Re:UserFormの再出力について
発言  Kein  - 07/2/5(月) 16:49 -

引用なし
パスワード
   Unload してエラーになるなら、Show の前に Load ステートメントで
再度メモリーに読み込んだらどうか・・? と考えて試してみましょう。
そーいうことの積み重ねがスキルアップに繋がります。
ま、一番無難な方法は、ユーザーフォームを使う前に2つのフォームを
Load しておき、操作中は Show と Hide だけを使い、全て終了した後
Unload することですね。

【46538】Re:UserFormの再出力について
お礼  かなり初心者  - 07/2/6(火) 9:59 -

引用なし
パスワード
   返信ありがとうございました。
loadステートメントとか試してみましたが今のところ
うまく行っていないのが現状ですが頑張ってやってみます。

>Unload してエラーになるなら、Show の前に Load ステートメントで
>再度メモリーに読み込んだらどうか・・? と考えて試してみましょう。
>そーいうことの積み重ねがスキルアップに繋がります。
>ま、一番無難な方法は、ユーザーフォームを使う前に2つのフォームを
>Load しておき、操作中は Show と Hide だけを使い、全て終了した後
>Unload することですね。

【46565】Re:UserFormの再出力について
発言  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

6215 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free