[已解决]求助：如何在一段VBA程序中添加暂停程序？

1top_yp1

如何在一段程序中添加暂停程序？点一下暂停，再点一下继续，最好只用一个commandButton按钮。另外Inputbox能在一个对话框里面添加多个数据吗？例如：
Private Sub CommandButton1_Click()
dim a%, b%
a = InputBox("单选题数量：", "输入数字", 30) '弹出对话框
b = InputBox("多选题数量：", "输入数字", 15) '弹出对话框
End sub
我想让a和b两个数据在一个对话框里上下分行添加。
就像：单选题数量：                          确定
          30（默认值）                          取消
          对选题数量：
          15（默认值）
跪求哪位大大帮忙解决以上两个问题。{:091:}

最佳答案

月排行榜 / 总排行榜

老糊涂

2012-8-13 12:47

http://hi.baidu.com/chaohua008/item/3918d9d4623f0c2138f6f7e5

跳转到最佳答案楼层

zjcat35

没明白，最好上表吧！！

QLZ0602

那就不要用INPUTbox ,自己做一个窗体FORM
Private Sub CommandButton1_Click()
    FORM.SHOW '弹出对话框
End sub

mxg825

怎么个暂停法？
1.不退出程序继续运行？ 那要用循环！
2.中止程序， 把计时器 暂停一下！ 恢复时 计时器继续！

老糊涂

http://hi.baidu.com/chaohua008/item/3918d9d4623f0c2138f6f7e5

1top_yp1

mxg825 发表于 2012-8-13 12:29
怎么个暂停法？
1.不退出程序继续运行？ 那要用循环！
2.中止程序， 把计时器 暂停一下！ 恢复时 计时器继 ...

是第二种暂停。大大有什么办法么？

1top_yp1

老糊涂 发表于 2012-8-13 12:47
http://hi.baidu.com/chaohua008/item/3918d9d4623f0c2138f6f7e5

恩，非常不错，慢慢学习中~~~

1top_yp1

QLZ0602 发表于 2012-8-13 12:27
那就不要用INPUTbox ,自己做一个窗体FORM
Private Sub CommandButton1_Click()
    FORM.SHOW '弹出对话 ...

我试试，要是做不出来，还要麻烦大大帮忙。{:091:}

1top_yp1

http://www.excelpx.com/forum.php?mod=viewthread&tid=255872&page=1#pid3282586
suye大大已经将程序完善，详见suye大大上传的附件。