|
▼hitosi さん:
>ファイルを検索しながらその検索がどのぐらい進んでいるのかをプログレスバーで表示させたいんですがどうすればいいのか教えてください。
参考にして下さい。プログレスバーも色々な表現があるようです。
これは標準的なもので、私はこれを活用しいます。
ラベルナンバーなどは調整してください。
Private Sub CommandButton1_Click()
Dim myStep As Single
Dim i As Long, j As Long
With Label3
myStep = .Width / 100
.Width = 0
.BackColor = vbRed
Label1.Caption = "実行中です…"
Randomize
For i = 1 To 100
For j = 1 To 10
With ActiveSheet.Cells(i, j)
.Interior.ColorIndex = Int(56 * Rnd + 1)
.Value = .Interior.ColorIndex
End With
Next j
.Width = .Width + myStep
.Caption = i & "%"
DoEvents
Next i
Label1.Caption = "処理が終了しました"
End With
End Sub
|
|