Tag: combobox
作为dateselect的结果，如何使用工作表的名称填充combobox？
我有2个combobox。 第一个combobox（CboReviewDate）包含date。 第二个combobox（CboReviewModule）将填充活动工作簿中所有工作表的名称（如果它们包含与“CboReviewDate”中所选date匹配的“x”列中的date）。 我需要帮助build立逻辑和select正确的search工具。 这个逻辑stream程会工作吗？ 循环例程是否会清除CboReviewModule中的现有条目？ 这对我来说是一个学习过程，所以我想自己开发代码。 请指出我正确的方向。 这是我的伪代码： 'Run on "CboReviewDate"_change state 'CountIf (date in column "x" = "CboReviewDate.Value") in worksheet 1 of active workbook 'if result <> 0 then pass name of worksheet to variable "a" '.additem to "CboReviewModule" using value of variable "a" 'reset value of variable "a" and loop until all […]
如何获得vba循环结果来填充combobox？
问题：我需要search活动工作簿中的工作表列表，并返回每个工作表的名称，该工作表的单元格的值与searchinput相匹配。 这些工作表的名称然后需要用重复项填充一个用户表单combobox。 部分解决scheme：我已经能够反编译上面大部分代码。 但是，工作表名称当前使用重复填充msgbox。 我将如何使这个结果填充combobox代替？ 我一直在试验输出到集合以及将结果写入新的工作表，但是这些选项仍处于概念阶段，所以我没有代码发布。 更新（一些代码）： Public Sub FindDate() 'find date data on all sheets Dim ws As Worksheet Dim rngFind As Range Dim myDate As String Dim firstAddress As String Dim addressStr As String Dim findNum As Integer Dim sheetArray(299) As Integer Dim arrayIndex As Integer myDate = InputBox("Enter date to find") If […]
combobox属性SelText和Text之间的区别？
我不太了解combobox属性SelText和Text之间的区别。 如果我想将combobox的内容作为参数发送到另一个过程，我应该发送.text还是.selText ？ 如果我想使用macros将文本input到combobox中，我应该在.selText还是.Text写入文本？
如何使用vba来判断Excel工作表上的Active Xcombobox是否有列表
如何使用vba来判断Excel工作表上的Active Xcombobox是否包含列表中的项目。 如果combobox中没有任何内容，则返回错误： if UBound(MyComboBox.List, 1) > 1 then 如果列表中有项目，则以下内容将返回错误： if MyComboBox.List <> Null then 干杯! 奥利弗。
使用工作表VBA Excel中的每个值中的一个创buildcombobox
我想创build一个工作表中包含数据的combobox。 我有这样做的代码，但我需要的是只显示给定列中的每个值之一。 例如在栏目AI中有多条狗，猫和鱼，我想要的combobox显示的是3，这是狗，猫，鱼的名单。 如何让它停止显示狗，狗，狗，猫，猫，鱼，鱼，鱼，鱼等。 以下是我目前使用的代码。 With Worksheets("RuleID") OriginatingDomainComboBox.List = .Range("A2:A" & .Range("A" & .Rows.Count).End(xlUp).row).value End With 任何帮助将是伟大的，如果有什么你可能需要现在让我知道。 谢谢
将IF语句分配给Form控件combobox
我有一个工作表上的窗体控件combobox（名为DropDown1）。 我试图分配一个if语句，但一直无法这样做。 Sub DropDown1_Change() If DropDown1.Value = "test" Then Print (1) Else Print (2) End If End Sub
Excel VBA在多列combobox中select项目
我有一个combobox来填充来自Access数据库的信息。 我有一个使用ADO Recordset打开logging的方法。 我有一个多列combobox，我想从窗体上的填充列表中select一个值。 对于单列combobox，将使用value属性填充表单上显示的值，如下所示。 frmDataEntry.txtProcessID = sourceRS.Fields("ProcessID").Value 由于Value属性不起作用，因此我在填充多列combobox时出现问题。 Do Until y >= frmDataEntry.cmbProcess.listCount If frmDataEntry.cmbProcess.List(y, 0) = sourceRS.Fields("ProcessID").Value Then 'This is where i'd like to set the value End If y = y + 1 Loop 在上面的代码中，如果这是一个列表框，我会使用.Selected(y) = True属性，但不适用于combobox。 有人有什么build议吗？ 我到处search，但似乎无法find一种方法来做到这一点，而不消除组合列表中的combobox。
在Excel 2003 VBA中使用combobox和文本框的多个高级filter
在我发布我的问题之前，我仔细search了这些话题，实际上找不到匹配我的案例。 我已经使用Excel 2003为当前作业的需求创build了一个大型数据库。我已经build立了一个包含八个可能的标准选项的高级filter。 现在我必须通过设置UserForm来扩展界面和function。 不幸的是，我觉得如果我不完成这个，可能会让我的工作耗费我的工作。 我的UserForm的目的是通过允许用户从三个保pipe箱（cboSelectCategory，cboSelectStructure，cboSelectSX）中指定一个标准来简化数据库中的search。 comboboxcboSelectCategory是适应我的标准范围的头是CriteriaCategory（见图1）。 另外两个，cboSelectStructure和cboSelectSX由两个单独的下拉列表填充，数据库中的每一条信息都有两个列表（在我的数据库中，每一行代表一个文档，而且我有三个文档 – 活动文档，取消文档和待处理文档）。 所有三个cbo应该使用同一个文本框（txtSearch）来inputsearch关键字/ s。 另外，如果没有从cbo中select任何内容，则文本框input文本应作为整个数据库匹配数据的searchstring，即使部分（如果数据以searchstring符号开始或结束）也是如此。 这是我的代码到目前为止。 我已经添加了评论和图片链接来说明我的情况。 范围CriteriaCategory包括BN到BU（DOC编号，英文名称，包括STRUCTURE）的标题。 下面的单元格（第8行）用于根据我要search的数据typesinputsearchstring。 例如，如果我正在查找文档编号，我将在DOC NUMBER下面的单元格中inputsearchstring，以此类推。 这些标题列在下面的图片UserForm中的我的cboSelectCategorycombobox中。 我正在试图让Excel把我在工作表中正确的单元格中的关键字文本框中input的内容取决于我在cboSelectCategory中select的内容，然后运行高级filter。 此外，我需要让Excelsearch整个数据库，如果这三个cbo被用户留空，并返回每一个匹配，不pipe工作表（我有三个）在哪里find它，无论它是在开始单元格文本或最后。 我没有丝毫的线索来解决这个问题。 任何想法，赞赏，代码片断也。 我看起来像这样： Private Sub cmdSearch_Click() If Me.cboSelectCategory.Value = "" Or Me.cboSelectStructure.Value = "" Or Me.cboSelectSX.Value = "" Then Me.txtSearch.Value = Sheet6.Cells("BS8").Value AdvancedFilterCategory Else Me.cboSelectCategory.Value = Range("CriteriaCategoryFirstRow").Find(what:=Me.cboSelectCategory.Value, _ LookIn:=xlValues) Me.txtSearch.Value = Range("CriteriaCategoryFirstRow").Offset(1, 0).Value […]
是否可以设置我的Excel用户窗体combobox来开始缩小字段，而数据input？
VBA新手在这里。 我已经search了这个答案的高低，甚至遇到了类似于我的其他问题，但无法得到答案。 所以我希望这是我的幸运日。 我有一个用户窗体在Excel中有四个combobox。 每个combobox都有一个下拉select。 在其中的两个框中，有许多商业名称，这些名称很多都是相似的。 我想要把数据input框中的function，它将开始缩小选项。 例如：如果我input“加热和空气”，它开始只显示列表中包含该词或短语的项目。 这是一个属性改变的框，或者写的代码，或者其他的东西？ 请帮忙，我被困住了，似乎没有人有答案。 非常感谢 – Excel新手
VBA自动完成下拉列表没有被数据validation拾取
这是一个挑战：我创build了一个使用ComboBox的自动完成function的下拉列表（我已经使用了本文中的说明http://www.extendoffice.com/documents/excel/2401-excel-drop-down-list -autocomplete.html ）。 双击包含列表的单元格可以调用此function，并且工作正常。 我还为单元格添加了数据validation警告function，以便当用户input一个不被识别的名称时，会发出警告，并且可以继续（如果他需要input新名称）或取消并重新开始input。 这也正常工作：当input一个错误的名字，警告出现，因为它应该。 这里是问题：双击单元格时，出现autocomplete下拉列表，然后我可以键入一个不正确的名称，按回车键…这不是由数据validation警告function拾取的。 我无言以对，希望你们中的一个能破解这个！ 萨米
