Tag: combobox
我如何排除我的ComboBox中的.xlsb文件types？
我有一个用户窗体，基本上是由打开工作簿填充的两个combobox。 有没有办法可以从这个列表中排除PERSONAL.XLSB？ 这是我有什么： Sub UserForm_Initialize() Dim wkb As Workbook With Me.ComboBox1 For Each wkb In Application.Workbooks .AddItem wkb.Name Next wkb End With With Me.ComboBox2 For Each wkb In Application.Workbooks .AddItem wkb.Name Next wkb End With End Sub
使用Excel VBA在select值上激活combobox操作
我正在显示包含工作簿的所有工作表名称的combobox。 如果我select一个值，我希望Excel跳转到选定的工作表。 我试着在这个代码上做一个激活的代码行，但它似乎不工作。 Private Sub ComboBox1_Change() Dim Sh As Worksheet Dim sVal As String With ComboBox1 sVal = .Text .Clear For Each Sh In ActiveWorkbook.Sheets If Sh.Name <> "Inputs" Then .AddItem Sh.Name End If Next .Value = sVal End With End Sub
清除重新select的级联ComboBox
我正在使用几个ComboBox在Excel中创build一个用户窗体的过程。 第一个ComboBox列出来自表格第1列的值，下面的ComboBox列出来自以下列的值。 combobox2向前也只列出取决于前面的框的值。 所有的ComboBox'只显示唯一的值。 这是我正在使用的当前代码： Option Explicit Private Sub ComboBox1_Change() Call cValues(ComboBox1.Value, ComboBox2, 2) End Sub Private Sub ComboBox2_Change() Call cValues(ComboBox2.Value, ComboBox3, 3) End Sub Private Sub ComboBox3_Change() Call cValues(ComboBox3.Value, ComboBox4, 4) End Sub Private Sub ComboBox4_Change() Call cValues(ComboBox4.Value, ComboBox5, 5) End Sub Private Sub ComboBox5_Change() Call cValues(ComboBox5.Value, ComboBox6, 6) End Sub Private Sub UserForm_Initialize() […]
为combobox创build.additem
我已经得到了一个关于自动过滤设置的关税清单，以便在select特定销售渠道并且密码正确的情况下，只显示该渠道可用的关税。 我的问题是，我似乎无法弄清楚如何让命令button也填充combobox。 我下面的.additem代码不断返回 “权限被拒绝”错误 Dim TLoc As Range Dim ws As Worksheet Set ws = Worksheets("Tariff Matrix") Set TLoc = Range("Tariffs") For Each TLoc In ws.Range("Tariffs") With MobilePricing.Tariff1 .AddItem TLoc.Value End With Next TLoc 任何援助将不胜感激。
当用户在Excel工作表中select单元格时，如何通过VBA提供文本build议
我的公司有一个相当大的导入模板，我创build了一个加载项，其中有一些我们经常使用的有用的快捷工具和过程。 我想做什么：我想添加一个类似于Intellisense的function，只有当用户在工作表（而不是vbe）中工作时，用户select四个特定列（BF，BG，CS和CT）中的单元格时才起作用。 我想模仿这样的事情： 更具体地说：当在四列中的任何一列中select一个单元格时，我希望根据在其他列中的工作表中input的数据，在下拉列表中提供build议。 当用户点击空白单元格时： 他们给出了一个可供select的值列表 一旦他们select了这个值，它就会被添加到单元格中，并且冒号被添加到单元格的末尾 仍然在同一个单元格中，我希望根据用户首先select的内容重新填充下拉列表，并显示新的值（从第一个值缩小选项开始，列表将小于第一个列表） 一旦用户select了第二个值，它将与另一个冒号一起粘贴到单元格中的值的末尾。 最后，下拉列表将根据用户select的内容再次重新填充，并向他们展示最后一组值（列表将小于第一个和第二个列表，因为这些值缩小了select），然后他们select完成填充单元格 示例：在列中，V，W和X是值 印记选项|单选项1 |高级自定义颜色可在额外的成本。 请求报价。 分别。 当用户点击BF栏中的单元格时，首先显示包含“Imprint Option”的下拉列表，以及列V中的其他选项。 如果他们select“印记选项”，则“印记选项”被input到当前单元格中，并且该列表在“印记选项”右侧的列W中find值（意味着在这种情况下仅“单一选项1”将是上市） 当用户select“单选项1”时，单元格值现在是“印记选项：单选项1：”，并且列performance在仅显示值“额外成本可用的高级自定义颜色。请求报价”。 当用户select此值时，单元格值已完成，显示“Imprint Option：Single Option 1：Premium Custom Colors Available at Additional Cost。Call for Quote。”，没有显示列表 这只是一个非常简单的例子，因为显然在两次重新填充之后，列表中会有多个值。 我的想法/想法： 我的想法是，也许这是可能的通过使用combobox没有下拉箭头显示重新创build下拉列表，但我不知道如何或如果此方法可以与此工作，因为值需要重新填充，将有一个值在第一轮价值之后的细胞中，我认为这将被覆盖。 我唯一的限制是我必须在飞行中创build。 我将无法事先将控件拖放到工作表上，为了避免任何进一步的阻碍，我一次只select一个单元格。 所以，最后我的问题是： 这有可能重新创build吗？ 如果是的话，我该怎么办呢？ （即使方法很复杂，我很乐意听到） 如果这是不可能的，你能提出一个办法，我可以做类似的事情吗？
返回近似多个匹配到一个combobox
我想从列中返回多个匹配到一个combobox。 所以，如果我有一个这样的名为“variables：”，并search“variables1” 然后我想在ComboBox中输出这样的内容。 如果没有find匹配，那么“不匹配”。
使用VBA创buildcombobox的列表，更新代码中指定的单元格的值
我想要做的是创build一个程序，添加一些选项的combobox。 这些选项应该根据select的选项来改变我在代码中指定的某些单元格中的某些值。 这是我如何制作组合列表： Private Sub Workbook_Open() With Worksheets("Sheet1").Columns("E") .ColumnWidth = 25 End With For i = 1 To 6 Set curCombo = Sheet1.Shapes.AddFormControl(xlDropDown, Left:=Cells(i, 5).Left, Top:=Cells(i, 5).Top, Width:=100, Height:=15) With curCombo .ControlFormat.DropDownLines = 3 .ControlFormat.AddItem "Completed", 1 .ControlFormat.AddItem "In Progress", 2 .ControlFormat.AddItem "To be done", 3 .Name = "myCombo" & CStr(i) .OnAction = "myCombo_Change" End […]
Combobox下拉菜单显示在其他表单中
我有一个combobox下拉searchbuild议，从这里的代码： http://trumpexcel.com/2013/10/excel-drop-down-list-with-search-suggestions/ 它工作得很好，但是当我在另一张纸上按下“Enter”时，search栏会随机地popup到表格中 它甚至不是整个盒子，只是蓝色的领域 任何关于禁用它的见解？ 我得到的唯一成功是将计算转换为手动，但工作簿需要自动计算 谢谢！
删除级联comboboxVBA中的重复项目
所以我有一系列级联combobox，这些combobox依赖于第一个框的值被填充，如下所示： ID（预填充）>许可证编号>状态>名称 我使用以下代码填充combobox： If cmb_Project.ListIndex <> -1 Then cmb_State.Clear strSelected = cmb_Licence.Value LastRow = Worksheets("Entitlement Owners").Range("A" & Rows.Count).End(xlUp).row Set rngList = Worksheets("Entitlement Owners").Range("c2:c" & LastRow) Set rngCompany = Worksheets("Entitlement Owners").Range("b2:b" & LastRow) For Each rngCompany In rngList If rngCompany.Value = strSelected Then cmb_State.AddItem rngCompany.Offset(, -1) End If Next rngCompany End If 下面是我有的数据的样本布局 001 SA 763 […]
在date列$ className获取错误
我试图导出网格excel和使用出口商来实现它，而我的网格在这里小提琴 格 Ext.application({ name: 'Fiddle', launch: function () { Ext.create('Ext.data.Store', { storeId: 'simpsonsStore', fields: ['name', 'email', 'phone','date'], data: { 'items': [{ 'name': 'Arshad11111', "email": "kahdkha@abc.com", "phone": "6488646486", "date":"2016-03-23" }, { 'name': 'Aesadasdasd', "email": "asdsadasd@sdsc.com", "phone": "6488646486", "date":"2016-03-23" }, { 'name': 'gadjandna', "email": "asdjf@ndfnsdos.com", "phone": "6488646486", "date":"2016-03-23" }, { 'name': 'asdasdasd', "email": "asdasd@dfsdf.com", "phone": "555-222-1254", "date": […]
