2017年05月 / 04月≪ 12345678910111213141516171819202122232425262728293031≫06月

インフォメーション

FC2ブログで画像等を一括アップロードするソフトを地味に配布してます。
FC2ブログ用ファイルアップロードの最新版はこちら
(ベクター)FC2ブログ用ファイルアップロード

--.--.-- (--)

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。


 |  --:--  |  スポンサー広告  |  Top↑

2008.04.14 (Mon)

Excelで大量ループの中にMsgBoxを入れてしまった!

ExcelVBAで大量ループの中にMsgBoxを入れてしまった!
未保存なので強制終了はさせたくないが、ループが終了するまでMsgBoxの「OK」ボタンを押し続けるのはかなりキツイ!!

デバッグをMsgBoxでするタイプなのでこういうことがよくある。
ダイアログが常に手前に出てきてくれるのであればEnter押しっぱなしでも行けるのだが、
「OK」ボタンを押すたびに後ろに隠れやがることもある。

そんなときはUWSC


WHILE true
  ID = GetId("Microsoft Excel", "#32770")
  IF ID = -1 THEN BREAK
  CLKITEM(ID, "OK")
  SLEEP(0.1)
WEND


これでひたすらOKボタンをクリックしてくれる。
ありがとうUWSC。本当に役に立つ子だ。
スポンサーサイト


 |  14:19  |  UWSC  |  トラックバック(0)  |  コメント(0)  |  Top↑
 | BLOGTOP | 
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。