先前显示并关闭了模式框后,无模式对话框无法正常工作

时间:2019-01-01 21:38:55

标签: excel vba dialog modeless

在Excel 2000 VBA中工作。当我显示一个无模式框时,我可以用鼠标单击我的工作表以将焦点设置在该工作表上,然后从那里导航该工作表,并使用向上,向下和箭头光标键。但是我需要首先显示一个模式框,然后用户将其关闭,然后显示无模式框。但是现在,将焦点移到工作表后,无模式操作不会响应光标箭头移动键/上翻页/下翻页的击键。

当我在下面的第一行中用撇号运行宏XXXX时,无模式UF的功能没有问题。当我删除撇号并运行宏YYYY并通过单击命令按钮进入无模式UF时,我发现了上述问题。

我是新手程序员。如果有人愿意提出修复建议,请简化说明,以便我理解。

我的实际代码要广泛得多。我已经在下面删除了所有内容。但是我无法找出我的代码采用的这种框架化控制结构出了什么问题。我还尝试了什么(没有成功):

  1. 我在网上搜寻了其他有类似问题的人。
  2. 在代码上呆了几个小时。
  3. 酒精。

这是Module1:

Public LOOPFLAG As Boolean

Sub YYYY()

UserForm2.Show

End Sub


Sub XXXX()

'Unload UserForm2

For I = 1 To 3

    UserForm1.Show 0

    LOOPFLAG = True

    Do

    DoEvents

    Loop While LOOPFLAG = True

    Unload UserForm1

    MsgBox ""


    Next I

End Sub

这是UF1代码:

Private Sub CommandButton1_Click()

LOOPFLAG = False

End Sub

这是UF2代码:

Private Sub CommandButton1_Click()

XXXX

End Sub

0 个答案:

没有答案