Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 1480|回复: 5

[已解决]恳请高手帮忙修改下面的vb代码

[复制链接]
发表于 2013-1-17 18:38 | 显示全部楼层 |阅读模式
本帖最后由 qhllqhll 于 2013-1-17 19:13 编辑

Sub cesi()
Load Form1: Form1.Show 1  ' 这个窗体里是提示:程序正在运行
  For i = 1 To 20000
DoEvents
Cells(i, 1) = i
Next
Unload Form1  ' 怎样关闭弹出的窗体
End Sub
最佳答案
2013-1-17 18:46
Load Form1: Form1.Show 1  这句改成
  1. Load Form1: Form1.Show 0
复制代码
再封装下。
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2013-1-17 18:46 | 显示全部楼层    本楼为最佳答案   
Load Form1: Form1.Show 1  这句改成
  1. Load Form1: Form1.Show 0
复制代码
再封装下。

评分

参与人数 1 +3 收起 理由
qhllqhll + 3 很给力!

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2013-1-17 19:06 | 显示全部楼层
hwc2ycy 发表于 2013-1-17 18:46
Load Form1: Form1.Show 1  这句改成再封装下。

大师您太伟大了
终于成功了
非常感谢
回复

使用道具 举报

发表于 2013-1-17 21:03 | 显示全部楼层
不错,又学了一招,只是怎么封装的呢,能不能再讲一下
回复

使用道具 举报

发表于 2013-1-17 21:04 | 显示全部楼层
hwc2ycy 发表于 2013-1-17 18:46
Load Form1: Form1.Show 1  这句改成再封装下。

不错,又学了一招,只是怎么封装的呢,能不能再讲一下
回复

使用道具 举报

发表于 2013-1-17 21:09 | 显示全部楼层
显示窗体的语句:
  (1)模式窗体的显示代码:
  窗体名称.Show  vbModal
  也可以写成:窗体名称.Show 1
  (2)无模式窗体的显示代码:
  窗体名称.Show  vbModeless
  也可以写成:窗体名称.Show 0

(1)模式窗体:窗体显示后将停显示之后的代码直到退出或隐藏此窗体,并且必须退出或隐藏此窗体后,才可以操作非此窗体的其他界面元素。
  也就是说,当你使用模式窗体显示某窗体的时候,当程序执行完“显示窗体”这条命令后,将暂停执行程序里剩余的语句,真正这个窗体被隐藏或退出。关且当窗体显示出来以后,你不能激活该窗体以外的任何区域。
  (2)无模式窗体:窗体显示后会继续执行程序里余下的语句,而其他的窗体或界面也可以进行操作。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 19:22 , Processed in 0.361486 second(s), 13 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表