|
▼aki さん:
>▼[名前なし] さん:
>>フォームのInitializeイベントの最後にApplication.ScreenUpdating = Trueを
>>入れてみてはどうでしょうか。
>
>すべてのモジュールイベントの
>
>Application.ScreenUpdating = False を
>Application.ScreenUpdating = True に変更したところ
>
>ユーザフォームの重複表示がなおりました。
>後は各モジュールでステップインしながら検証したいと
>思います。
>皆様のご協力に感謝し、問題解決としたいと思います。
>ありがとうございました。
(追伸)
検証したところ不具合がわかりました。
Sub 作成()
en = 0
Worksheets("年月").Visible = False(パスワードが書かれているシートなので隠しています)
Worksheets("年月").Activate
pasw = Range("A20")(パスワードを取得)
UserForm2.Show
End Sub
を
Sub 作成()
en = 0
Worksheets("年月").Visible = True(修正)
Worksheets("年月").Activate
pasw = Range("A20")
Worksheets("年月").Visible = False(修正)
UserForm2.Show
End Sub
の処理ミスでした。
Application.ScreenUpdating = False ばかり気にしていたので
気がつきませんでした。
Worksheets("年月").Visible = Falseと
Application.ScreenUpdating = False の
関連性は不明ですが。ありがとうございました。
|
|