☰

如何在同一工作表上显示多个下拉框，并将其中一个选项链接到用户表单？

tag-icon • tag-icon microsoft-excel-2010
如何在同一工作表上显示多个下拉框，并将其中一个选项链接到用户表单？

我正在做一个小项目，遇到了一个问题。我需要在同一工作表上插入几个下拉框，一旦选择了某个选项，它就应该出现在单元格中。此外，如果选择了特定选项，则应该出现用户表单。

我该如何实现这一点？我尝试了数据验证下拉菜单，但无法将其用于多个单元格。

Jook，谢谢，但提供的代码不起作用。我使用 Developer、范围 (L2:L5) 和单元格链接 L1 创建了组合框。值为 NO、YES、OTHER、ENTER DATA。我在 Sheet 1 中使用的代码在 VBA 中如下： Private Sub ComboBox1_Change() OnCboChange(ComboBox1) End Sub Private Sub OnCboChange (By Ref cboBox As ComboBox) 如果 cboBox.value= "OTHER" 则 Userform1.Show 如果 cboBox.value= "ENTER DATA" 则 Userform2.Show End If End Sub

我不确定我是否做错了什么，但是代码没有读取上述代码，我不知道如何将此代码与组合框关联。有什么建议吗？

答案1

要将组合框放到工作表中，请使用开发人员选项卡并在您喜欢的位置插入一个。有关更多信息，请使用 google 或 ms-help，因为这是广泛隐蔽的。

通过使用组合框的属性（右键单击），您可以指定ListFillRange，例如A1:A20。

在右键单击菜单上，您还可以选择“查看代码”，您将被引导至如下部分：

Private Sub ComboBox1_Change()
    'use this code for all your cbo-boxes, if it is the same for all
    OnCboChange(ComboBox1)
End Sub

Private Sub OnCboChange(ByRef cboBox As ComboBox)
    'check if a specific selection was made
    'If cboBox.value = "myValue" then
    If cboBox.ListIndex = 3 Then
      'specify what to do now
      MyUserForm.Show
    End If
End Sub

相关内容