VBA中怎样获取控件的值

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 = ActiveCellTop

Activate

End With

有关详细信息，请参阅在工作表上使用 ActiveX 控件。

先建一个窗体，一个listbox1,两个commandbutton，一个textbox1，代码如下：

Private Sub CommandButton1_Click()

With ListBox1

Clear

For i = 3 To ActiveSheetRange("A65536")End(xlUp)Row

AddItem Cells(i, 1)

Next i

End With

End Sub

Private Sub CommandButton2_Click()

For i = 0 To ListBox1ListCount - 1

If ListBox1Selected(i) Then

TextBox1 = TextBox1 & ListBox1List(i)

End If

Next i

End Sub

用additem方法。

additem是listbox的一个方法，有两个参数，第一个参数是添加到listbox中的文本Itemasstring，第二个参数是添加到listbox中的索引Indexaslong，该索引对应列表中的第几项，是个可选参数。

vba窗体中如何获取列表框listbox1选中行的值提取出来，这决于您的列表框是多列还是单列。

以上就是关于VBA中怎样获取控件的值全部的内容，包括:VBA中怎样获取控件的值、CAD VBA listbox问题、vbalistbox作为参数怎么用等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！