Excel VBA:停止重新打开用户窗体

时间:2018-07-30 11:47:13

标签: excel vba userform

我在工作表中有两个用户窗体,当分别从单元格G5的下拉列表中选择“是”或“否”时打开。 每次用户继续在工作表中的其他位置(在G5以外的单元格中)输入数据时,都会重新打开/重新显示用户窗体。 有没有办法确保仅当G5中的值更改时才打开用户窗体?

(Application.EnableEvents = True需要启用,因为表格下方还有更多的用户表单。)

在此先感谢您的帮助!

这是我的代码:

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = True
Set Target = Range("G5")
Application.EnableEvents = False

If Target = "No" Then

    Form1.Show

ElseIf Target = "Yes" Then

    From2.Show

End If

Application.EnableEvents = True

End Sub

1 个答案:

答案 0 :(得分:0)

类似

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

    Application.EnableEvents = False

    If Target.Address = "$G$5" Then

        If Target = "No" Then

            Form1.Show

        ElseIf Target = "Yes" Then

            From2.Show

        End If

    End If

    Application.EnableEvents = True

End Sub