|
Excel2000です。
参考書に載っていた次のようなコードを実行してみました。
Private Sub UserForm_Initialize()
Label3.BackColor = &H8000000F
End Sub
Private Sub CommandButton1_Click()
Dim myStep As Single
Dim i = ASLong,j As Long
With Label3
mtStep = .Width / 100
.Width 0
.BackColor = &HFF0000
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
Label4.Caption = i & "%"
DoEvents
Nexti
Label1.Caption = "処理が終了しました"
End With
End Sub
というコードです。
コード自体は問題なく実行できました。
実行後、このユーザーフォームを開放しました。
しかし、Excelを開いてみると100行10列(1000個のセル)に、
ランダムに色付けされたセルの色が消えていません。
どのようにすれば、セルの色を消すことができるのでしょうか。
教えてください。
|
|