Tag: listbox

在用户窗体中的列表框

我有一个Excel的用户表单，它有一个用于员工姓名的列表框。 我从Excel工作表的A列中select选项，以便可以根据以前的条目自动完成用户表单中的条目。 问题是，在每个员工的工作表中有多行条目，我想在下拉列表中只有一个名称。 填充列表框的代码是： Private Sub UserForm_Initialize() Me.txtName.List = Worksheets("Sheet1").Range("A6:A600").Value 有没有办法做到这一点？ If ListBox1.Range.Value…?

在Excel中可以列表框有一个下拉而不是滚动条？

我正在replace列表框中的某些combobox，以便用户可以select多个项目。 我遇到的问题是，我有一长串的项目，我没有空间，使列表框显示多行。 如果我可以使列表框看起来像一个combobox，并select多个项目的能力，这将是最好的。 我似乎无法find属性，使列表框有一个下拉菜单。 图片中的中间控件是列表框，您可以看到滚动条。 像这样滚动30个项目是不实际的。 是否有一个属性，让它像combobox下拉菜单？ 谢谢。

UserForm使用条件填充列表框

我有一个名为db.xls的不同工作簿中的五列数据库： userid – date – name – subject – comments 我填写这个数据input表单（工作正常）。 问题出在UserForm中，我需要检索列表框中特定条件的特定条目。 我需要把名称和主题放在两个文本框或下拉列表中，这两个标准填充一个列表框，按date+主题升序排列，当我点击任何列表框项时，它会查找并给我留言与文本框中的那一行。 CODE： Private Sub searchbutton_Click() Dim nwb As Workbook Application.ScreenUpdating = False Set nwb = Workbooks.Open("C:\db.xls", _ False, True) txtsubject.Text = "" Set xSht = nwb.Sheets("notes") Lastrow = xSht.Range("C" & Rows.Count).End(xlUp).Row strSearch = txtname.Text Set aCell = xSht.Range("C1:C" & Lastrow).Find(What:=strSearch, LookIn:=xlFormulas, _ LookAt:=xlPart, […]

如何用填充在module1 VBA中的数组填充一个列表框

我刚刚在VBA中创build用户表单。 我已经使用了一段时间的VBAmacros，但是我理解了一些。 现在我正在创build一个用户的电子表格，我正在使用一个列表框的用户表单。 我在常规模块中有很多代码，需要引用模块来填充列表框。 我现在所拥有的是： Private Sub StartButton_Click() Dim Number Call GetTellerNames For Number = 0 To 40 Step 1 If GetTellerNames(Number) <> "" Then ListBox1.AddItem (GetTellerNames(Number)) End If Next End Sub 当我运行这个时，我得到一个错误说 函数的子集没有定义 我如何解决这个问题，以便我可以使用我的模块中的数组来填充列表框？ 我已经有了代码来填充数组的工作。 以下是模块中的GetTellerNames子代码： Private Function GetTellerNames() GetTellerNames = FindOthers(BranchNumber, TellerCode, 2) End Function 它使用在代码的其他部分设置的全局variables。 如有必要，我可以发布所有的代码。

Excel VBA表单控件 – 重置列表框滚动条

我写了下面的代码，从同一张纸上的六个列表框（多选）拉取数据，将select传递给一个模块进行计算，然后清除列表框select。 尽pipe非常令人沮丧的唯一问题似乎微不足道的是获取列表框“滚动条”为每个列表框重置其位置列表的顶部。 我曾尝试.TopIndex，但因为我使用的是一个窗体控件，而不是一个ActiveX控件，它返回“对象”不支持。 有谁知道如何重置列表框滚动条位置顶部的窗体控件列表框？ Sub Listboxproperties_click() 'store selected items from listbox into an array Dim listarray() Dim J As Integer Dim R As Integer Dim i As Integer 'Add selected items into the array ReDim listarray(1 To 50, 1 To 6) 'Counter J = 0 For R = 1 To 6 Set lb = ActiveSheet.ListBoxes("ListBox" […]

如何使用VBA在多列列表框中隐藏列

我正在使用2维数组将数据加载到多列列表框中。 我想隐藏一个特定的列，但不知道如何。 我不能排除数据 – 因为我想稍后将其作为隐藏的列引用 – 但我不希望用户看到它。 这是我到目前为止： For x = 0 To UBound(ReturnArray, 2) NISSLIST.ListBox1.Clear 'Make sure the Listbox is empty NISSLIST.ListBox1.ColumnCount = UBound(ReturnArray, 1) 'Set the number of columns 'Fill the Listbox NISSLIST.ListBox1.AddItem x 'Additem creates a new row For y = 0 To UBound(ReturnArray, 1) NISSLIST.ListBox1.LIST(x, y) = ReturnArray(y, x) 'List(x,y) X […]

ListBox.RowSource不返回任何结果时，允许列表框不显示任何结果

我目前使用下面的代码在窗体中填充一个ListBox： 'Populate In-Form Table With ListBox_InFormTable .ColumnCount = 4 .ColumnWidths = "100;100;100;50" .RowSource = ws.Range("MasterDataTable").SpecialCells(xlCellTypeVisible).Address End With 但是，我也积极地过滤表单中显示的其他字段中显示的内容。 除了当我过滤掉所有的结果，这工作正常。 而不是得到一个错误，指出：“没有细胞被发现。 我宁愿把表格留空。 任何帮助，将不胜感激，我一直在我的头撞这一段时间了。 谢谢！

重置VBA中的列表框select

我正试图在Excel VBA中重置一个列表框。 目前，当我使用userform1.hide函数的forms消失，但是当我用.show函数打开它时，它仍然有以前的select。 作为一个相对较新的人可以帮助吗？ 列表框的代码如下所示： Sub CommandButton1_Click() 'Filter by Country Dim item As Long, dict As Object Dim wsData As Worksheet Set wsData = Sheets("TPID") Set dict = CreateObject("Scripting.Dictionary") With ListBox1 For item = 0 To .ListCount – 1 If .Selected(item) Then dict(.List(item)) = Empty Next item End With With wsData.ListObjects("Table_ExternalData_1").Range .AutoFilter Field:=1 If dict.Count […]

向表中添加新行时Excel停止工作

我不知道为什么，但是当我尝试这样做Excel退出而不保存任何东西： 在Sheet1我有11行x 6列格式化为表。 第一行作为表格标题。 我使用名称pipe理器将col A指定为STU_ID命名范围。 我只有一个用户窗体上的列表listbox 。 我给RowSource属性=STU_ID 。 我在列表框上得到col A数据。 现在，当我转到Sheet1并尝试在表格的下一行添加更多数据时。 Excel退出说它已停止工作。 Windows正在检查错误，并在空白Workbook上重新启动。 不应该ListBox是dynamic的，并从名称pipe理器获取数据，因为我将它们添加到工作表上？ 我在Win 10 64位上使用MS Excel Pro 13。

插入行后，ActiveX列表框将resize

当我插入一些完整的行时，维护ActiveX ListBoxes的大小时遇到​​问题。 请参阅图片链接。 我已经检查过“属性”面板，并将“IntegralHeight”设置为“真”，将“locking”设置为“真”。 任何帮助将非常感激。 谢谢。 属性面板fyr：