Tạo Progress bar bằng Control

tedaynui · 26/3/08

Hôm trước mình có giới thiệu cách tạo Progress bar theo kiểu "củ chuối". Hôm nay tình cờ phát hiện được Control Progress (Microsoft Progress Bar Control 6.0). Dùng Control này tạo Progress bar rất nhanh, dễ hiểu.
Xin chia sẻ cùng các bạn.

TDN

anhtuan1066 · 26/3/08

Với 1 dử liệu cụ thể nào đó ta có thể tạo cái Progress bar bằng công cụ CF đấy! Tôi đã từng làm thử và thấy đẹp ko kém...
Từ từ đễ tôi nghĩ ra trò hay sẽ post lên cho mọi người tham khảo
hi... hi...
ANH TUẤN

tedaynui · 26/3/08

anhtuan1066 đã viết:
Với 1 dử liệu cụ thể nào đó ta có thể tạo cái Progress bar bằng công cụ CF đấy! Tôi đã từng làm thử và thấy đẹp ko kém...
Từ từ đễ tôi nghĩ ra trò hay sẽ post lên cho mọi người tham khảo
hi... hi...
ANH TUẤN

Em cũng nghĩ là được. Nhưng làm phải đặt Name chắc là phức tạp lắm. Bên cạnh đó có nhiều tác vụ không thể dùng CF được, ví dụ như : Xoá file, copy sheet, delete sheet... Nhưng anh thử làm 1 file Progress bằng CF xem biết đâu thấy nó rồi mình sẽ phát hiện ra nó lại thích hợp cho công việc nào đó. Vì cái gì cũng có ưu điểm riêng của nó đúng không anh.
Thân
TDN

anhtuan1066 · 26/3/08

Ai da... là tôi nói "biểu diển" chơi trong 1 trường hợp cụ thể nào đó thôi... File "Tiến độ thi công" làm bằng CF là 1 ví dụ...
ANH TUẤN

vumian · 26/3/08

TDN ơi,

Vậy giờ làm sao chó progress bar này chạy trong khi chạy 1 macro, khi macro chạy đến dòg lệnh cuối , thì cũng là 99..100% luôn. Tức nó hiển thị quá trình chạy macro ?

Thanks nhe

vumian

tedaynui · 26/3/08

vumian đã viết:
Vậy giờ làm sao chó progress bar này chạy trong khi chạy 1 macro, khi macro chạy đến dòg lệnh cuối , thì cũng là 99..100% luôn. Tức nó hiển thị quá trình chạy macro ?
vumian

Vumian tải thử file ví dụ xem có đúng ý không nha.

TDN

boong · 26/3/08

Cảm ơn bác nhiều nha! Bác có thể cho biết chỉ số K = 1000 hay 100 là có nghĩa gì không ạ! Nó có tác động trực tiếp đến quá trình đang thực hiện không dzậy! Hay là chạy xong Form Frm_Progress rồi mới thực hiện những lệnh tác động lên Sheet thực không. Vì nếu lệnh cần thực thi quá mất thời gian mà còn phải chờ chạy xong Form nữa thì .... không ổn lắm! À mà em thấy trên Excel đã có sẵn 1 cái Progress ở thanh dưới cùng (hay có Ready đó). Nhưng dù sao cũng cảm ơn bác nhiều nha! Thanks...

tedaynui · 26/3/08

+ K=1000 hay 100 chẳng qua là mình cho đại để test thôi. Bạn có thể thay đổi mà.
+ Progress hoàn toàn chính xác với tiến độ công việc, bạn xem code có mấy dòng sẽ thấy rõ mà.
+ Về thời gian : tất nhiên nó làm chậm đi nhưng mình nghĩ không đáng kể và chấp nhận được. Bạn có thể Test lại khi copy 100 sheets khi có Progress bar và không có Progress bar
+ Dòng Status bar của Excel có hiển thị trạng thái công việc nhưng không phải tác vụ nào nó cũng hiện. Hơn nữa không được Pro lắm, hi hi

TDN

boong · 26/3/08

Hình như không có dòng này: Application.ScreenUpdating = False thì nó chạy chậm hơn thì phải! ƯĐ: Nhưng được cái là thấy rõ công việc đang tiến triển tới đâu. NĐ: Nó cứ dật màn hình hoài xem nhức cả mắt. Về code thì em không rành lắm nhưng đọc sơ thì cũng hiểu được những phần chính của đoạn mã. Còn vể Pro thì em nghĩ chỉ cần thay đổi màu nền đi và thay màu thanh ProgressBar1 đi thì chắc đẹp hơn. Em thấy cái Progressbar của phần mềm quản lý điểm học sinh cấp 2 - 3 đẹp hơn nhiều đó. Bác thử tìm trên diễn đàn xem! Để mai rãnh em sẽ post cái Prbar này lên cho! Thôi chào bác nha! Chúc bác ngủ ngon!

