Excel VBA質問箱 IV

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

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


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

30743 / 76732

←次へ　｜　前へ→


	【51253】Re:Application.Sendkeysで送ったコマンドが実行されるのを待つ方法

neptune - 07/9/5(水) 22:23 -


	引用なし

	パスワード

こんにちは

やったことないし、思いつきだけで実験もしてないので
そのつもりでお願いします。
本来は余りやりたくない手段ですが、最後の手段？ということで。

セルを削除するとWorksheet_Changeイベントが発生する見たいなのでこれを利用する。
１．Flgを広域変数として持つ
public flg as boolean
Changeイベントで
flg=true
にする。

２．Sub 選択している行全体を削除　内で待つ処理を追加
'Alt+E+Dのコマンドを送る(これで行の削除を実行)
flg=false '初期設定
　　Application.SendKeys ("%ED")
'フラグがTrueになるのを待つ
do until flg=true
doevents
loop

じゃ駄目ですかね？？

2 hits

▼

【51249】Application.Sendkeysで送ったコマンドが実行されるのを待つ方法 やまP 07/9/5(水) 21:15