Vba 多模块列表框

Vba 多模块列表框,vba,listbox,msgbox,Vba,Listbox,Msgbox,我有两个列表框。如果选择了其中一个列表框,我希望在未选择的列表框试图被选择时弹出一个消息框 例如: 如果e2>0和e3>0,则 显示消息框“alsdkjfaslj” 如果结束 e2和e3是列表框中的单元格链接 我想不出一个好的方法来做这件事,我是vba新手。请帮帮这个新手 谢谢对于要触发事件的特定单元格,您可以收听工作表更改事件,如下所示: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.E

我有两个列表框。如果选择了其中一个列表框,我希望在未选择的列表框试图被选择时弹出一个消息框

例如:

如果e2>0和e3>0,则 显示消息框“alsdkjfaslj” 如果结束

e2和e3是列表框中的单元格链接

我想不出一个好的方法来做这件事,我是vba新手。请帮帮这个新手


谢谢

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

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
确保代码位于要查看的工作表中: