在VBA编辑器中,找到并双击要添加ComboBox的用户表单,以在设计视图中打开它。 添加ComboBox控件: 从工具箱中选择“ComboBox”控件,并将其拖放到表单的适当位置。 设置ComboBox内容: 右键点击ComboBox控件,选择“属性”以打开属性窗口。 找到“List”属性,并点击进入编辑模式。 在编辑框中手动输入内容项,每个
"选项2", "选项3", "选项4") ' 将选项加载到ComboBox中 With ComboBox1 .Clear ' 清空任何现有的项 .AddItem "请选择..." ' 添加默认提示项(可选) For Each item In options .AddItem item Next item .ListIndex = 0 ' 默认选中第一项提示信息(可选) End With End Sub 处理...
Me.TextBox1.Value = Me.ComboBox1.Value '(BoundColumn ) Me.TextBox2.Value = Me.ComboBox1.List(Me.ComboBox1.ListIndex, 1) '这里表示 的是当前选中行的第二列,因为列是从0 开始的 End If End Sub Private Sub ComboBox1_Enter() Me.ComboBox1.DropDown '进入的时候,自动显示下拉列表 Me.Combo...
vba_ComboBox Private Sub ComboBox1_Change()If Me.ComboBox1.ListIndex <> -1 Then Me.TextBox1.Value = Me.ComboBox1.Value '(BoundColumn )Me.TextBox2.Value = Me.ComboBox1.List(Me.ComboBox1.ListIndex, 1) '这里表示 的是当前选中行的第二列，因为列是从0 开始的 End If End Sub Private...
有办法，看下面的代码：Private Sub CommandButton2_Click()MsgBox ComboBox1.List(ComboBox1.ListIndex, 0)End Sub ComboBox1.List(ComboBox1.ListIndex, 0)就表示第1列的值，将0换成1就表示第2列的值，换成2就表示第3列的值，看出来了吧，列标是从0开始而不是从1开始的。
以下是一个简单的示例代码：收起vbPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)If Target.Column = 1 Then '里设置需要添加下拉框的列With Me.ComboBox1 .RemoveAllItems .AddItem "选项 1".AddItem "选项 2".AddItem "选项 3".ListIndex = -1.Top = Target.Top .Le...
Private Sub UserForm_Initialize() ComboBox1.Clear ComboBox2.Clear ComboBox3.Clear For i = 2 To 44 ComboBox1.AddItem Sheet1.Range("E" & i).Value Next i ComboBox1.ListIndex = 0 For i = 2 To 34 ComboBox2.AddItem Sheet1.Range("B" & i).Value Next i ComboBox2.ListIndex = 0 ...
'复合框赋值 ComboBox1.List = comlist'comlist是数组，'设置默认显示值 ComboBox1.ListIndex = 0' 默认显示值，0是默认显示序号，0表示comlist数组的第一个元素 用
Public radius1 As Variant 'LZ需要的变量 Private Sub ComboBox1_Change() '组合框改变时的动作 Dim iStr As String iStr = a(ComboBox1.ListIndex)TextBox1.Value = Right(iStr, Len(iStr) - InStr(iStr, "|"))radius1 = TextBox1.Value MsgBox radius1 End Sub Private Sub UserForm...
cboComboBox1.AddItem "one" cboComboBox1.AddItem "two" cboComboBox1.ListIndex = 1 (zero based) Currently selected item Obtaining the currently selected item in a combo box. CallMsgbox (cboComboBox1.Value) Select a value cboComboBox1.Value = "some text" ...