EXCEL VBA----ユーザーフォームの表示で・・・

こんにちは、お知恵をお貸し下さいませ。

Userform1のCommandbutton1をクリック
↓
Userform1を隠して（hide）Userform2を表示させる
↓
Userform2に必要な項目を入力後（Userform2の）Commandbutton1をクリック
↓
（処理）
↓
（処理終了後）Userform2を閉じてからUserform1を表示させる

上記の処理をしたいのですが、最後の（処理終了後）の所で
Userform2が表示されたままで、Userform1が表示されてしまいます。

Userform2.hide と Userform1.show の間に waitメソッドを置いても同様です。

Application.ScreenUpdating=False を使用しないとうまく行くのですが・・・。


とてもわかりづらい説明で申し訳ありませんが、どうぞよろしくお願い致します。

No.1 ベストアンサー 回答者： taocat 回答日時： 2006/04/14 15:00

こんにちは。

＞Application.ScreenUpdating=False を使用しないとうまく行くのですが

であれば、Hide,Showの前後でScreenUpdatingのOn,Offを切り替えたらいいのでは？

------------------------------------------
（UserForm1）

Private Sub CommandButton1_Click()
　Application.ScreenUpdating = True
　Me.Hide
　UserForm2.Show
　Application.ScreenUpdating = False
End Sub

-----------------------------------
（UserForm2）

Private Sub CommandButton1_Click()
　Application.ScreenUpdating = True
　Me.Hide
　UserForm1.Show
　Application.ScreenUpdating = False
End Sub

------------------------------------------

以上です。

この回答へのお礼

taocatさん、どうもありがとうございます！

良い線まで行っていたのに 「何故その先がわからいのぉ？！」 って感じですよねー。
目からウロコです。

助かりました。ほんとに有難うございました！

お礼日時：2006/04/14 16:05