Tạo thanh Progress Bar

[nhattan67]

Các Sư huynh thân mến!
Tiểu đệ thấy trên diễn đàn có nói đến cách tạo thanh Progress Bar. nhưng tất cả đều chỉ thực hiện một thao tác ( copy sheet hay xóa dòng ==> tức là chỉ gọi một dòng lệnh.
Nếu có thể được, sư huynh nảo có thể hướng dẫn cách tạo thanh progress mà dùng cho thực hiện luôn một hàm.
Ví dụ:

Sub Test_Progress()
    Dim i As Long, k As Long
    Frm_Progress.Show
    k = 1000
    For i = 1 To k
        Frm_Progress.ProgressBar (i / k)
        Rows(k - i + 1).Delete   //// đây là thực hiện một dòng lệnh 
        DoEvents
    Next
    Frm_Progress.Hide
End Sub

Mình muốn một đoạn code thực hiện một hàm.
ví dụ:

Sub Test_Progress()
    Dim i As Long, k As Long
    Frm_Progress.Show
    k = 1000
    For i = 1 To k
        Frm_Progress.ProgressBar (i / k)
        Call hamcanthuchien      //// (1)
        DoEvents
    Next
    Frm_Progress.Hide
End Sub

(1): thanh progress phải có nhiệm vụ là hiện ra trong lúc hamcanthuchien hoạt động và đạt mức 100% rồi ẩn đi khi hamcanthuchien thực hiện xong.
Vây mong các sư huynh giúp nhé. vì mình thấy nó thông dụng lắm.
Hoàng Nhật Tân.

 

[voda]

-Theo mình hiểu, thanh ProgressBar không dùng trong hàm mà dùng trong thủ tục, với điều kiện thủ tục ấy có sử dụng vòng lặp.
-Cách làm: Đặt câu lệnh

Frm_Progress.ProgressBar (i / k)
DoEvents

vào trong vòng lặp, trong đó i là biến của vòng lặp, k là giá trị cuối của biến i.
-Ta dễ dàng nhận thấy khi vòng lặp chạy, biến i tăng lên. Thanh ProgressBar nhận giá trị ngày càng tăng cho đến khi vòng lặp chạy hết. Lúc bấy giờ i = k, giá trị của thanh ProgressBar = 100%. Như thế thanh ProgressBar hoàn toàn chạy khớp với chương trình.

 

[tonghongngochuong]

Tạo Prorgress

Sao mà tạo xong cái Prorgress này mà dùng không được vậy bà con!Mong anh chị em trong diễn đàn giúp dùm !

 

[voda]

Bạn vào Properties của FrmtTrangThai chỉnh ShowModal = false

 

[PhanTuHuong]

Tốt nhất là dùng cái file của bác Tedaynui.

Để lôi object ProgressBar ra, bạn vào cửa sổ VBE. Chọn Tools/Additional Controls ... và dò tới Microsoft ProgressBar Control V5 hoặc V6.

Tải file tại đây.

 

[sealand]

Xin lỗi mình hỏi thêm là trong khi lập trình cho diễn tiến của ProgressBar thì làm sao để biết được tổng thời gian thực hiện tác vụ như thời gian (hoặc mức độ) chép File, dowmload, run Code vv. để xác định tiến độ thực hiện cho ProgressBar

 

[be_09]

Lập trình với Excel

Bạn xem thử File này nhé.

 

[chibi]

Bạn xem thử File này nhé.

Kiểm tra lại file nhé.

 

[qhuy.trade]

Thanh progress bar rất hay để chương trình nhìn được pro hơn

Cho mình xin hỏi, ví dụ mình có 1 vòng lặp (khá dài) mỗi vòng biến k có 1 giá trị - vậy làm sao để mình có thể show được giá trị k nào đang được xử lý trên progress bar không?

 

[haiyentran87]

bạn oi có thể bày mình làm 1 cái hộp progress bar hoàn chỉnh có công thức được ko huhu