Excel VBA質問箱 IV

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

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


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

39140 / 76738

←次へ　｜　前へ→


	【42717】Re:VBA動作後Enter・矢印きー動作不能

ichinose - 06/9/20(水) 7:41 -


	引用なし

	パスワード

▼hori さん：
おはようございます。
Hideというメソッドは、ユーザーフォームを非表示にするメソッドです。

このイベントプロシジャーは、ユーザーフォームが表示されたと同時に
ずっとループしていますね！！↓
>Private Sub UserForm_Activate()
>　Do
>　　Label3.Caption = Now
>　　DoEvents '←★ここがポイント
>　Loop
>End Sub

Hideメソッドで非表示にしても動作していることがトラブルの原因になっています。

簡単な修正は、HIDEという記述がある箇所をすべて

Unload me

に変更すれば、改善すると思いますが・・・。

これだとこのコードを見た人はきっと不安になります。
>Private Sub UserForm_Activate()
>　Do
>　　Label3.Caption = Now
>　　DoEvents '←★ここがポイント
>　Loop
>End Sub

このループはどこで終わるのだろう？？　って・・。
Private loop_end as boolean
>Private Sub UserForm_Activate()
　loop_end=false
　 Do until loop_end
>　　Label3.Caption = Now
>　　DoEvents '←★ここがポイント
>　Loop
>End Sub

とし、
loop_end=true
doevents
unload me

というコードをUnload Meの前（Hideと記述したところ全て）に追加します。

これで試してみてください

それとHIDEだけでも動作しますが、
せめてMe.HideとMeぐらいは付けてくださいね。
Hideはユーザーフォームのメソッドですから。

0 hits

▼

【42699】VBA動作後Enter・矢印きー動作不能 hori 06/9/19(火) 17:31