Tag: combobox

将combobox下拉列表值添加到新行

嗨，我知道这听起来可能听起来很容易，但因为我是新的VBA，因此我需要一些帮助，在调整用户窗体vba代码下面的combobox下拉列表值插入新行。 目前我有一个添加命令button，将所有input的用户窗体添加到find的新行。 我现在面临的当前问题是我需要在add命令button中为comboBox行“.Text”进行调整，以使其顺利运行。 下面的代码，我已经和我现在面临的问题，我已经评论了线。 Private Sub CommandAddButton1_Click() Dim sh As Worksheet: Set sh = ThisWorkbook.Sheets("Program Status Summary") Dim emptyRow As Integer: emptyRow = 1 + sh.UsedRange.Find(ComboBoxProjSizes.Text).End(xlDown).Row With sh .Cells(emptyRow, "A").Value = 1 + Application.Max(.Columns(1)) ' to generate a new identifier in column 1 .Cells(emptyRow, "B").Value = TextBoxProjCode.Text .Cells(emptyRow, "C").Value = TextBoxProjName.Text .Cells(emptyRow, "D").Value = TextBoxSector.Text […]

列出打开的工作簿减去当前的工作簿

我已经实现了以下代码，列出了ComboBox中所有打开工作簿的名称： Option Explicit Private Sub ComboBox1_Change() If Me.ComboBox1.ListIndex < 0 Then Me.CommandButton2.Enabled = False Else Me.CommandButton2.Enabled = True End If End Sub Private Sub CommandButton1_Click() Unload Me End Sub Private Sub CommandButton2_Click() MsgBox "Are you sure you want to select " & Me.ComboBox1.BoundValue, vbOKOnly Application.Workbooks(Me.ComboBox1.Value).Activate End Sub Private Sub UserForm_Initialize() Dim myWin As Window Dim […]

用户窗体combobox

我有一个用户窗体有一个combobox和一个文本框。 TextBox需要为ComboBox的值做一个查找，但是如果该值存在于列表中，如果不存在，我不想在TextBox中出现任何东西，所以用户可以input新的信息。 这是我有多远： Private Sub TextBox1_Enter() If cbocolor.Value <> "" Then Dim evalStr As String Dim check As Variant evalStr = WorksheetFunction.VLookup(cbocolor.Value, worksheets("CONTACTS").Range("allcontacts"), 2, False) check = Evaluate(evalStr) If VarType(check) = vbError Then TextBox1.Value = "Enter new info" Else var1 = WorksheetFunction.VLookup(cbocolor.Value, Worksheets("CONTACTS").Range("allcontacts"), 2, False) TextBox1.Value = var1 End If

如何使用FileDialog导入选定的工作表？

我目前正试图组装一个主要的工作簿，将从其他文件导入数据。 用户应该能够使用FileDialogselect一个文件，到目前为止工作正常。 目前不能工作的是试图导入一个工作表，用户应该能够在用户窗体中进行select。 至于我的testing已经到目前为止有两种select： 将两个combobox放在用户窗体中的每个静态值（一个用于文件名，一个用于工作表名称）。 由于import单将永远是一个选定的types和工作表应该都具有相同的名字在未来可以工作，但只有这些条件将始终得到满足。 用户窗体上的一个combobox，显示要导入的工作簿的工作表名称（因为无论如何要将值复制到主工作簿，应该可以将工作表名称parsing到combobox中）。 我试图甚至可能使用VBA实现的是什么？ 到目前为止，我一直无法将工作表名称导入combobox并导入数据。

Excel用户窗体 – 点击回车后将​​焦点返回到combobox

我试过这个： Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = vbKeyReturn Then Me.ComboBox1.SetFocus Show_Information_Click End If End Sub 不幸的是，当我按下回车键时，“焦点”从ComboBox1转移到一个CommandButton，我用作表单的“后退”button。 我的ComboBox1采取用户input名称（它自动完成感激地）。 人按下input，并在其下面的一个button（可以点击代替）激活。 当button完成后，我的表单上的“返回”button现在成为“焦点”，所以如果用户再次进入，则使用“返回”button。 我想将焦点设置回ComboBox1，以便当用户点击input时，它将运行代码并将焦点返回到ComboBox1，以便他们可以键入另一个名称，如果他们愿意并再次去。 我甚至试图把Me.ComboBox1.SetFocus放在CommandButton事件序列的末尾，而“后退”button仍然被选中。 谢谢！

