如何在Excel VBA中定义一个在窗体控件和模块中均能使用的变量?
在模块中有一段程序,结构如下:-----------------------------------Sub排列程序()代码........A:代码........是否循环...
在模块中有一段程序,结构如下:
-----------------------------------
Sub 排列程序()
代码
........
A:
代码
........
是否循环排列窗体.Show
If x = "yes" Then
GoTo A
End If
.......
代码
.......
End Sub
-----------------------------------
"是否循环排列窗体"上有2个按钮,yes和no,代码如下:
----------------------------------
Private Sub yesButton_Click()
x = "yes"
是否循环排列窗体.hide
End Sub
Private Sub noyesButton_Click()
x = "no"
是否循环排列窗体.hide
End Sub
-------------------------------------
x声明为全局变量,在窗体和模块中均声明了Public x As String
测试的时候,框体中的x的值无法在模块中体现,请问应该如何解决啊?谢谢 展开
-----------------------------------
Sub 排列程序()
代码
........
A:
代码
........
是否循环排列窗体.Show
If x = "yes" Then
GoTo A
End If
.......
代码
.......
End Sub
-----------------------------------
"是否循环排列窗体"上有2个按钮,yes和no,代码如下:
----------------------------------
Private Sub yesButton_Click()
x = "yes"
是否循环排列窗体.hide
End Sub
Private Sub noyesButton_Click()
x = "no"
是否循环排列窗体.hide
End Sub
-------------------------------------
x声明为全局变量,在窗体和模块中均声明了Public x As String
测试的时候,框体中的x的值无法在模块中体现,请问应该如何解决啊?谢谢 展开
1个回答
展开全部
x声明为全局变量,在模块中声明了Public x As String就好了
追问
明白,谢谢。还有个问题想请教一下,程序运行到中途弹出框体后,我想在不点击窗体按钮的情况下,先上下拖动工作表查看中间成果,中间成果不满意点yes重新执行,满意则点no继续往下执行。目前弹出窗体后,我没法移动工作表,请问该如何修改啊?谢谢 。我尝试改为是否循环排列窗体.Show 0,结果弹出窗体后程序会一直执行到结束,不能达到目的。
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询