可定制的颜色渐变进度条-Cool

FeiHong · 发表于 2005-9-7 23:32

新出炉的小点心,与大家共享,哈哈哈.....

X677Wk0x.rar (31.03 KB, 下载次数: 1610)

[此贴子已经被作者于2005-9-7 23:35:14编辑过]

anjing572 · 发表于 2005-9-7 23:37

[em17][em17]佩服,学习[em17][em17]

ch12 · 发表于 2005-9-8 00:52

请教如果下面这一段代码,如何才能与你的进度条相配合啊??

Sub Test1() Dim i As Long, j As Long, buf As Long Application.ScreenUpdating = False Sheets(2).Cells.ClearContents t1 = Time For i = 1 To 10000 For j = 1 To 100 Worksheets(2).Cells(i, j).Value = Cells(i, j) Next j Next i Application.ScreenUpdating = True MsgBox Minute(Time - t1) & "分" & Second(Time - t1) & "秒" End Sub

应该怎么改啊???

[此贴子已经被作者于2005-9-8 0:53:36编辑过]

henterwu · 发表于 2005-9-8 07:05

谢谢！！！

cofe2000 · 发表于 2005-9-8 09:03

精品，学习一下！

ldhyob · 发表于 2005-9-8 09:11

很好的示例,不加精不行,呵呵.

期待feihong元老更多的好东西分享.

Robinhuang · 发表于 2005-9-8 09:57

佩服,可是有些太复杂...

xsbnxbq · 发表于 2005-9-8 10:29

太厉害了,佩服的五体投地

lotustower · 发表于 2005-9-8 12:33

谢谢！！！

york888 · 发表于 2005-9-8 13:07

感谢楼主!

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

可定制的颜色渐变进度条-Cool

点评