我如何分配这个combobox（名称= Combobox1）的名称，并将其范围到一个固定的位置（单元格C4）？

With ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1",Link:=False, DisplayAsIcon:=False, Left:=50, Top:=80, Width:=100, Height:=15) With .Object .AddItem "Yes" .AddItem "No" End With End With 我怎样才能分配一个名称并确定它的位置（基于上面的代码）？

如何显示combobox中的path名称的文件名称

我写了一个代码，将提取出现在一个特定的文件夹/目录内的所有子文件夹。 这是代码。 ComboBox10.List = Split(CreateObject("wscript.shell").exec("cmd /c Dir ""C:\Users\inkapb\AppData\Local\Temp\EPC AutoTool\Projects\*."" /b /s").stdout.readall, vbCrLf) 在上面的代码中，所有的子文件夹path都被填充，而不是子文件夹名称。 任何人都可以帮助我达到我的要求吗？

如何将用户窗体上的控件对象添加到集合，然后遍历集合并访问其属性？

我在UserForm中有以下代码。 我试图添加窗体上的combobox的某个子集到集合，然后遍历该集合。 它似乎是将combobox的值添加到集合而不是控件对象本身…？ 添加到集合后，我需要使用什么标识符或属性才能访问combobox对象的.Text属性？ 'Put comboboxes in a collection Dim oColl As Collection Set oColl = New Collection Dim cb As Control For Each cb In Me.Controls If TypeName(cb) = "ComboBox" Then ' I suspect it may be this line going wrong: If IsNumeric(cb.Text) Then oColl.Add (cb) End If Next ' Trying to loop through […]

将combobox中的值添加到多个列中

我创build了一个combobox，它具有下面看到的不同情况。 目前的公式工作，除了我想添加一个额外的列复制给列C相同的价值，并希望将其添加列R. 防爆。 comboboxselect当前月份我想添加500个单元到列C和列R基于search的部分。 Private Sub cmdAdd_Click() Dim irow As Long Dim lastRow As Long Dim iCol As String Dim C As Range Dim ws As Worksheet Dim value As Long Dim NewPart As Boolean Set ws = Worksheets("Summary") Set C = ws.Range("A7:A1048576").Find(What:=Me.PartTextBox.value, SearchOrder:=xlRows, _ SearchDirection:=xlPrevious, LookIn:=xlValues, LookAt:=xlWhole) If C Is Nothing Then 'find first […]

使用combobox并单击以筛选Excel中单独的工作表上的数据

我一直在寻找几天，但似乎无法解决这个问题。 我有一个Excel工作簿，其中包含来自Access数据库的“创意”列表。 在Excel表格“AllIdeas”上以只读模式连接（绝对不希望Excel写回Access！） 一些注意事项：工作表“AllIdeas”最初将被隐藏。 VBAmacros将取消隐藏并过滤它。 我有一个标题为“仪表板”，我想要以下function： （不工作）想法所有者可以使用combobox并单击一个“button”（在这种情况下，它是一个圆angular矩形，我将分配一个macros）来过滤“AllIdeas”上的信息，只显示分配给他们的想法。 （不工作）我想另一个combobox列出思想的“状态”（打开，拒绝，实施等）以及一个可点击的圆angular矩形。 该矩形的macros只需要拉取意见主人（在combobox1中标识）和状态（在combobox2中标识）的意见。 这个第二个“button”macros不会运行没有意见所有者和状态select。 （工作）用户可以input想法编号，并在仪表板上popup信息。 这是有用的，如果他们知道一个想法编号，但需要的细节。 （工作）在仪表板的底部有另一个圆angular矩形，分配了一个macros，取消隐藏“AllIdeas”表并显示整个表。 （工作）在“AllIdeas”表单上有一个标有“点击此处返回仪表板”的button。 此macros将用户返回仪表板并隐藏“AllIdeas”表。 这是我所拥有的一些东西。 我提前道歉，这可能是多么混乱…这是我第一次冒险进入VBA： Sub AllIdeasBtn() Worksheets("AllIdeas").Visible = xlSheetVisible Worksheets("AllIdeas").Activate If Worksheets("AllIdeas").AutoFilterMode Then Worksheets("AllIdeas").ShowAllData End Sub Sub Back() ActiveSheet.Visible = False Sheets("Dashboard").Select Sheets("AllIdeas").Visible = False End Sub 我完全停留在如何使用我的comboBoxes和点击macros来取消隐藏AllIdeas表单，并通过combobox中的select来过滤它。 AllIdeas示例