Tag: listbox
Excel VBA：为多列列表框创build一个数组
昨天 ，我问了如何为一个列创build一个数组。 之前我只需要一个，但现在我有一个多列的列表框。 使用三个给我的代码，我试图编辑它，看它是否工作，但我认为我一定是做错了。 你能否告诉我，如果我做得正确，这只是我的程序的另一部分，或者如果我只是需要修复它。 另外它给了我 下标超出范围 这是我认为需要检查的部分： Private Sub CommandButton1_Click() Dim listboxarr() Dim i As Long, j As Long Dim found As Boolean With Me.selecteditems For i = 0 To .ListCount – 1 For h = 1 To 2 If .Selected(i) Then found = True j = j + 1 k = k + […]
如何从列表框中将所选值（一次一个）添加到特定的Excel列
我正在使用包含文件夹名称的列表框。 我需要从列表框中select一个名字（一次一个，保持select的顺序）并将其添加到excel列A1，这样每次添加到列A的下一个空单元格。我对vb并需要帮助。 以下是我尝试的方法。 方法1） Sub AddRecord_Click() With Sheet1.ListBox1 For intIndex = 0 To .ListCount – 1 With ActiveSheet LastRow = .Cells(.Rows.Count, "F").End(xlUp).Row End With If .Selected(intIndex) Then Sheet1.Cells(LastRow, "A") = Sheet1.ListBox1.Value NextRow = LastRow + 1 End If Next End With End Sub 方法2） Sub AddRecord_Click() intRecord = (CInt(Range("A1").End(xlDown).Row) + 1) Sheet1.Cells(intRecord, "A") = Sheet1.ListBox1.Value […]
多选列表框内容到范围
使用VBA我创build了一个用户窗体与各种文本框，combobox和列表框。 我现在设置它，所以一旦你点击提交button（ Commandbutton1 ），各种框内容填充我的工作表上选定的单元格。 Private Sub CommandButton1_Click() Sheets("Sheet2").Range("D4") = TextBox1.Text Sheet2.Cells(5, 4) = ComboBox2.Text Sheet2.Cells(6, 4) = ComboBox1.Text Sheet2.Cells(7, 4) = TextBox2.Text Sheet2.Cells(8, 4) = TextBox4.Text UserForm1.Hide End Sub 我也希望我的多选列表框的内容为单元格（9，4） – （15，4）做同样的事情。 我怎样才能做到这一点？ 这个多选列表框的选项范围从Insight，梭子鱼，锡耶纳，Visio，项目。
VBA从多选列表框中获取数据并将其保存在其他excel文件中与当天date一栏
首先我会告诉你我正在做什么和我已经做了什么。 我有两个文件：MSS – 从哪里获取数据到我的列表框，我想在列表框中select项目的输出，其次我有用户窗体。 我已经完成了获取数据到列表框并多选了它： Private Sub UserForm_Initialize() On Error GoTo UserForm_Initialize_Err Dim cnn As New ADODB.Connection Dim rst As New ADODB.Recordset Dim i As Integer cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;;" & _ "Data Source=C:\Users\plkmxm08\Desktop\MMS.xlsm;" & _ "Extended Properties=""Excel 12.0 Xml;HDR=YES;"";" rst.Open "SELECT [LINE], [TASK] FROM fff ORDER BY [LINE];", _ cnn, adOpenStatic rst.MoveFirst i = 0 With […]
在worksheets.activate命令之后的非活动列表框
我的ActiveX控件列表框有问题。 在worksheets.activate命令之后，它似乎处于不活动状态。 这是我在做什么： 在Sheet1中，我有两个button来触发不同的vba代码和一个ActiveX控件列表框，用于生成第二次计算所需的string。 当我将鼠标移动到列表框上时，光标从十字转到箭头，所以我可以select这些框。 我的第一个button触发一个基于vba的数据导入。 数据存储在Sheet2中。 之后，我再次激活Sheet1（Sheet1.Activate）。 之后，不再可能selectListBox中的框（当在列表框上移动时，光标不再从十字转换为箭头）。 如果我摆脱命令Sheet1.Activate，在数据导入后，ActiveSheet显然是Sheet2。 奇怪的是，在Excel中selectSheet1后，ListBox仍然在工作。 所以在我看来，命令worksheets.activate以某种方式停用列表框。 有没有人有一个想法如何解决这个问题？ 这将是导入脚本的代码： Sub import_stuff() ''defining variables Dim panel As Worksheet ''turn off screen updating and displaying alerts Application.ScreenUpdating = False Application.DisplayAlerts = False ''defining the used workbooks Set panel = ThisWorkbook.Worksheets("Controll Panel") Set inputbook = Workbooks.Open("link to file") ''delete the worksheet "input data" […]
VBA列表框值匹配列表
我有一个用户表单，他们应该从工作表中的一个表中select一个供应商，当他们按下“ShowProducts”命令时，表单应该在下面的文本框中显示来自该供应商的所有文章。 我做了下面的代码，但它不断给我一个错误， If Suppl.Value = Me.LstB_Supplier.Value Then 。 我已经search并尝试了不同的选项，我发现这个和其他网站，但我似乎无法find什么错。 谁能帮我吗？ 谢谢！ Private Sub Cmd_ShowProducts_Click() Dim Suppl As Range Dim i As Integer For Each Suppl In Range("T_Prod_Fix[Supplier Name]") If Suppl.Value = Me.LstB_Supplier.Value Then With Me.LstB_Products .AddItem .List(i, 0) = Suppl.Offset(0, 1).Value 'article nbr .List(i, 1) = Suppl.Offset(0, -1).Value 'article name i = i + 1 […]
Excel Listbox不会在ListFillRange更改后更新
所以我试图创build一个dynamic的列表框，除了列表框没有更新，一切正常。 如果您查看属性ListFillRange已更改，但实际的框保持相同的范围。 我的代码如下： Private Sub ListBox1_Click() Dim Rng As String Rng = "'Identificatie_&_WGK'!R2:R" & (Worksheets("Identificatie_&_WGK").Range("S2").Value + 1) Worksheets("Etiketten").ListBox1.ListFillRange = Rng End Sub S2是需要显示的名称的数量。
Excel VBA – 创build一个ListBox
如何在Excel VBA中创build（不修改/填充）ListBox？ 我需要为列中的每个单元格生成各种列表框，而不使用VBA将是不切实际的。 我正在寻找像这样的东西： Dim lb as ListBox ' Populate ListBox Here ' worksheet.Cells(1,1) = lb ' Apply ListBox to cell ' 我已经彻底search了这个（也许我的术语是错误的），但我无法find创build一个列表框，并将其应用到各种单元格的单一参考。 谢谢！ 编辑：应该指出的是Dim lb As MSForms.ListBox引发错误 “用户定义types未定义” 。 也许这是如何创build列表框…但我需要包括这个库????? 我不知道该怎么做，但…
需要列表框值单击后单元格中显示
我有一个带有多个迭代的表单控件列表框。 我希望电子表格中的某个单元格显示用户select的列表框项目的内容，并在用户进行不同的select时进行更改。 不知道从哪里开始。
Excel VBA：根据在文本框中设置的值在列表框中search值
我正在尝试编写一个searchbutton的代码，该searchbutton用于search基于文本框中特定input集的列表框。 search到的值始终是数字，列表框包含来自单个列的值。 我写的代码可以在下面find，但我不明白为什么它不起作用。 传说： SearchButton：一个button，点击应该启动search SearchBox：将包含search值的文本框 AvailableNumberList：包含数据的列表框 谢谢你的帮助 ：） Private Sub SearchButton_Click() Dim SearchCriteria, i, n As Double SearchCriteria = Me.SearchBox.Value n = AvailableNumberList.ListCount For i = 0 To n – 1 If SearchCriteria = i Then AvailableNumberList.ListIndex = i End If Next i End Sub
