|
こんばんは。
プログレスバー(?)の働きをさせているのだと思います。
コードは、いろいろ間違いがあるようですが、
私が試してみたところ
ユーザーフォーム1に ラベル1 ラベル3(ちょっと長め) コマンドボタン1を
貼り付け
以下コードを実行
'Private Sub UserForm_Initialize()
' Label3.BackColor = &H8000000F
' Label1.Caption = ""
'End Sub
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
参考に角田さんの
http://www.h3.dion.ne.jp/~sakatsu/ProgressBarTopic.htm#J5
|
|