多个列表框，msgbox

Question

我有2个列表框。如果选择了其中一个列表框，当尝试选择未选中的列表框时，我会弹出一个消息框。

例如：

如果e2> 0且e3> 0则 显示消息框＆＃34; alsdkjfaslj＆＃34; 结束如果

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

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