//获取单元格背景色
Range(“A1”).Interior.ColorIndex
//设置单元格背景颜色
For Each item In Range(Range(“A1”), Range(“H10”))
If item.value = 0 Then
item.Interior.ColorIndex = 10
ElseIf item.value = 1 Then
item.Interior.ColorIndex = 11
End If
Next
//赋值
Dim a As range
Set a = Sheets(sheetName).range(“A1:C6”)
a.Borders.LineStyle = 1//表格线宽度
a.Font.ColorIndex = 1//颜色
a.Font.Name = “Arial”//字体
a.HorizontalAlignment = xlCenter//居中
//计算方法耗时
Dim t As Single
t = Timer
Timer - t
//do循环
Sub ClassNamer()
Dim MyClasses As New Collection ' 建立一个集合对象(Collection)。
Dim Num ' 计数用变量,用来对对象的个数计数。
Dim Msg As String ' 提示信息用变量。
Dim TheName, MyObject, NameList ' 对象信息用变体。
Do
Dim Inst As New Class1