Question

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

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

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

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

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

这是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 个答案: