Excel VBA質問箱 IV

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

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


61210 / 76738 ←次へ | 前へ→

【20152】Re:ユーザフォームについて
お礼  aki  - 04/11/29(月) 20:01 -

引用なし
パスワード
   ▼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 の
関連性は不明ですが。ありがとうございました。
0 hits

【20086】ユーザフォームについて aki 04/11/27(土) 21:45 質問
【20089】Re:ユーザフォームについて かみちゃん 04/11/27(土) 22:19 発言
【20092】Re:ユーザフォームについて aki 04/11/28(日) 0:00 質問
【20094】Re:ユーザフォームについて かみちゃん 04/11/28(日) 0:09 発言
【20109】Re:ユーザフォームについて aki 04/11/28(日) 17:06 質問
【20116】Re:ユーザフォームについて [名前なし] 04/11/28(日) 20:31 発言
【20117】Re:ユーザフォームについて ちゃっぴ 04/11/28(日) 20:53 回答
【20118】Re:ユーザフォームについて かみちゃん 04/11/28(日) 20:54 発言
【20101】Re:ユーザフォームについて [名前なし] 04/11/28(日) 11:25 回答
【20147】Re:ユーザフォームについて aki 04/11/29(月) 17:20 お礼
【20152】Re:ユーザフォームについて aki 04/11/29(月) 20:01 お礼

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