- 76 名前： ◆aAB/3SgCFU mailto:sage [2009/05/17(日) 13:44:16 ]
- 自分が使っているテキストでは、下のプログラムを実行すると、
シートの行と列全てがアトランダムに塗りつぶされるはずなのですが、
実際にやってみても、全列の1行目しか塗りつぶされません。
どこかおかしいのか、教えていただけませんか？
Option Explicit
Sub 画面更新()
Dim i As Integer
Application.ScreenUpdating = False
Rows.ColumnWidth = 1.75
For i = 1 To 6000
Cells(i).Interior.ColorIndex = Int(Rnd * 56) + 1
Next i
MsgBox "これから更新します。"
Application.ScreenUpdating = True
MsgBox "更新終わりました。"
End Sub
