vba - 多个列表框，msgbox

Question

我有 2 个列表框。如果选择了任何一个列表框，我希望在尝试选择未选择的列表框时弹出一个消息框。

例如：

如果 e2>0 和 e3>0 则显示消息框“alsdkjfaslj” end if

e2 和 e3 是来自列表框的单元格链接。

我想不出一个好方法来解决这个问题，并且是 vba 的新手。请帮助这个新手。

谢谢

Answer 1

您可以收听要触发事件的特定单元格的工作表更改事件，如下所示：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.EnableEvents = False
    If Application.ActiveSheet.Cells(3, 5).Address = Target.Address Then
        MsgBox ("you clicked E3")
    ElseIf Application.ActiveSheet.Cells(2, 5).Address = Target.Address Then
        MsgBox ("you clicked E2")
    End If
    Application.EnableEvents = True
End Sub

确保代码在您要观看的工作表中：