
你可以用你的循环次数来做进度条,在现有程序加入进度条显示程序就可以了,
你看下
参考资料:
excel vba 加一句话表示程序运行进度(cnGzbCursorLocation = adUseClient)
大多数人可能认为软件升级是不会有问题的,事实上,在升级过程中都会对其中共享的一些组件也进行升级,但是其它程序可能不支持升级后的组件从而导致各种问题。
Excel执行VBA时显示进度条。
i为代码的for循环,或者计步器
Applicationstatusbar=”完成 “&format(i/10000100,”000”)
突然想起以看过一遍关于优化SQL查询的文章,里面对SQL查询优化有一个比较详细的说明,特别比较了在已建立索引的字段上进行查询与未建立索引字段上查询速度的差别,想起一句话,“所有快速查找都是基于排序的”,于是马上修改代码,添加对rsGzb中的工号字段进行排序代码(rsGzbSort = "gh ASC"),运行,出错(运行时错误3251:当前提供程序不支持排序或过滤所必须的界面),查看sort属性的帮助,发现里面有一条说明“此属性要求将 CursorLocation 属性设置为 adUseClient。”,于是添加代码(cnGzbCursorLocation = adUseClient),再运行。1秒内就完成了 *** 作
下面就是程序中的那几句关键代码(第1名和第3句在这儿的作用相同,可以只写一句)
cnGzbCursorLocation adUseClient
Set rsGzb = New ADODBRecordset
rsGzbCursorLocation = adUseClient 'CursorLocation对于关闭的recordset对象可读可写,对于打开的recordset对象只读
rsGzbOpen sSqlCommand, cnGzb, adOpenKeyset, adLockBatchOptimistic
以上就是关于EXCEL VBA中怎样用代码表示一段程序的运行的进度全部的内容,包括:EXCEL VBA中怎样用代码表示一段程序的运行的进度、Excel 怎么在VBA程序里加入进度条、excel vba 加一句话表示程序运行进度等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)