エクセルマクロで教えていただきたいです。

質問

ある処理プログラムをつくりました。
同じ処理を数千行にわたって繰り返すのですが、一瞬では到底終わらないため「進捗状況」を表示させたいと思うのですが、何かよい方法はございませんでしょうか。
「現在○○行を処理しています」なんていうメッセージが出せればいいかななんて考えてます。
Msgboxを使用することも思いついたのですが、これだと何かしらボタンを押さないと次へ進まない（と思っていますが違います？）ので自分の意図することと違うなぁという感じです。
よい方法教えてください。よろしくお願いします。
Windows98SE、EXCEL2000を使用しています。

回答No.3

gatyan · ベストアンサー

Application.Statusbar="現在" & cnt & "行目…"
とすれば、ステータスバーにメッセージが表示されます。

最後は Application.Statusbar=False で元に戻ります。

お礼

あ！いいですね、コレ！
単純で、しかもカッコイイ(?)・・・
私が思い描いていたのに近いように思います。
使わせていただきます。
ありがとうございました。

回答No.5

diashun

＃２です。
「ラベルコントロール」はVBAのコントロールのひとつで、デフォルトではExcelメニューバーには表示されていないので、次の手順でツールバーに貼り付けてください。
1.メニューバーの「ツール」→「ユーザー設定」をクリックし「ユーザー設定ダイアログ」画面を表示。
2.「ツールバー」タブで「コントロールツールボックス」にチェックを入れる。
3.「閉じる」ボタンをクリック。
以上で「コントロールツールボックス」が表示されます。
そのボックスの中に「Ａ」で表示されているのが、「ラベル」コントロールです。
文字通り、テキストを表示するためのコントロールで、フォントの種類、文字の大きさ、色の設定など各種プロパティが設定できます。
これを仮に「Workbook」の「Sheet1」に貼り付けた場合、VBEのSheet(1)オブジェクトとして指定するには、Sheet1のコード表示画面で、
「ThisWorkBook.Sheets(1).Label1」（デフォルト）で指定しプロパティ設定できます。また、これらのコントロールは印刷せずにSheet上で表示するだけにしたりすることも出来ます。

回答No.4

imogasi

ＶＢではプログレスバーというコンとロールがありますが、エクセルＶＢＡでは使えるかどうか判らないので、テキストボックスとラベルコントロールで代用してみます。
Ｓｈｅｅｔ１において、
メニュバー部の余白で、マウスの右クリックをして
「コントロールツールボックス」をクリックする。
テキストボックス（アイコンはａｂ｜）のアイコンをクリックしてＳｈｅｅｔ１へ貼りつける。
またラベル（アイコンはＡ）のアイコンをクリックしてＳｈｅｅｔ１に貼りつける。
この２つのコントロールの高さサイズを同じに調整し、また左辺同志を重ねる（同位置）ように位置づける。
ラベルの上で右クリックしプロパティウィンドウを出し、Ｃａｐｔｉｏｎ（Ｌａｂｅｌ１となっている）をＤＥＬキーで削除し、ＢａｃｋＣｏｌｏｒをその行の右欄右の方でクリックしてパレット・タブを選び、色を選択強して色パレットをクリックする。
もう一つコマンドボタンを貼りつける。
Ｓｈｅｅｔ１のコマンドボタンをダブルクリックすると
ＶＢＥ画面に飛び
Private Sub CommandButton1_Click()
End Sub
がＶＢＥ画面に現れるから、そこに下記を貼りつける。
Private Sub CommandButton1_Click()
Sheet1.Label1.Visible = True
Sheet1.TextBox1.Visible = True
For i = 1 To 1000
Sheet1.Label1.Width = Sheet1.TextBox1.Width * i / 1000
If i Mod 100 = 0 Then
Sheet1.Label1.Caption = Int(i / 10) & "%完了"
End If
Next i
Sheet1.Label1.Visible = False
Sheet1.TextBox1.Visible = False
End Sub
ＶＢＥ画面の実行－デザインモードを脱し、Ｓｈｅｅｔ１の画面に戻り、コマンドボタンをクリックして見てください。
進行状況が図示表示されます。
コマンドボタンは、テストをして見てもらうキッカケのためで、本番では要りません。
上記コードの主要部をご質問者の処理ループの中にいれてください。
Ｖｉｓｉｂｌｅ関係はループに入る前と脱出後にいれてください。
（私のパソコンは旧式ＣＰＵですので、テストしてみるには丁度適度の速さでしたが、速いＣＰＵのパソコンでは１０００を増やす（３箇所変更要）とゆっくりになるのではと思います。）
Sheet1.Label1.Caption = Int(i / 10) & "%完了"は
別のラベルを直下貼りつけ、そこで表示するほうがよいかも。はじめの時文字が全部は出ないなどのことに気づきましたが、説明を短くするため上記のままとしました。

お礼

ご丁寧な説明をありがとうございます。
なんか高度そうですね！でもこれができたらもっとカッコイイかも！
やってみます！ありがとうございました。

回答No.2

diashun

処理する行数を求める関数を作り、適当な行数処理毎にエクセルシートの適当なセル、またはラベルコントロールなどを表示させて、「現在○○行を処理しています」等というメッセージを表示してはどうでしょう。
これだとメッセージボックスのようにボタンを押して作業を中断することはありません。
＜コーディング例＞
Option Explicit

Sub メッセージ表示(lngCnt As Long)

Application.ScreenUpdating = False
ThisWorkbook.Sheets(1).Activate

Select Case lngCnt
Case 1000
Range("D3") = "現在 " & lngCnt & " 行を処理しています。"
Case 2000
Range("D3") = "現在 " & lngCnt & " 行を処理しています。"
Case 3000
Range("D3") = "現在 " & lngCnt & " 行を処理しています。"
Case 4000
Range("D3") = "現在 " & lngCnt & " 行を処理しています。"
Case 5000
Range("D3") = "現在 " & lngCnt & " 行を処理しています。"

End Select

End Sub

「lngCnt」（処理行）を引数にしています。
この引数を渡す処理は出来ますでしょうか？

補足

ありがとうございます。
ラベルコントロールって何でしょうか。
よろしければご教示ください。
よろしくお願いします。

回答No.1

capa0218

同じ処理を繰り返すって言うのは
ループを使っているのでしょうか？

何処かのセルに
処理ごとに”現在○○行を処理しています”って入れる
ではダメでしょうか？
同じセルに入れていくようにすれば
カウンターのように見えると思いますよ

お礼

ありがとうございます。
おっしゃる通り、この方法でいけますね！
でももうちょっと欲を出して、ウィンドウを開いてかっこよく(?)してみたい気がします。
ありがとうございました。