|
Dim OptionButtonAry() 'for each 的控件变量必须为变体,不能As OptionButton
Private Sub Commanon1_Click()
OptionButtonAry() = Array(OptionButton1, OptionButton2, OptionButton3, OptionButton4, _
OptionButton11, _
OptionButton21, _
OptionButton31, _
OptionButton41, _
OptionButton12, _
OptionButton22, _
OptionButton32, _
OptionButton42)
End Sub
Private Sub Document_Open() '建立控件数组
Dim b 'for each 的控件变量必须为变体,这里也不能As OptionButton
OptionButtonAry = Array(OptionButton1, OptionButton2, OptionButton3, OptionButton4, _
OptionButton11, _
OptionButton21, _
OptionButton31, _
OptionButton41, _
OptionButton12, _
OptionButton22, _
OptionButton32, _
OptionButton42)
For Each b In OptionButtonAry
MsgBox b.Name
Next
End Sub
Private Sub Commanon2_Click() '全部清空
For Each op In OptionButtonAry()
op.Value = False
Next
End Sub
Private Sub Commanon3_Click() '根据控件名操作
Dim op
For Each op In OptionButtonAry
If InStr(op.Name, "OptionButton1") <> 0 Then
op.Value = True
End If
Next
End Sub
Private Sub Commanon4_Click() '测试过滤函数 Filter()
myArray = Array(1, 2, 3, 10, 15, 21) '创建数组
myFilterAry = Filter(myArray, 1) '预先在数组中筛选包含1的元素
For Each i In myFilterAry
MsgBox i '显示1, 10, 15, 21
Next
End Sub
分享: |
|