Tag: combobox
使用另一个工作表中的dynamic值填充ComboBox
—更新— 感谢您的回应，我发现DragonSamu的更新答案是完美的。 —原创post— 我一直在试图弄清楚过去几个小时我的错在哪里，但是我不能发现它。 我认为这是因为脚本正在试图从活动工作表中获取不是我想要的值。 希望有人能把我放在仪式上 – 我想答案应该是比较明显的，但我看不到它！ 基本上，我试图用另一个工作表中存在的dynamic值范围来填充combobox（但是在同一个工作簿中）。 当我在工作表“材质”（这是dynamic列表的绘制位置）中运行脚本时，我可以获取combobox来填充，但是当我在工作表“产品”中运行它时，不能填充该combobox。 不幸的是，该脚本被devise为用材料填充产品，因此当“产品”工作表打开并且“材料”工作表因此将处于非活动状态时，该脚本将在用户窗体中运行。 我也应该注意到，这个脚本已经改编自我在这个论坛上其他地方find的代码，所以如果它看起来很熟悉，我预先感谢你:) Private Sub UserForm_Initialize() Dim rRange As Range On Error GoTo ErrorHandle 'We set our range = the cell B7 in Materials Set rRange = Worksheets("Materials").Range("B7") 'Check if the cell is empty If Len(rRange.Formula) = 0 Then MsgBox "The list is empty" GoTo BeforeExit […]
如何用与特定date匹配的数据集填充combobox
我在Excel中创build一个用户窗体，允许用户查看在选定dateinput的所有logging。 dateselect使用combobox填充本周的date。 然后所有其他操作都由一个命令button触发。 我想弄清楚如何使用与选定date相匹配的命名范围中的所有数据来填充审阅combobox和/或审阅列表框。 任何帮助表示赞赏。 下面的代码包含一个作为一个deadend的Vlookup命令。 工作表：Data_Entry 命名范围：Records_Entered userform：ufrmDataEntry1 datecombobox：CboReviewWeek 命令button：CmdReviewCount 检查combobox：CboReviewRecords 评论列表框：LstReviewRecords Private Sub UserForm_Initialize() 'fill combobox Me.CboReviewWeek.List=[index(Text(today()-weekday(today(),2)+row(1:7),"mm/dd/yyyy"),)] End Sub Private Sub CmdReviewCount_Click() 'Step 1) pass selection of CboReviewWeek to "Formulas" sheet ActiveWorkbook.Sheets("Formulas").Range("A4") = Me.CboReviewWeek 'Step 2) Return count of total records entered on selected date Me.TxtReviewCount = ActiveWorkbook.Sheets("Formulas").Range("A5") 'Step 3) Return records entered […]
未findActiveXcombobox方法或数据成员
我有一个叫做Home的combobox（称为userBox ）。 它有select的选项之一，让我们说"User A" 。 所有我想要做的是分配"User A"stringusr ，但我不断收到编译错误： 未find方法或数据成员 Sub fixPls() Dim row As Integer, col As Integer, usr As String, tbl As String, found As Boolean, k As Integer, payType As String Set wb = ThisWorkbook Set ws = wb.Sheets("Home") ws.Activate Application.DisplayAlerts = False Application.ScreenUpdating = False lastRow = Range("B16").End(xlUp).row usr = ws.userBox.Value tbl […]
用VBA设置combobox的值
我有一个combobox，其中包含来自命名范围的200多个值，用户可以select这些200以上的值中的任何一个， 或者在combobox中自由input任何其他值。 这工作正常。 我的问题是，我无法用我的VBA代码中的stringvariables中指定的值填充相同的combobox。 我想要做到以下几点： Sub FillInComboBox() Dim strExample as String strExample = "Random Text" Worksheets("Sheet1").Shapes("ComboBox1").Value = strExample End Sub 我得到“运行时错误”438：对象不支持此属性或方法“。 我也尝试了很多上面的代码的变化，我已经search了两个小时没有成功，所以我现在转向你作为我的最后希望得到这个工作。
当单击combobox时运行macros
当我点击combobox时，我需要帮助弄清楚如何使macros运行。 例如，ComboBox从另一列中拉取一个列表，如果该列发生更改，当我第一次单击ComboBox时，我想查看更新的列表。 现在它是单击ComboBox后，运行macros，然后单击一个已经存在的选项。 一旦我重新打开，然后我看到用户第一次点击时我想查看的更新列表。 任何帮助表示赞赏，非常感谢你！ Sub costcenterdup() ' ' costcenterdup Macro Application.ScreenUpdating = False With Sheets("Dollars") .Range("K9:K" & .Cells(9, "K").End(xlDown).Row).Copyy Destination:=Sheets("LookUp").Range("E2") End With With Sheets("LookUp") .Range("$E2:E" & .Cells(.Rows.Count, "E").End(xlUp).Row).RemoveDuplicates Columns:=1, Header:=xlNo End With With Application.Worksheets("LookUp") .Range("E2:E5000").Sort Key1:=.Range("E2") End With Range("C5").Select Application.ScreenUpdating = True End Sub
以编程方式在单元格内插入ComboBox
我想在活动单元格内插入对象curCombocombobox，而没有定义宽度和高度。 在我的一些testing中，我工作了这样一个原则，但是我没有得到那样的工作 Set curCombo = ActiveSheet.Shapes.AddFormControl(.Left, .Top, .Width, .Height) 这是我的代码： Sub comboBox1() Dim curCombo As Object '// Main challange is this set procedure here. Set curCombo = ActiveSheet.Shapes.AddFormControl(xlDropDown, _ Left:=Cells(ActiveCell.Row, 3).Left, _ Top:=Cells(ActiveCell.Row, 3).Top, Width:=100, Height:=20) With curCombo .ControlFormat.DropDownLines = 3 .ControlFormat.AddItem "1", 1 .ControlFormat.AddItem "2", 2 .ControlFormat.AddItem "3", 3 .Name = "myCombo" & ER.Row […]
从combobox（表单控件）中检索选定的选项excel VBA
嘿，我似乎不明白为什么我的代码不工作，因为我看到这是在SO的另一个问题的答案。 我想从combobox中检索选定的项目，因为我随后必须在匹配索引函数中使用它。 这是我的代码 Option Explicit Dim ws As Sheets Sub test2() Set ws = Sheets(Array("Sheet1", "Sheet2")) With ws(1).Shapes("Drop Down 2").ControlFormat .List(.ControlFormat.ListIndex) = ws(1).Range("I8").Value End With End Sub 另外，我想知道如何参考一般的下拉菜单？ 因为我有10个这样的combobox（下拉列表），每个combobox都以数字为基础进行不同的命名。 所以，而不是提到一个特定的下拉，如“下拉2”，或通过使用循环说（“下拉”我），是否有一种通用的方式来引用特定工作表下拉？ 我真的需要帮助
代码工作的一个，但我怎么能让工作多个combobox
我是VBA的新手，已经使用一段代码对工作表上的某个范围进行sorting，删除重复项和填充Combobox。 我的问题是，我需要做什么补充，以便我可以从另一个列填充另一个combobox，仍然有它sorting。 我正在使用的代码如下。 正如你所看到的，我现在正在从B4开始填充cboTask。 我想添加另一个范围来填充另一个combobox，这将是cboEquipment，信息从D4开始。 Dim Cell As Range Dim Col As Variant Dim Descending As Boolean Dim Entries As Collection Dim Items As Variant Dim index As Long Dim j As Long Dim RngBeg As Range Dim RngEnd As Range Dim row As Long Dim Sorted As Boolean Dim temp As Variant Dim test […]
如何在VBA中dynamic创buildcombobox创buildSub？
我对excel编程和VBA很陌生。 我卡在一个点，我有随机数dynamic创build的combobox（ComboBox1，ComboBox2 …. ComboBoxN）。 我需要实现一个function，如果我在ComboBox [i]（其中我可以是1到N之间的任意数字）中select一个值，那么它应该触发一个事件，将在ComboBox [i + 1]中填充值。 我如何为此编写一个Sub？ 有没有其他的方式来实现，如果不是在一个小组？
vba如果comboboxselect等于“位置”，则写入“Loc”
我需要为comboboxselect分配一个代码。 所以我的combobox有位置列表。 如果select美国，那么美国是写在数据库中，如果英国，那么英国，如果菲律宾，那么PH。 我不知道如何把这个到一个VBA代码，因为我必须结合这个另一个combobox的值像一个string。 .Cells(iRow, 2).Value = cmbLoc.Value & "_" & cmbProg.Value 其中cmbLoc是我需要帮助的combobox。
