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 For i = 2 To 10 ComboBox3.Add...
If商品.ListIndex<>-1Then'组合框没选取时listindex会返回-1 TextBox1 = 商品.Value 'TextBox1要显示商品数量,上面已经用BoundColumn把商品控件的默认值设定第2列的值 TextBox2=商品.List(商品.ListIndex,2) 'TextBox2要显示商品单价,List即数据源的数值,以第一列作为索引0,显示索引后第二个的值 End If E...
代码解析：点击一次，me.cmbmonth的listindex增减1，遇到list开头再向上，则返回结尾，遇到结尾再向下则回到开头。原来是简单地在“20XX01~20XX12”之间循环，但是遇到某些月份没有数据就不好办了，要么报错，如果用On Error Resume Next则显示空白的列表，不爽。（3）窗体启动代码：Private Sub UserForm_Activate()，...
一般我自己会把组合框的下拉列表赋值写在UserForm_Initial。至于所谓初始值问题，完全可以再窗体复选框上方或左侧，加入一个标签Label1，标签属性里把内容写成"请选择班组"。用CLICK事件触发组合框下拉列表初始化的方法有待商榷。
ComboBox1.ListIndex = -1 End Sub 上述代码中,ComboBox1_DropButtonClick()是下拉列表框展开时的事件处理程序,ComboBox1_LostFocus()是下拉列表框失去焦点时的事件处理程序。 保存并关闭VBA编辑器。 这样,在Excel中使用该下拉列表框时,当展开下拉列表框后,点击其他单元格或者点击下拉列表框以外的区域,下拉列表框会...
在需要传递ComboBox索引的地方,使用以下代码将选定的索引值赋给"selectedIndex"变量: 代码语言:txt 复制 selectedIndex = ComboBox1.ListIndex 现在,可以将"selectedIndex"变量的值传递给数组或进行其他操作。例如,可以创建一个整数类型的数组,并将选定的索引值存储在数组中的特定位置: 代码语言:txt 复制 Dim myArray(...
有办法，看下面的代码：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开始的。
可以通过设置其value属性来给组合框赋值，示例代码如下 Private Sub ComboBox2_AfterUpdate()Dim rng As Range Select Case Me.ComboBox2.ListIndex Case 0 Set rng = Sheet1.Range("C1:C10")Case 1 Set rng = Sheet1.Range("D1:D10")End Select Me.ComboBox3.RowSource = rng.Worksheet....
Cells(1, 1)=ComboBox1.text Cells(1, 2)=ComboBox1.List(ComboBox1..ListIndex, 1)当前选择的 清除 ComboBox1.Clear 选择第一项 ComboBox1.ListIndex = 0 不选择项 ComboBox1.ListIndex = -1 禁止自行输入 ComboBox1.Style = fmStyleDropDownList ' ...
而用VBA把SQL语句写入是十分方便有效,而且更进一步可以把写过的SQL用一个窗体载入,大大简化了操作,再不用ALT+D+D+D了。 窗体部分.png 代码部分: PrivateSubComboBox1_Change()ComboBox2.ListIndex=ComboBox1.ListIndexSetc=Sheets("SQL语句").Range("A:A").Find(Left(ComboBox1.Text,15),,lookat:=xlWho...