tedaynui · 27/3/08

+ Có nhiều cách để tăng tốc độ của Macro và 1 trong những cách đó là dùng
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

+ Tuy nhiên, khi sử dụng chúng cũng nên cẩn thận vì đôi khi kết xuất dữ liệu sẽ bị sai.

TDN

boong · 27/3/08

Xem thử Form Loading này thế nào nha!

tedaynui · 27/3/08

boong đã viết:
Còn vể Pro thì em nghĩ chỉ cần thay đổi màu nền đi và thay màu thanh ProgressBar1 đi thì chắc đẹp hơn. Em thấy cái Progressbar của phần mềm quản lý điểm học sinh cấp 2 - 3 đẹp hơn nhiều đó. Bác thử tìm trên diễn đàn xem!
Để mai rãnh em sẽ post cái Prbar này lên cho!

Hi hi, thì ra bác thích Progress bar mà trước đây mình đã có lần đưa lên. Mình lại thấy nó hay lắm vì khó lòng mà mình làm tốt bằng Control có sẵn đâu bạn à. Giống như hàm SUM Excel có sẵn thì không ai dại gì đi tạo 1 cái User Function SUM_() cả. Bạn có thể tham khảo tại đây xem sao, có hiện số phần trăm công việc nữa đấy.
http://www.giaiphapexcel.com/forum/showthread.php?t=8523

TDN

boong · 27/3/08

Bác có bản dự phòng nào không? Em không xem được vì file lỗi rồi! Nếu tải được thì bác Post lên trang này được không?

tedaynui · 27/3/08

boong đã viết:
Bác có bản dự phòng nào không? Em xem được vì file lỗi rồi!
Nếu tải được thì bác Post lên trang này được không?

Mình tải vẫn bình thường. Bạn thử tải File này xem sao
TDN

vumian · 27/3/08

TDN oi,

File của ông hôg file nào download mà chạy duoc hết, toàn lỗi file không àh, hichic

tedaynui · 28/3/08

vumian đã viết:
TDN oi,
File của ông hôg file nào download mà chạy duoc hết, toàn lỗi file không àh, hichic

Trời, lỗi gì vậy ??? Nói rõ hơn đi, ông nói vậy tui pó tay lun. Lỗi ở file tải về hay là lỗi khi chạy Macro. Nếu là lỗi Macro thì nó báo lỗi gì ?

Nhưng cũng file này, nhiều người tải về và chạy tốt mà (?) hay là nó không chạy nhưng không muốn tui thất vọng nên hỏng ai nói gì chăng, hix hix...

TDN

boong · 28/3/08

Lỗi gì đó mà có một Bảng thông báo với tự đề rằng: "WinRAR: Diagnostic messages" Thêm một cái Tam giác có dấu chấm thang (!) ở giữa đó!

vumian · 1/4/08

Hi TDN, download duoc ròi, Thanks nhìu nhá

thunoka · 23/10/08

tedaynui đã viết:
Hôm trước mình có giới thiệu cách tạo Progress bar theo kiểu "củ chuối". Hôm nay tình cờ phát hiện được Control Progress (Microsoft Progress Bar Control 6.0). Dùng Control này tạo Progress bar rất nhanh, dễ hiểu.
Xin chia sẻ cùng các bạn.

TDN

Bạn ơi, nếu có các Sub khác đang chạy nữa thì đặt các Sub đó ở đâu?

thanhnhanubnd · 24/10/08

loi cho nay :

Private Sub VPercent(ByVal Num%, ByVal Row%)
Dim i%, S$
S = " "
S = S & WorksheetFunction.Round(Str(Num / Row * 100), 1) & "%"
Remove.P3.Caption = S
Remove.P2.Caption = S
Remove.Label.Caption = "Dang xoa dong : " & Num
Remove.P2.Width = Remove.P3.Width / Row * Num
Remove.VFrame.Repaint
End Sub

Tạo Progress bar bằng Control

(*_*)

File đính kèm

Thành viên gạo cội

(*_*)

Thành viên gạo cội

Mỗi bậc thang là mỗi Cell

(*_*)

File đính kèm

Thành viên thường trực

(*_*)

Thành viên thường trực

(*_*)

Thành viên thường trực

File đính kèm

(*_*)

Thành viên thường trực

(*_*)

File đính kèm

Mỗi bậc thang là mỗi Cell

(*_*)

Thành viên thường trực

Mỗi bậc thang là mỗi Cell

thunoka

Guest

Thành viên hoạt động

Facebook

Group

(_)

(_)

(_)

(_)

(_)

(_)

(_)

(_)