Tag: listbox

为什么ListBox在Excel-VBA中没有FindString方法？: 试图在ListBox上search。具体来说，我想查看一个单元格中的项目数组，并为每个匹配列表框中的条目，我希望它select该列表。我复制了一些应该让我find一个string的代码，但它一直告诉我：编译错误：找不到方法或数据成员。有什么build议么？相关编码： Public local_Target As Range ' local_Target is assigned in the sheet function to pass it here Private Sub Network_ListBox_Enter() ' Get data in cell (if any) Dim current_data As String Dim entries() As String current_data = local_Target.Value If current_data = "" Then Exit Sub Else entries = Split(current_data, vbNewLine) […]

用户自定义列表框行源不填充: 我有一个OK和Cancelbutton和列表框的用户窗体。它应该填充使用这个代码： Private Sub UserForm_Initialize() Me.StartUpPosition = 0 Me.Top = Application.Top + (Application.Height / 2) – (Me.Height / 2) Me.Left = Application.Left + (Application.Width / 2) – (Me.Width / 2) With Me.ListBox1 .RowSource = "" .ColumnCount = 7 .ColumnWidths = "80;100;20;1;20;1;1000" .RowSource = Sheets("BOH Database").Range("H9:N14").Address ' .RowSource = Sheets("BOH Database").Range("H9:N" & Sheets("BOH Database").Range("a65536").End(xlUp).Row – 1).Address […]

VBA EXCEL：列表框更改维度: 我正在编写一个程序作为Excelmacros，我有一个Listbox的问题。取决于屏幕的尺寸，列表框会改变其宽度。列表框是用户界面的一部分，所以它不应该改变尺寸 … 有没有办法把它固定在特定的细胞范围？

导出列表框到Excel: 我试图导出3个列表框到Excel文件中。每个列表框必须导出到不同的单元格。 debugging时没有错误。但它不工作，冻结窗体。这是我的代码 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click MsExcel = CreateObject("Excel.Application") MsExcel.Workbooks.Open("C:\Users\User\Desktop\11.xlsx") OffS = 0 For Each oItem In ListBox1.Items MsExcel.Range("AB2").Offset(OffS, 0).Value = oItem OffS = OffS + 1 For Each oItemm In ListBox2.Items MsExcel.Range("AC2").Offset(OffS, 0).Value = oItemm OffS = OffS + 1 For Each oItemmm In ListBox3.Items […]

VBA将列表框对象的值与范围匹配: 我正在尝试根据单元格范围（匹配）检查列表框中的项目这是我迄今为止所做的。 Dim j As Integer Dim lItem As Long Dim rowx as Long rowx = 12 j = 0 For lItem = 0 To Worksheets("Bordereau Prep").ListBoxPlot.ListCount If Worksheets("Bordereau Prep").ListBoxPlot.List(lItem) = Worksheets("Liste").Cells(rowx, 40 + j) Then Worksheets("Bordereau Prep").ListBoxPlot.Selected(lItem) = True j = j + 1 End If Next lItem 这就是我想要的，检查在range_pr_el列表中的项目，但它会抛出一个错误： If Worksheets("Bordereau Prep").ListBoxPlot.List(lItem) = Worksheets("Liste").Cells(rowx, […]

Excel VBA编译错误列表框: 我正在接近完成一个自定义的Excel工作簿。我有一个恼人的问题，下面的代码工作，但给加载编译错误。我试过寻找的解决scheme，但对VBA是如此新，我甚至不知道是什么可能导致这个问题。它突出显示listbox1，但我有logging表中的listbox1。（编译错误“方法或数据成员未find”） Private Sub ListBox1_Click() Sheet2.TextBox1.Value = " " Dim i As Long i = Sheet2.ListBox1.ListIndex If i < -1 Then Exit Sub Sheet2.TextBox1.Value = Sheet1.Range("C" & (i + 4)) End Sub 谢谢

错误“1004”：select范围类失败的方法: 我相信每个读过标题的人都会说“不，不是”。但是在发表这篇文章之前，我已经阅读了大约7-8个类似标题的问题，似乎没有人能够工作。所以这是交易：我的工作簿使用Workbook_Open事件来显示一个用户窗体： Sub Workbook_Open() UserForm1.Show End Sub Userform1包含一个文本框和一个列表框。根据用户在文本框中input的内容，dynamic地为列表框填充数据。到目前为止一切正常。当用户单击列表框中的一个值时，我想要select一个特定的单元格。所以我用这个： Private Sub ListBox1_Click() Dim Cell As Range With ThisWorkbook.Worksheets(1) Set Cell = .Range("C3", .Cells(.Rows.Count, 3).End(xlUp)).Find(UserForm1.ListBox1.Text, LookIn:=xlValues) .Range(Cell, Cell.Offset(0, 2)).Select End With End Sub 但是和我之前的许多其他人一样，我无法正确Select工作，并且此代码给出了错误，如标题。我尝试了几件事情来使这个代码工作。 -Tried Application.GoTo ，用它来代替Select ，就像有人build议的那样。 – 尝试将ListBox1_Click事件的代码移动到标准模块内的子元素，并使用ListBox1_Click事件调用该子ListBox1_Click 。 – 尽量先按其他人的build议select工作表。 – Worksheets(1).Visible = True正如其他人所build议的。 – 尝试使用AppActivate Application.Caption激活应用程序的主窗口。 […]

VBA excel：调整Listbox.Height问题（如何在按下的按键上执行即时search，并即时显示匹配）: 我有一个带有下面的计划的文本框和列表框的用户窗体：用户在Textbox1input文本。每当Textbox1.Text更改时，将执行具有以下function的search：在工作表中的特定范围内searchTextbox1.Text 。 Textbox1.Text可以被发现不止一次。 Listbox1填充search结果。到目前为止这么好。由于有大量的数据，这个列表可以得到很多项目。在这种情况下，列表超出了屏幕，我不得不限制Listbox1.Height 。这是上面的代码： Private Sub TextBox1_Change() Dim srchWord As String, firstAddress As String Dim srchRng As Range, cell As Range Dim maxRow As Integer ListBox1.Clear If TextBox1.Value = "" Then ListBox1.Height = 0 Else With ThisWorkbook.Worksheets(1) maxRow = .Cells(.Rows.Count, 2).End(xlUp).Row Set srchRng = .Range("A2:A" & maxRow) […]

Listbox ListFillRange: 我在表单上插入了一个表单控件列表框。出于某种原因，这个错误。 Sheet1.Shapes("ListBox1").ListFillRange = "A1:A10" 我想填充范围的列表框，但我得到一个运行时错误“438”，对象不支持此属性或方法。我在这里错过了什么？

EXCEL VBA – 具有多选用户窗体列表框的数据input: 我试图创build一个用户表单，允许某人select一些选项并将数据input到我的Excel表单中。在用户表单中，我有一个列表框，有几个答案。我拥有它，以便用户可以在列表框中select多个答案。如果用户select2个答案，我希望Excel表格登记2行数据。如果用户select3个答案，我想让Excel表格登记3行数据。基本上我正在做什么在这里描述： http : //www.excel-easy.com/vba/userform.html除了在“城市偏好”列表框，我可以select多个select。我希望Excel表格为每个城市偏好select创build一个项目，同时保持所有其他select。我在想代码会是这样的： For i = 1 to "total # of items selected in listbox" emptyrow = WorksheetFunction.CountA(Range("A:A")) + 1 Worksheet.Cell(emptyrow,3).Value = "Selected item(i) from list box" Next I 谢谢！