Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

10646 / 76734

←次へ　｜　前へ→


	【71634】Re:エラーのクリア

UO3 - 12/3/23(金) 15:49 -


	引用なし

	パスワード

▼レッズ命さん：

そろそろ、外出しなきゃいけませんので、もう少しコメントしておきます。

（あくまで、Sheets("カウンター数一覧").Select　以降のコードがUserForm2のInitializeにかかれているという前提です）

・まず、エラーのコードですが
　Sheets("会社一覧").Rows(x.Offset(1, 0).Row).Delete Shift:=xlUp
　ここではないのですか？
・メッセージに対してRetryをしたときはエラーにならず、その後、CommandButton3を押すとエラーになる。
　キャンセルのときはすぐにエラーになるというのは本当ですか？
　Retryをしたときにエラーになるのではないですか？
・先のレスで申し上げたとおり、これがInitializeルーティンであれば、このコード全体が
　間違った場所にかかれているということですが、加えて
　Unload UserForm2
　UserForm2.Show
　これが実行されるとすれば、メモリーからUserForm2が削除され(Unload)その後
　Showによって、再び、メモリーに呼び込まれます。
　この時、まだ、このInitializeルーティンの中にいるわけですが、その次のコードの実行の前に
　再び、このInitializeルーティンに入ってきます。（連鎖します）
　それは、理解しておられますか？
・そもそも、この２行は不要ですよ。

>▼Abebobo さん：
>
>Initializeからは先ほどのものを外して、開いてから、
>Cmd印刷プレビュー_EnterでMsgboxを開くようにしたのですが、
>やはり閉じられません。
>どうしてでしょうか？

19 hits

▼

【71602】エラーのクリア レッズ命 12/3/22(木) 19:07