![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
フォルダ内に数千件あるcsvファイルのデータを他のBookにまとめるマクロを作成しました
しかし、1000~5000件のデータを処理させると時間がかかるため、いつ終わるのか目途がたちません。
よって何件中何件処理が進んでいるのか?を知りたいです。
結果として、マクロ処理中に画面上に「**件/5000件処理中」みたいな感じでカウントアップしている表示をさせたい
よってLoopした回数をカウントすればよいと思うのですが
Loop回数のカウント方法がわかりません
教えていただきたく
よろしくお願いいたします。
フォルダ内の全ファイル件数はカウントすることはできています。
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_04.png?e8efa67)
No.1ベストアンサー
- 回答日時:
仮にDoの後に繰り返し条件があって、繰り返している処理回数を変数Cに格納するとして・・・
Dim C As Integer (もしくはLong)
'
C=0
Do --繰り返しの条件--
C=C+1
--繰り返す処理--
Loop
No.2
- 回答日時:
内部処理の処理時間よりも外部出力(件数の表示)の方が格段に処理の負荷が高い
貴方のしようとしていることは、いつ終わるか目処が立たない処理を更に更に遅くする事になるんだが・・・・
ソレって本末転倒ではないのか?
もしかして、Bookに貼り付ける際に画面更新を停止していないから、セル更新の都度画面のリフレッシュが行われて重い処理になってるんでないのか?
Application.ScreenUpdating = False
してる?
アドバイスありがとございます!
Application.ScreenUpdating = False
見よう見まねで入れてるんですが
これも処理時間短縮に意味があるんですね!
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) エクセルのマクロについて教えてください 物件ごとのフォルダを作成してます そのフォルダ内にサブフォル 2 2023/07/02 17:58
- Excel(エクセル) Excelでの複数条件のカウントについて 1 2022/09/25 07:40
- Visual Basic(VBA) ファイル全てを .xlsm に変更したところ、プログラムが途中で落ちてしまっています 17 2022/12/07 12:03
- Visual Basic(VBA) 集めたシートのシート名を変更したい。 下記のコードでサブフォルダにあるファイルのSheet3を集めて 6 2022/08/23 10:38
- Excel(エクセル) 【VBA】指定フォルダに格納中のテキストファイルをエクセルで処理し結果のエクセルを新規フォルダに保存 1 2022/03/25 14:19
- Visual Basic(VBA) サブフォルダ(データ)にある複数の.xlsxファイルのSheet3のA2セルの値で01から左側をB2 2 2022/08/14 15:46
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
エクセルで回数をカウントするマクロ
Excel(エクセル)
-
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
-
4
メッセージボックスのOKボタンをVBAでクリックさせたい
Visual Basic(VBA)
-
5
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
6
VBA 変数名に変数を使用したい。
Visual Basic(VBA)
-
7
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
8
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
9
2重のDo~Loopは?
Visual Basic(VBA)
-
10
エクセルでマクロの実行回数をセル参照するマクロ
Excel(エクセル)
-
11
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
12
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
13
VBAで別モジュールへの変数の受け渡し方法
Visual Basic(VBA)
-
14
メッセージボックスに表示する文字を大きくしたい
Excel(エクセル)
-
15
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
16
VBAコード記述に際して、コード全体を自動的にインデント付ける方法
Access(アクセス)
-
17
worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応
Visual Basic(VBA)
-
18
VBAでfunctionを利用しようとしたときに「引数は省略できません」というエラーが出ます
Visual Basic(VBA)
-
19
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
20
エクセルでエラーが出て困っています。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「ご処理進めて頂きますようお...
-
リョウ・・・量?料?
-
FFTの結果ついて
-
お家デートをしててハグを長い...
-
メルカリのメルカードで買い物...
-
月度は何て読みますか?
-
取り消し線が入った文字を削除...
-
エクセルで、日付を入力すると...
-
NULLを含むフィールド値の条件分岐
-
VBの質問#if 0 then ってどう...
-
処理の実行中にOutLookがまとも...
-
UMLでの例外処理
-
C言語switch文のcase記述について
-
VBA Call BeforeDoubleClick(By...
-
VBAでループ内で使う変数名を可...
-
IQテストの数列
-
VBA DO LOOP Do loopをつかって...
-
生活保護受給者は性欲をどんな...
-
1〜100の中で if(2の倍数) else...
-
タッチパッドはチャタリングは...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
「ご処理進めて頂きますようお...
-
エクセルで、日付を入力すると...
-
VBAでループ内で使う変数名を可...
-
DoEventsがやはり分からない
-
switch の範囲指定
-
メルカリのメルカードで買い物...
-
【Excel】特定の文字を含むセル...
-
VBの質問#if 0 then ってどう...
-
VBAでCOPYを繰り返すと、処理が...
-
EXCEL VBA マクロ 実行する度に...
-
findは動くがfindnextがマクロ...
-
インタラクティブの反対語は?
-
UMLでの例外処理
-
リョウ・・・量?料?
-
Do~Loopした回数をカウントしたい
-
セックスレスの既婚女性は自慰...
-
月度は何て読みますか?
-
セルの値が0はクリアするマクロ
-
Loadイベント中にほかのイベン...
-
FFTの結果ついて
おすすめ情報