VBA でマクロ実行中に表示するプログレスバーはどこにコードを入れるのか

Question

VBAを触って間もない初心者です。

以下のようなコードがあります。
Sheet2からSheet1にコピーする
(Sheet2の列を上から見てゆき未が記入されているならSheet1には×と表記する)というマクロなのですが、
日によってはデータが多いと1分ほど掛かるので進捗が欲しいなと思い、方法を調べてみました。

こちらのサイトを参考にして、ユーザーフォームとプログレスバーを作ったのはいいのですが、
このマクロをどこに挿入すればよいのか分からずに終わってしまいました。

そもそもループ？というのでしょうか、この形で進捗を表せるのでしょうか。
初歩的な質問で申し訳ありませんがご教授の程をお願いします。

Sub マクロ()
Dim Bk2 As Worksheet
 Dim i As Long

    Set Bk2 = Worksheets("Sheet1")
    For i = 1 To Bk2.Cells(Rows.count, 1).End(xlUp).Row

'対応日が本日なら
If Bk2.Cells(i, 1) = Date Then
With Sheets("Sheet2")

If Bk2.Cells(i, 31) = Cells(3, 2) And Bk2.Cells(i, 28) = "未" Then
.Cells(j, 3) = "×" 
Else
.Cells(j, 3) = Bk2.Cells(i, 28)
End If

j = j + 1

End With
End If
Next
End Sub

Answer 1

質問の中でループを書いてますよね。

For i = 1 To Bk2.Cells(Rows.count, 1).End(xlUp).Row

Next

このなかでプログレスバーの値を更新してあげればOKです。

リンク先の中にある

percent = CInt(i / count * 100) 
UserForm1.ProgressBar1.Value = i 

のように徐々に数値をあげてあげれば動いていきます。
それぞれフォームの部品名や値は必要に応じて合わせるなり計算するなりしてください。

Comments

[dokoniarukana]

＞このなかでプログレスバーの値を更新してあげれば

この中 というのは

For i = 1 To Bk2.Cells(Rows.count, 1).End(xlUp).Row
～ここにリンク先のコードを挿入～
Next

という認識で合っていますか？

[Mr_Roboto]

そうです、そのまま挿入してもダメですよ
きちんと自分の環境に合わせて修正してくださいね。

[dokoniarukana]

遅くなりましたが回答ありがとうございました。