第一步。把代码复制进VBE编辑器,要在的那个工作表使用,就复制进那个工作表。 第二步。在你要使用的工作中新建一个文本框和一个列表框。 控件大小随便画,不用担心,后续VBA会自动调整。有一点要注意,你所建的控件的名称一定要与VBA代码中要控制的名称一样,文本框的名称为:TextBox1,列表框的名称为:ListBox1。
MsgBox "选择的项是:" & selectedItem End Sub ``` 2. 多选: 要实现多选功能,需要将ListBox的Style属性设置为1(Simple)。然后,可以通过以下方法来获取所有选中的项: ```vba Sub GetSelectedItems() Dim i As Integer Dim selectedItems As String For i = 0 To ListBox1.ListCount - 1 If ListBox1...
ListView1.Items.Add("Item " & i, i) Next End Sub 运行后,单击按钮,效果如下图六所示: 也可以使用如下代码来添加Item,其运行效果是一样的: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ListView1.LargeImageList = Me.ImageList1 Lis...
AddItem "Item 2" ListBox1.AddItem "Item 3" 复制代码 删除列表项: 可以使用RemoveItem方法删除指定索引的列表项。例如: ListBox1.RemoveItem 0 ' 删除第一个列表项 复制代码 清空列表项: 可以使用Clear方法清空ListBox控件中的所有列表项。例如: ListBox1.Clear 复制代码 获取选中项: 可以使用ListIndex属...
Dim accTypeDic As Object Dim arr5(), arr6() If Me.CmdSwitch.Caption = "控件输入" Then Exit Sub If Target.Row > 1 Then '避开表头 If Selection.Cells.count > 1 Then '避开多重选区 Me.TextBox1.Visible = False Me.ListBox1.Visible = False Exit Sub End ...
ListBox1.Selected(0) ‘选中列表框中的指定的条目 ListBox1.RemoveItem ListBox1.ListIndex ‘移除列表框中选中的条目 If MsgBox(“要退出吗?”,vbYesNo)<>vbYes Then Exit Sub ’返回值不为“是”,则退出 Config=vbYesNo+vbQuestion+vbDefaultButton2 ’使用常量的组合,赋值组Config变量,并设置第二个按钮...
根据前面我们分享的（【重磅】Excel VBA 应用分享/中医诊所收费系统/Excel+ListBox版），我们发现，目前的数据库结构需要调整：1、tb收费明细：需要增加字段，数量、单价。2、需要增加一个新表：tb价格文件，用于录入收费项目时，自动填写价格，根据数量，自动计算收费金额。下面我们一起来做吧：1、tb收费明细增加数量...
最后，ListBox控件还可以处理用户的选择。当用户选择ListBox中的一个或多个项目时，你可以使用VBA代码来获取这些选择，并据此执行相应的操作。例如，你可以使用ListBox的Value属性来获取用户选择的项目的值，或者使用SelectedItem属性来获取用户选择的项目的文本。下面是一个简单的例子，演示了如何在Excel VBA...
IfListBox1.Selected(Y)=TrueThen''判断是否选中 'ListBox1.RemoveItem(Y)'判断是否选中，如果是就...
If Me.ListBox1.Selected(X) = True Then '可以用来判定x行是否被选中 Me.ListBox1.ListCount '列表框的条目个数 Me.ListBox1.MultiSelect = fmMultiSelectExtended '为0时,只能选一个,为1时,用鼠标多选或取消选择,为2时,需要要按shift 或ctrl 才能多选 ...