在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