如何根据excel中用户窗体上的组合框选择添加标签和文本框

debugcn 发表于 Dev

穆罕默德·卡哈尔

我目前正在处理一个用户表单，为公司的用户创建一个订单，发送给我的部门。

目前我已经陷入停滞，因为我正在努力解决以下问题。

我有一个组合框，其中包含我们的业务提供的产品列表。根据选择，我希望能够添加需要用户输入数据的标签和文本框。

如果在组合框中选择此选项，则输入姓名、所需日期、用户位置等。

此外，这需要特定于组合框选择。

任何帮助将非常感激：）

更新

抱歉，因为我没有该功能的任何代码，所以我没有添加任何代码这是我拥有的代码。

Private Sub CommandButton1_Click()
Windows("RFS User Form Mock.xlsm").Visible = True
End Sub

Private Sub LegendDefinition_Change()
LegendDefinition.Locked = True
End Sub

Private Sub RequestList_Change()
Dim i As Long, LastRow As Long
    LastRow = Sheets("Definition").Range("A" & Rows.Count).End(xlUp).Row
    For i = 2 To LastRow
    If Sheets("Definition").Cells(i, "A").Value = (Me.RequestList) Then
    Me.DefinitionBox = Sheets("Definition").Cells(i, "B").Value
    End If
    Next
End Sub

Private Sub RequestList_DropButtonClick()
Dim i As Long, LastRow As Long
    LastRow = Sheets("Definition").Range("A" & Rows.Count).End(xlUp).Row
    If Me.RequestList.ListCount = 0 Then
    For i = 2 To LastRow
    Me.RequestList.AddItem Sheets("Definition").Cells(i, "A").Value
    Next i
    End If
End Sub

Sub UserForm_Initialize()
   SiteList.List = Array("Birmingham", "Bristol", "Cardiff", "Chelmsford", "Edinburgh", "Fenchurch Street", "Glasgow", "Guernsey", "Halifax", "Homeworker", "Horsham", "Ipswich", "Jersey", "Leeds", "Leicester", "Lennox Wood", "Liverpool", "Manchester", "Peterborough", "Redhill", "Sunderland", "Madrid")
End Sub

Private Sub VLookUp_Change()
VLookUp.Locked = True
End Sub

精锐龙

在发布问题时，您需要提供一些代码，显示您在尝试解决问题时所处的位置。不过，这里有一个简短的演示，可以为您提供一个起点。

创建一个新的用户窗体并在其上放置一个组合框、一个标签和一个文本框；确保它们分别被命名为 ComboBox1、Label1 和 TextBox1。

然后，将此代码粘贴到表单的模块中：

Option Explicit

Private Sub ComboBox1_Change()
    Dim bVisible As Boolean

    'Only show the label and the textbox when the combo list index is 1, which corresponds to "Item 2".
    'Note: bVisible = (ComboBox1.Text = "Item 2") would also work.
    bVisible = (ComboBox1.ListIndex = 1)
    Label1.Visible = bVisible
    TextBox1.Visible = bVisible
End Sub

Private Sub UserForm_Layout()
    'Populate the combo.
    ComboBox1.AddItem "Item 1", 0
    ComboBox1.AddItem "Item 2", 1

    'Note: the code below could be removed by setting the corresponding
    'design-time properties from the form designer.
    ComboBox1.Style = fmStyleDropDownList
    Label1.Visible = False
    TextBox1.Visible = False
End Sub

然后按 F5 以显示表单。您会注意到标签和文本框仅在组合显示“项目 2”时可见。可见性调整在ComboBox1_Change事件处理程序中执行。

如果您计划根据组合的值Frame显示/隐藏多个控件，您可以将它们分组为一个或多个控件，然后显示/隐藏这些框架。

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。