设为首页收藏本站Access中国
Office中国(www.office-cn.net),专业Office论坛

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

返回列表 发新帖
查看: 855|回复: 1

娱乐而已——excel进度条

[复制链接]
发表于 2017-3-22 14:13:25 | 显示全部楼层 |阅读模式
进度条这玩意儿,常常是一种娱乐。就拿我们比较熟悉的access来说吧,使用了进度条,只是在打开文件的等待时间中,给大家展示一个进度条变化的界面而已,而并不会因此而加快文件的加载速度什么的。
在access里实现进度条,论坛里有很多例子,这里就不赘述了。而在excel里实现……好吧,一个叫雷神的群友提出,能不能在excel的单元格里实现。当时觉得可能性不大,后来想想,貌似有个rept函数可以试试,于是就有了这个例子。
  1. Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
  2. Sub test()
  3.     Dim i As Long
  4.     For i = 0 To 100
  5.         If i < 99 Then
  6.             Sheet2.Range("A2") = Application.WorksheetFunction.Rept("|", i) & i & "%"
  7.             Sleep 50
  8.         Else
  9.             Sheet2.Range("A2") = "完成"
  10.             Exit For
  11.         End If
  12.     Next
  13.                
  14. End Sub
复制代码
说明:sleep函数用于延时执行。这样的话,中间略有停顿,比较容易看到进度条的变化。

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
发表于 2017-3-22 14:39:45 | 显示全部楼层
用条件格式里的数据条表示好象更好看一点
您需要登录后才可以回帖 登录 | 注册

本版积分规则

关闭

站长推荐上一条 /6 下一条

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2018-10-16 07:37 , Processed in 0.088129 second(s), 33 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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