☰

带有弹出消息的下拉列表

tag-icon • tag-icon windows-7 microsoft-excel-2013
带有弹出消息的下拉列表

我在 Windows 7 Enterprise 64 位上使用 Excel 2013。

我有一个下拉列表，其中有很多选项可供选择。

  • 当我从下拉列表中选择选项 5 时，我需要弹出警告消息“您选择选项 5”
  • 当我选择选项 4 时，单元格颜色应该会改变
  • 如果我离开下拉列表而不选择任何选项，则会弹出一条消息，要求我“从下拉列表中选择一个选项”

我如何实现这个目标？

[已编辑]

我在 Excel 表上写了上述代码，然后转到“开发人员”选项卡，单击“Visual Basic”，然后选择“工作簿”

Private Sub Worksheet_Change(ByVal Target As Range) 
  If Target.Address = "Sheet2!$A$3" Then 
    MsgBox "Hello World!" 
  End If 
End Sub

当用户从下拉列表中选择此选项时，会出现“Sheet2!$A$3”消息。

我启用了宏但仍然不起作用，有什么想法吗？

答案1

您基本上需要像这样使用宏 Worksheet_Change：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "<address of drop-down>" Then
        ' something
    End If
End Sub

尝试一下并显示你卡在了哪里（如果你卡住了）:)

相关内容