Tag: combobox
Excel：combobox和checkbox干扰？
我正在用一些ActiveX控件制作一个Excel表单，并且遇到了包含以下function的问题： 我希望用户在ComboBox11中select一个号码。 如果这个数字是0，那么表单会改变，那么combobox9和10将被禁用（使用VBA代码），下面的表格将会被淡出（使用条件格式），通知用户不要填写。 另一方面，如果用户select大于0的数字，则表单将保持原样。 在表格下是一个checkbox（checkbox1），如果需要放入表单中的数据大于表格大小，则用于展开表格（取消隐藏先前隐藏的行）。 combobox11后面的VBA代码是： Private Sub ComboBox11_change() Dim ws As Worksheet Set ws = Sheets("Form") If Not Me.ComboBox11.Text = "" Then ws.Range("J24") = CInt(Me.ComboBox11.Text) 'to write integer instead of text into linked cell If Me.ComboBox11.Value = 0 Then Me.ComboBox9.Enabled = False Me.ComboBox10.Enabled = False If Me.CheckBox1.Value = True Then Me.CheckBox1.Value = False 'if […]
VBA：如何引用ComboBox对象
我在Excel中的第一个工作表上创build了一个单独的combobox。 但是，我找不到引用它的对象的方法。 我插入了一个模块，我的一个潜艇可以成功地引用下面的值： 表（ “工作表Sheet1”）。名称 但是，以下内容不可用并引发错误： ComboBox1.Value 错误消息是：运行时错误“424”：需要的对象 有人可以解释如何在我的工作表中引用这个combobox？ 谢谢
以编程方式在VBA中添加ComboBox（Excel）
我正在尝试在VBA中创build，放置和填充ComboBox的元素。 我不明白我错过了什么，但我不可能知道如何去做。 我没有 MSForms在我的API（即我不能写一些Dim someComboBox As MSForms.ComboBox因为它失败了。是否有可能导入它以某种方式吗？有人可以指向我在正确的方向吗？ 我想要实现的是，当用户点击一个button，一个新的窗体创build与各种项目（combobox，RadioButtons等），因此我想这样做编程。
添加事件监听器到几个combobox
我基本上试图根据combobox所采取的值在用户窗体上显示不同的文本框。 我创build了一个名为CControlEvents的类模块，其中描述了更改combobox的值时应该发生的事件： Private WithEvents mclsCbx As MSForms.ComboBox Private WithEvents UnitmclsTbx As MSForms.TextBox Private WithEvents UnitmclsTbxLabel As MSForms.Label Private WithEvents SpecMinMoymclsTbxLabel As MSForms.Label Private WithEvents SpecMaxMoymclsTbxLabel As MSForms.Label Private WithEvents SpecMinIndmclsTbxLabel As MSForms.Label Private WithEvents SpecMaxIndmclsTbxLabel As MSForms.Label Private WithEvents SpecMinMoymclsTbx As MSForms.TextBox Private WithEvents SpecMaxMoymclsTbx As MSForms.TextBox Private WithEvents SpecMinIndmclsTbx As MSForms.TextBox Private WithEvents SpecMaxIndmclsTbx […]
如何填充combobox
我对VBA相当陌生，而且一直在拼命挑选combobox。 我试图用电子表格中第一列的内容填充combobox，这样我就可以根据combobox的select删除相关联的数据行。 在提出这个问题时，我已经在这里和其他地方查看了几个问题，但是我还没有find任何有效的东西。 使用数组元素填充VBA中的combobox 如何从我的Excel电子表格中的列填充combobox？ http://www.techrepublic.com/blog/microsoft-office/populate-a-userform-combo-box-in-excel-with-a-dynamic-list/ 以下是我试过的代码。 我有些失落，因为我一直在试图拼凑来自其他问题的不同答案，以使这个工作，但无济于事。 我期望combobox填充来自列1的值，但它仍然是空白的。 尝试＃1这涉及到创build一个dynamic范围： =OFFSET(PC_DataSheet!$A$2,0,0, COUNTA(PC_DataSheet!$A$1:$A$65536)-1,1) Private Sub UserForm1_Initialize() Dim rngPCNumber As Range Dim ws As Worksheet Set ws = Worksheets("Sheet1") For Each rngPCNumber In ws.Range("PCNumber") Me.PC_ListComboBox.AddItem rngPCNumber.Value Next rngPCNumber End Sub 尝试＃2 Private Sub UserForm1_Initialize() Dim arr() As Variant arr = Worksheets("Sheet1").Range("C2:" & lrow).Value PC_ListComboBox.List = arr End […]
sortingCombobox VBA
我一直在想如何sortingcombobox中的值。 当我初始化表单时，我将项目添加到combobox中，因为值的数量在表单上不断增加。 我使用下一个代码来添加项目： With ComboBox1 lastcell = ThisWorkbook.Sheets("1").Range("F1000000").End(xlUp).Row + 1 For i = 2 To lastcell .AddItem ThisWorkbook.Sheets("1").Cells(i, 6) Next i End With 我想复制我将添加到另一个工作表的ComoBox的值，并在那里sorting他们在新工作表，它工作正常，但它似乎不是一个明智的select，这意味着我创build另一个工作表，然后复制值并对其进行sorting，而不是直接对它们进行sorting。 我的问题是，任何人都知道如何直接从原始表单中进行操作？ 所以，我不知道任何API，只有VBA代码。 我试图检查MSDN，但我不知道如何使其工作。 谢谢，如果需要更多的信息，请让我知道。 PS：我不能直接从原始表中sorting，因为这张表必须是静态订单
VBA – 获取combobox的选定值
Excel工作表中有成千上万的单元格，它们是ComboBoxes。 用户将随机select一个并填充它。 如何获得所选的ComboBox值？ 有没有办法触发一个function（即事件处理程序），当ComboxBoxes已被选中？
VBA明确select一个Combobox
嘿，我觉得这应该有一个简单的解决scheme，但我还没有能够绊倒呢。 我有一个combobox。 combobox具有select时的值，导致其他问题。 我有一个button，我想成为一个“上一级”button，当按下清除所有以下问题，并重置combobox的显示是没有什么，比如当它被创build之前，任何选项被选中。 我希望combobox中的值仍然存在，以便用户仍然可以进行select。 我似乎无法弄清楚这一点。 我已经尝试设置值= 0，ListIndex = -1，都无济于事。 我不想使用“清除”，因为我想保留combobox中的值。 如果通过combobox的属性看几次，我不能挑出哪一个将帮助我做我想在这里。 你的帮助弄清楚这将不胜感激。
如何将项目添加到excel VBA中的窗体中的combobox？
我是VBA新手。 我想创build一个表单，用户select一个combobox的项目，select运行一个macros。我在VBA中创build了一个用户窗体，但我无法将项目添加到combobox。当用户打开表单时，我想要的select在combobox已经加载，我可以做到这一点？ 谢谢
Excel VBAcombobox标识
我在用户表单上有4个以上的combobox。 当他们开火时，他们发射同样的事件。 我试图做的是找出哪个combobox触发事件。 combobox是根据有多less个组件创build的。 生成combobox的代码如下所示： For j = 0 To UBound(ComponentList) – 1 'Set Label num = j + 1 Set control = UserForm1.Controls.Add("Forms.Label.1", "ComponentLabel" & CStr(num) & ":", True) With control .Caption = "Component " & CStr(num) .Left = 30 .Top = Height .Height = 20 .Width = 100 .Visible = True End With […]
