excel方括号在VBA中的妙处( 三 ) _知识经验

下面的代码在当前工作表单元格A1至A10中的值。
Sub testEnterValue()
Dim rng As Range, i As Long
【excel方括号在VBA中的妙处】For i = 1 To 10
Set rng = Range(“A” & i)
[rng] = ” Excel”& i
Next
End Sub
示例5：引用图表和工作表对象
下面的代码设置当前工作表单元格背景色及图表格式。
Sub testObject()
[图表 1].Activate
With ActiveChart.ChartArea
.Interior.Color = vbRed
.Border.Color = vbYellow
End With
[Sheet6].Cells.Interior.Color = vbBlue
End Sub
运行后的效果如图4 。

文章插图
图4
下面的代码依次激活当前工作簿中的工作表。
Sub testObject1()
Dim ws As Worksheet, i As Long
For i = 1 To Worksheets.Count
Set ws = Worksheets(“Sheet”& i)
[ws].Activate
Next i
End Sub
示例6：数组
下面的代码在虚拟单元格中创建数组，然后将其输入到工作表单元格中。
Sub EvaluateArray()
Dim Array_1D, Array_2D
With Worksheets(“Sheet8”)
Array_1D =[{“A”,”B”,”C”,”D”,”E”}]
.[A1].Resize(1, UBound(Array_1D, 1)) =Array_1D
Array_2D = [{1,2;3,4;5,6}]
.[A3].Resize(UBound(Array_2D, 1),UBound(Array_2D, 2)) = Array_2D
End With
End Sub
运行代码后的结果如图5 。

文章插图
图5
示例7：统计单元格数据的数量
下面的程序统计列A中，某单元格的值在其上面的单元格中出现的次数。
Sub CountCellNum()
Dim i As Long
For i = 2 To [COUNTA(A:A)]
Evaluate(“B” & i) =Evaluate(“COUNTIF(A1:A” & (i – 1) & “,A” & i& “)”)
Next i
End Sub
运行后的结果如图6 。