Question

VBA中怎样获取控件的值

获取以下值： ① 获取单选框的选择状态 ② 复选框的选择状态 ③ 列表框中的元素 ④ 组合框中的元素
以下动作怎样反映到VBA代码中： ① 按钮压下 ② 选框选择变化 ③ 列表框选择变化 ④ 组合框选择变化 ⑤ 微调按钮压下

Answer 1

OLEObject 对象
请参阅 属性 方法 事件 特性
Sheets
OLEObjects (OLEObject)
Borders (Border)
Interior

返回工作表中一个 ActiveX 控件或者一个链接式或内嵌 OLE 对象。OLEObject 对象是 OLEObjects 集合的成员。OLEObjects 集合中包含单张工作表中的所有 OLE 对象。

OLEObject 对象的用法
可用 OLEObjects(index) 返回一个 OLEObject 对象，其中 index 为对象名称或编号。下例删除 Sheet1 中的 OLE 对象一。

Worksheets("sheet1").OLEObjects(1).Delete
下例删除名称为“ListBox1”的 OLE 对象。

Worksheets("sheet1").OLEObjects("ListBox1").Delete
说明
工作表上的 ActiveX 控件的 OLEObject 对象的属性和方法是相同的。这样，通过使用控件名称，Visual Basic 代码即可访问这些属性。下例选中复选框控件“MyCheckBox”，将其设为与活动单元格对齐，然后激活此控件。

With MyCheckBox
.Value = True
.Top = ActiveCell.Top
.Activate
End With
有关详细信息，请参阅在工作表上使用 ActiveX 控件。

追问

运行时错误"9"
下标越界

注： 不要复制网上的回答，我试过了，不好用才问的！

Answer 2

1. 单选框的选择状态：optionbutton1.value
   

2. 复选框的选择状态：checkbox1.value

   value值有0、1、2不等，但都可用true或false表示，推荐用数字，true或false在某些特定情况显示会有问题

3. 列表框的元素：列表框就是数组，可用数组来输出列表框内容

4. 暂时没用过

1. 按钮压下：使用mousedown事件

2. 3.4.5. ：一起说了，变化基本上是value值发生变化

3. 微调按钮按下：mousedown事件

   最后想说，这都是些最基本的东西，自己不去摸索只会提问，我劝你还是放气vba放弃编程得了

Answer 3

这么多问题，你不会分开来一个一个问啊