[原创]带颜色跟进改变的进度条[续]

ykcbf · 发表于 2004-1-11 11:26

谢谢版主。

M_Hsu · 发表于 2004-4-1 13:13

very good!

majin2414 · 发表于 2004-4-1 15:34

PERFECT

DODO · 发表于 2004-4-1 19:53

但有一問題進度條會蓋到%文字變的不好看喔

cpali3023 · 发表于 2004-4-2 11:38

good!!!! 版主，送你一朵花。：)

ovxyz · 发表于 2004-4-2 11:43

创意新颖，但代码太复杂

ypw4LG6u.rar (17.95 KB, 下载次数: 142)

cjx588 · 发表于 2004-6-6 14:22

以下是引用mmm8538在2003-11-20 15:17:00的发言： 好是真好，就是我不会在其他方面应用

兰色幻想 · 发表于 2004-6-6 18:26

简直太好了，收藏！

gaobing · 发表于 2005-8-29 01:26

ldhyob版主,您做的这个进度条里面所执行的宏是否可以换成下面的宏，因为下面需执行二三分钟，看了您的代码，实在不知如何下手，能否帮忙改一改？

Sub M3() kkk = 1 ' ' Macro1 Macro ' 重算所有文档 BSTime = Timer '开始计算时间 Call Sh '打开请稍后窗体 Unload UserForm17'关闭主菜单 For i = 21 To 600 '计算区域

Cells(i, 43) = Cells(i, 75) * Cells(i, 40) + Cells(i, 42) '采购类PCB总值

Cells(i, 48) = Cells(i, 43) + Cells(i, 44) + Cells(i, 45) + Cells(i, 46) + Cells(i, 47) '采购类总值

Cells(i, 56) = Cells(i, 49) * Cells(i, 79) + Cells(i, 51) + Cells(i, 52) + Cells(i, 53) + Cells(i, 54) + Cells(i, 55) '销售类总值

Cells(i, 57) = Cells(i, 56) - Cells(i, 48) '利润 Next Application.MaxChange = 0.001 ActiveWorkbook.PrecisionAsDisplayed = False Calculate Unload UserForm13 '关闭请稍后窗体 MsgBox "重算图表类工作表已完成! " & Chr(10) & Chr(10) & "共耗时：" & Format(Timer - BSTime, "0") & " 秒 ", vbInformation, "数据重算模式" kkk = 0 End Sub

killl · 发表于 2005-8-30 00:02

谢谢班长的好代码

		自动登录	找回密码
密码			免费注册