Tag: combobox
Combobox取决于checkbox
我已经能够改变Combobox的列表（或RowSource ），取决于是否使用下面的代码select了一个Optionbox： Private Sub optYes_Click() Options End Sub Private Sub optNo_Click() Options End Sub Private Sub Options() Select Case True Case optYes.Value = True cmb.Enabled = True cmb.RowSource = "=Options!A1:A4" Case optNo.Value = True cmb.Enabled = False End Select End Sub 我想稍微修改一下，这样Combobox列表被限制在一组已经被选中的checkbox中。 所以如果我有10个checkbox表示不同的选项，用户只select其中的4个，那么只有这4个checkbox出现在Combobox中。
Combobox（窗体控件）VBA的默认值
嘿，我一直在网上search很多，但我一直没能find解决scheme。 我的工作簿中至less有10-15个combobox（表单控件）。 我希望他们显示一个默认值，如“selecttypes”。 现在，我已经尝试使用“.listindex”来做这个，但是它不允许我改变combobox中的值（因为默认是永久设置的）。 有人可以帮忙吗？ 这是我试图使用的 With ws(1).shapes("Chill1").controlformat .listindex = 1 End with
获取“运行时错误”380：无法设置值属性。 无效的属性值。“错误时，赋值给combobox”值“属性
这里的设置：作为我正在开发的多重打击笼计划程序的一部分，数据字典（dReservData）加载了所选date的所有预订的数据。 有16个字段被加载到dReservData中。 当用户select特定预留时，表单上的控件将从数据字典中为该预留加载适当的字段。 （为了简洁起见，我只包含了我认为是代码的相关部分）。“运行时错误”380：无法设置Value属性。无效的属性值。 当我尝试将值1（您可以从debugging语句的输出中看到）分配给combobox（combo_ReservationsInstructor）的value属性时发生错误。 combobox有2列，并预先填充了一个N×2的教师ID和名称数组。 我试图使用一个教师ID（在这种情况下，ID'1'）分配到combobox的值属性作为一种手段，以编程方式select组合中的项目。 With form_APScheduler .tb_ReservationsBeginTime.Value = dReservData(BegTime)(iStepRes) .tb_ReservationsEndTime.Value = dReservData(EndTime)(iStepRes) .tb_ReservationsNote.Value = dReservData(ResNote)(iStepRes) If dReservData(RentType)(iStepRes) = "Lesson" Or dReservData(RentType)(iStepRes) = "CageRental" Then If dReservData(RentType)(iStepRes) = "Lesson" Then .combo_ReservationsType.Value = "Lesson" Debug.Print "dReservData(ResInstructor)(iStepRes) = " & dReservData(ResInstructor)(iStepRes) 'Debug output: dReservData(ResInstructor)(iStepRes) = 1 .combo_ReservationsInstructor.Value = dReservData(ResInstructor)(iStepRes) '***ERROR OCCURS HERE ElseIf dReservData(RentType)(iStepRes) = […]
如果combobox是数组值，则填充备用comboboxVBA
如果combobox1表示“德国家庭购物”，如果给出以下数组，我有2个combobox在我的用户表单上 If ComboBox1.Value = "Germany Home Shopping" Then ComboBox2.List = Array("GER Singles ABE", "GER Singles CDF", "GER Small Cat ABE", "GER Small Cat CDF", "GER Small Cat All Zone", "GER Large Cat ABE", "GER Large Cat CDF", "GER Large Cat All Zone") End If 我也想做相反的地方，如果值是combobox2中的数组答案之一，那么它会把德国家庭购物放在combobox1中。我认为这可以做到这一点？ If ComboBox2.List = Array("GER Singles ABE", "GER Singles CDF", "GER […]
更改Excel用户窗体combobox的列
早上好， 我在另一个车辙，需要一些帮助。 我创build了一个用户表单，允许用户删除第二张纸上的整行数据（rawdata）。 一切工作正常使用下面的代码，但combobox只显示行号。 我迫切需要改变列，所以它会显示需要删除的行的项目名称。 例： Row: Project 1 Alpha 2 Beta 我希望combobox显示阿尔法和testing版，并让用户能够根据该标准select他们想要删除的行。 下面的代码取消隐藏，然后隐藏我希望发生删除的工作表。 这是有目的的完成的。 Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) Dim lRw As Long ActiveWorkbook.Sheets("RAWDATA").Visible = xlSheetVisible 'get the row number. add 1 because ListIndex starts at zero lRw = Me.ComboBox1.ListIndex + 1 ActiveWorkbook.Sheets("RAWDATA").Select Cells(lRw, 1).EntireRow.Delete ActiveWorkbook.Sheets("RAWDATA").Visible = xlSheetHidden End Sub Private Sub CommandButton1_Click() […]
在excel中使用vba删除表中的表和combobox
我是新来的VBA编程在Excel中，我已经写了一个macros，基本上创build一个表在第二列combobx这是我写的示例macros（不是确切的macros）： Sub Proc1() Cells(2, 1).Value = "MAT10" Cells(2, 2).Value = "Material ID (MID)" Cells(2, 3).Value = "Bulk Modulus(B)" Cells(2, 4).Value = "Average Density (rho)" Cells(2, 5).Value = "Speed of sound (C)" ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$2:$E$2"), , xlYes).name = "Tab2" 'No go in 2003 ActiveSheet.ListObjects("Tab2").TableStyle = "TableStyleLight2" With Range("B3:B3") Set Comb = ActiveSheet.DropDowns.Add(.Left, .Top, .Width, .Height) End With […]
VBA用户窗体combobox项目不apear，直到我点击用户窗体
我有一个命令button，当我点击它时，它显示了一个自定义的用户窗体，其中包含一个combobox从工作表单元取得的项目。 假设用户按下命令，然后出现用户窗体，他需要从列表中select一个项目，该项目是不同工作簿中的工作表名称，因此它将从该工作表导入数据。 然而我面临一个问题：当用户窗体出现时，我点击combobox它显示没有项目，然后如果我点击一次用户窗体然后再次检查combobox它显示项目正确，如果我再次点击用户窗体，combobox项目将doulbled！ 如果我select了一个完美的作品。 所以我想要实现的是：我想combobox直接显示的项目，而无需点击用户窗体。 代码是这样的： 在用户表单中： Private Sub UserForm_Click() Dim mlf As Workbook Dim adad As Long Dim mada As String Dim lastRow As Long Set mlf = ActiveWorkbooklastRow = Sheet3.Cells(Rows.Count, 1).End(xlUp).Row For adad = 1 To lastRow mada = Sheet3.Cells(adad, 1) With ComboBox1 .AddItem mada End With Next End Sub Private Sub cmdOkay_Click() […]
excel中名称列的activex-combobox
我有一张用于logging临时工数据的Excel工作表。 在6列中，可以通过数据validationselect的选项不会改变，因此不是问题（日常工作的范围/加class等）。 我需要帮助的一件事就是名称列，我想要一个activeXcombobox，所以我可以使用自动填充，并有能力随时添加新的名称。 与数据validation不同，它可以在单元格范围内（通常不超过100个临时工）进行拖放和复制，我不确定如何用combobox执行此操作，所以我的名称列中的每一行都包含该combobox。 请指教。
通过Excel范围循环填充Combobox VB.Net
我有一个程序，需要遍历一个非常大的Excel范围，将两个范围组合成一个combobox的值。 我有下面的代码这样做，但它所做的是迭代第一个值五次。 如果我删除第一个FOR循环，那么它只是简单地返回第一个值，从不完成。 任何build议，我可以做些什么来擦亮这个代码，并得到它的工作？ Dim i As Integer If TenantBox.SelectedItem = "CNS" Then WFMBook.Workbooks.Open("C:\Schedule.xlsx") For i = 0 To 5 Step +1 For Each CNSCell In WFMBook.Range("A3:A1441").Cells f = CNSCell.Value.ToString Next For Each tst In WFMBook.Range("B3:B1441").Cells l = tst.Value.ToString Next ComboBox1.Items.Add(f + " " + l) If (i = 5) Then Exit For End If […]
如何使用Vlookup命令在combobox中select条目？
我一直在试图使这个代码为我工作，但我已经打到了墙上。 我想从文本框中获取一个vlookup命令，并在用户按下一个命令button时从多个combobox中自动select一个匹配的值。 这是我的逻辑。 Excel 2010>用户表单> VBA 1）用户在文本框“TxtDXCode”中input一个字母数字代码。 2）用户按下“CmdMap”button3）从该文本框中提取左边的3个字符，并将它们分配给一个variables。 4）用上述variables填充文本框“TxtDxCodeLeft3”（这是一个冗余的步骤，只是让我有视觉确认代码工作）。 5）使用文本框“TxtDxCodeLeft3”的值作为查找命令的search参数。 6）使用vlookup从预先填充的combobox“CboCMChapter”和“CboCMCode”中select一个列表项。 Private Sub CmdMap_Click() '(((Extract left values from DX Code and Procedure Code strings to use in Vlookup.))) 'Define variables Dim L1ResultDX As String Dim L1ResultProc As String Dim L2ResultProc As String Dim L3ResultProc As String 'Assign values to variables L1ResultDX = Left(TxtDxCode, 3) L1ResultProc […]
