Tag: combobox

VBA – 基于comboboxselect隐藏框架中的页面（标签）: 我已经写了VBA代码来使一个隐藏的选项卡出现在一个combobox的select。 combobox中有七个选项，每个选项对应于框架中的七个隐藏选项卡。 Private Sub CBO_EntryType_Change() Dim iPage As Integer If Me.CBO_EntryType.Value = "Abstracts" Then iPage = 1 ElseIf CBO_EntryType.Value = "Awards" Then iPage = 2 ElseIf CBO_EntryType.Value = "Career Fairs" Then iPage = 3 ElseIf CBO_EntryType.Value = "Editorials" Then iPage = 4 ElseIf CBO_EntryType.Value = "Rankings" Then iPage = 5 ElseIf CBO_EntryType.Value = "Tradeshows" Then […]

防止用户在macrosExcel中正确selectcombobox: 我试图在macros中创build用户窗体，并为颜色创buildcomboboxselect。我已经成功创buildcombobox如下，并防止用户不填充combobox中继续。这里是代码： Private Sub UserForm_Initialize() ComboBox1.RowSource = "Sheet1!A1:A" & Range("G" & Rows.Count).End(xlUp).Row End Sub ——————————————– Private Sub CommandButton1_Click() If ComboBox1.Text = "" Then MsgBox "Please Select Color!" Exit Sub Else Sheets("Sheet1").Range("B1").Value = ComboBox1.Value ActiveWorkbook.Close End If 但是，用户可以在combobox上键入随机文本，我无法阻止它。有什么办法让用户只能从提供的源select值？这是事实。

VBA UserForm具有相同值的多个combobox: 我想在Excel用户窗体中创build3个不同的combobox。总共会有每种types的x。我想要这样的代码： With ComboboxAi for i = 1 to 5 .AddItem "monday" .AddItem "tuesday" With ComboboxBj for j = 1 to 6 .AddItem "january" .AddItem "february" 我的combobox被命名为： ComboboxA1，..，ComboboxA5，ComboboxB1，..，ComboboxB6 有人可以帮我做出正确的代码吗？

Excel 2011 Mac VBA Combobox值: 在2011年的Mac上，我有一个电子表格与两个控件。一个combobox和一个button。 combobox被命名为作物，我想访问该框的值单击button时。在Windows Office中显而易见的Crops.Value似乎不工作，我得到一个错误，说作物对象丢失。这个（简单）任务可以在Mac上使用VBA吗？

如何更改Excel VB6表单combobox中显示的下拉项目的数量: 默认情况下，combobox在其下拉列表中显示8个项目任何人都可以指向我一些（希望MINIMAL）Excel VB6代码来改变这个默认？看起来它将不得不包括API的我可以findVB6的示例（ VB6：扩展combobox中的项目数），但没有特定于Excel VB6 Form Combobox

将combobox的button移到下一行excel VBA: 我创build了一个vba代码来创buildcombobox，并填充了我的命名范围。现在我想让我从一个combobox中select一些东西时，它必须在当前单元格中设置该值，它应该移动到下一行，以便我可以在combobox中的每个单元格中设置一个值。我有下面的代码来创buildcombobox，但我不知道如何使它移动到下一行 Sub AddComboBoxes() Dim cb As Object Dim aCell As Range, r As Long For i = 1 To 1 Set aCell = Sheet1.Cells(i, 5) Set cb = Sheet1.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Left:=aCell.Left, Top:=aCell.Top, Width:=aCell.Width, Height:=aCell.Height) cb.Placement = xlMoveAndSize cb.Name = "ComboBoxN1" cb.ListFillRange = "N1" cb.OnAction = "N1.value" Next End Sub 请帮忙。

Excel VBA：IF ComboBox.Value语句: 嗨，我有这个combobox，如果combox的值例如说巴黎，我想要做一些命令 Private Sub Workbook_open() With Sheet1.ComboBox1 .AddItem "Paris" .AddItem "New York" .AddItem "London" End With If Me.ComboBox1.Value = "Paris" Then Range("A1").Value = 5 End If End Sub 任何帮助？谢谢

根据第一个combobox填充第二个combobox: 我想根据第一个combobox来填充第二个combobox。第一个combobox有这些值：John，Marry，Lona，Fred AB 1 John 384 2 John 475 3 John 450 4 Marry 616 5 Marry 526 6 Lona 569 7 Lona 234 8 Lona 937 9 Lona 477 10 Fred 286 例如，当我在combobox1中selectJohn时，combobox2中应该有这些值：384,475,450 我的代码不起作用： Private Sub ComboBox1_change() Set rngItems = Sheet1.Range("B1:B10") Set oDictionary = CreateObject("Scripting.Dictionary") With Sheet2.ComboBox2 For Each cel In rngItems If ComboBox1.Value […]

VBA – 循环工作表将年份添加到combobox: 我有20个工作表上的私人小combobox。我试图在combobox中预加载一年的月份，但是我似乎无法使它工作。我现在的代码有什么问题？第一个combobox只增加了120个像120次： Sub WorkBook_Open() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets ActiveSheet.ComboBox1.AddItem "January" ActiveSheet.ComboBox1.AddItem "February" ActiveSheet.ComboBox1.AddItem "March" ActiveSheet.ComboBox1.AddItem "April" ActiveSheet.ComboBox1.AddItem "May" ActiveSheet.ComboBox1.AddItem "June" ActiveSheet.ComboBox1.AddItem "July" ActiveSheet.ComboBox1.AddItem "August" ActiveSheet.ComboBox1.AddItem "September" ActiveSheet.ComboBox1.AddItem "October" ActiveSheet.ComboBox1.AddItem "November" ActiveSheet.ComboBox1.AddItem "December" Next ws End Sub

VBA动力填充combobox: 这里是设置，（所有testing代码）我在名为“Devmod”的工作表上有一个combobox，我创build了一个名为testing的模块，并在其中创build了以下子模块 Sub setcomb() Sheet1.Devmod.ListFillRange = Range(Sheets("Device_info").Range("l3"), _ Sheets("Device_info").Range("l3").End(xlDown)).Select End Sub 这运行正常，但不填充任何数据的combobox（虽然它确实select我想要的正确的单元格）现在我知道我可以做这个创build一个名称范围，然后将其分配给combobox。但我想要做的是当用户点击一个“更新button”每个combobox更新input的值。从逻辑上讲，这将是从Device_info工作表中select单元格的范围，单元格L3处开始并计算出最后使用的单元格。将这些值分配给combobox。我可以用一行或两行代码来做到这一点吗？干杯 DevilWAH 回答我的简单function结束了 Function setcomblist(wsheet As String, startrng As String, Optional endrng As Variant) 'used to populate comboboxes from a dynamic lenth range taking named sheet and starting cell as argument. 'use: combobox.ListFillRange = setcombolist("sheetname", "startcell") […]