Excel VBA質問箱 IV

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

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


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

39744 / 76732

←次へ　｜　前へ→


	【42096】組込inputboxを自動でキャンセルしたい

雅（みやび） - 06/8/31(木) 18:22 -


	引用なし

	パスワード

初めまして。よろしくお願いします。
以下の事について質問いたします。

　　For I = 3 To NOWLINE - 2 Step 1
Application.DisplayAlerts = False
　　 On Error Resume Next
　　　　Cells(I, 30).Select

　　ActiveCell.Value = "=IF(LEFT(" & Cells(I, 3) & ",1)=" & Chr(34) & "1" & Chr(34) & ",100,IF(LEFT(" _
中略& ")))))))"　 '大費目入力
　　
　　Next I

上記の様なセルに順番に費目（決められた数値）を自動入力するループで、
「合計行が複数あります範囲していしてください」
と組込ダイアログボックスが出ます。
ひたすらキャンセルボタンを押し続けると、（費目入力行回数終了後）マクロ完了して期待した入力は完成されています。
この途中で出るダイアログボックスは、2000のバージョンではでなかったので、解らなくなっています。
ひたすらキャンセルボタンを自動的に押す事はできますでしょうか？
教えてください。

0 hits

▼

【42096】組込inputboxを自動でキャンセルしたい 雅（みやび） 06/8/31(木) 18:22

≪