ComboBox如何循环

fanji1987916 · 发表于 2022-12-9 16:53

请问，直接在表格里插入的多个ComboBox（ActiveX控件）如何循环？

我知道在userform中的表达，Me.controls("combobox" & i)。
但是表格里直接插入的不能这样表达，没办法循环

chxw68 · 发表于 2022-12-9 18:06

Sub test()
With Worksheets("sheet1")
For i = 1 To 3
Debug.Print .Shapes("CheckBox" & i).DrawingObject.Object.Value
Next
End With
End Sub

复制代码

chxw68 · 发表于 2022-12-9 18:06

Sub test()
With Worksheets("sheet1")
      For i = 1 To 3
         Debug.Print .Shapes("CheckBox" & i).DrawingObject.Object.Value
      Next
End With
End Sub

taller · 发表于 2022-12-10 01:03

fanji1987916 · 发表于 2022-12-10 08:37

taller 发表于 2022-12-10 01:03

非常感谢，只是我需要的是另一种循环方式

leimingsen · 发表于 2022-12-10 09:27

fanji1987916 · 发表于 2022-12-10 10:40

leimingsen 发表于 2022-12-10 09:27

感谢，两种类型的控件都有，又学了一种方法

		自动登录	找回密码
密码			免费注册

[求助] ComboBox如何循环

评分