Khi mã dài và macro VBA chạy vài giây, Excel có thể bị đóng băng hoặc không phản hồi. Ngay cả khi mã hoạt động đúng, người dùng có thể tưởng sổ làm việc bị treo vì không có gì xảy ra trên màn hình. Một cách đơn giản tránh vấn đề này là hiển thị thông báo trực tiếp trên thanh trạng thái (status bar) của Excel trong khi macro chạy.
Trong hướng dẫn này, chúng ta chỉ cách hiển thị thông báo tiến trình khi VBA chạy. Bạn không cần UserForm hay thanh tiến trình đồ họa. Trong nhiều trường hợp, Application.StatusBar là đủ.
Tại Sao Dùng Application.StatusBar?
Excel có thanh trạng thái tích hợp sẵn ở dưới cửa sổ ứng dụng. VBA có thể tạm thời thay thế văn bản bình thường ở khu vực đó bằng thông báo tùy chỉnh.
Điều này có nghĩa macro có thể hiển thị cập nhật như:
- Đang xử lý hàng 10 của 100
- Đang nhập dữ liệu…
- Đang viết công thức…
- 65% hoàn thành
Điều này hữu ích khi bạn muốn người dùng biết macro vẫn chạy nhưng không muốn công sức xây dựng thanh tiến trình đồ họa đầy đủ. Bạn vẫn làm thông báo nhiều thông tin hơn bằng cách hiển thị số hàng hoặc phần trăm, nhưng vẫn là giải pháp dựa trên văn bản.
Cú Pháp Cơ Bản:
Để hiển thị thông báo trên thanh trạng thái Excel, dùng:
Application.StatusBar = "Đang xử lý..."
Khi macro kết thúc, khôi phục thanh trạng thái với:
Application.StatusBar = False
Thiết lập Application.StatusBar = False trả quyền kiểm soát thanh trạng thái cho Excel, cho phép nó hiển thị thông báo mặc định trở lại. Không bao giờ bỏ qua bước này.
Ví Dụ Cơ Bản: Thông Báo Tiến Trình Đơn Giản
Đây là phiên bản cơ bản nhất với thông báo tiến trình đơn giản. Trên thanh trạng thái, nó hiển thị "Đang chạy báo cáo... vui lòng chờ".
Sub SimpleStatusBar() Application.StatusBar = "Đang chạy báo cáo... vui lòng chờ" ' Mô phỏng công việc Dim i As Long For i = 1 To 50000 ' Xử lý của bạn ở đây Next i Application.StatusBar = False ' Khôi phục thanh trạng thái MsgBox "Xong!" End Sub
Điều này hoạt động, nhưng chỉ hiển thị một thông báo cố định. Nó báo cho người dùng macro đang chạy, nhưng không hiển thị tiến trình thực.
Hiển Thị Tiến Trình Trực Tiếp Trong Vòng Lặp
Trong hầu hết macro thực, bạn xử lý hàng, ô, file, hoặc bản ghi từng cái. Điều đó dễ dàng cập nhật thanh trạng thái khi vòng lặp tiến triển.
Sub ShowLoopProgress() Dim i As Long Dim lastRow As Long lastRow = Cells(Rows.Count, "A").End(xlUp).Row For i = 2 To lastRow ' Hành động đơn giản Cells(i, "K").Value = "Processed" ' Cập nhật thông báo tiến trình Application.StatusBar = "Đang xử lý hàng " & (i - 1) & " của " & lastRow DoEvents Next i Application.StatusBar = False MsgBox "Hoàn thành tác vụ!" End Sub
- DoEvents cho phép Excel làm mới màn hình và phản hồi trong khi macro chạy
- Nếu không có nó, thanh trạng thái có thể không cập nhật nhìn thấy được cho đến khi macro kết thúc, đặc biệt vòng lặp dài
- Đừng lạm dụng nó trong vòng lặp cực lớn trừ khi cần, vì nó làm chậm thực thi một chút
Ở dưới cùng, thanh trạng thái hiển thị “Đang xử lý hàng 90 của 101”.
Thêm Thông Báo Phần Trăm
Bạn tùy chỉnh thông báo tiến trình bao gồm phần trăm. Chỉ cần tính phần trăm và đưa vào văn bản thanh trạng thái.
Sub ShowPercentageProgress() Dim i As Long Dim lastRow As Long Dim percentDone As Double lastRow = Cells(Rows.Count, "A").End(xlUp).Row For i = 2 To lastRow ' Hành động đơn giản Cells(i, "K").Value = "Processed" ' Cập nhật thông báo tiến trình percentDone = (i - 1) / (lastRow - 1) Application.StatusBar = "Đang xử lý hàng " & (i - 1) & " của " & (lastRow - 1) & _ " (" & Format(percentDone, "0%") & ")" DoEvents Next i Application.StatusBar = False MsgBox "Hoàn thành tác vụ!" End Sub
Mã này tạo cập nhật trạng thái rõ ràng, hiển thị “Đang xử lý hàng 14 của 100 (14%)”.
Ví Dụ Với Nhiệm Vụ Công Thức Đơn Giản
Hãy khám phá ví dụ thực tế thực hiện hành động worksheet. Phiên bản này viết công thức doanh số đơn giản trong một cột.
Sub ShowProgressWithFormula() Dim i As Long Dim lastRow As Long Dim percentDone As Double lastRow = Cells(Rows.Count, "H").End(xlUp).Row For i = 2 To lastRow ' Hành động đơn giản Cells(i, "K").Formula = "=H" & i & "*I" & i ' Cập nhật thông báo tiến trình percentDone = (i - 1) / (lastRow - 1) Application.StatusBar = "Đang viết công thức... " & _ "Hàng " & (i - 1) & " của " & (lastRow - 1) & _ " (" & Format(percentDone, "0%") & ")" DoEvents Next i Application.StatusBar = False MsgBox "Đã thêm công thức cột K!" End Sub
Đây là ví dụ đơn giản, nhưng phản ánh sát loại tác vụ worksheet nhiều người dùng thực hiện.
Một "Thanh Tiến Trình Văn Bản" Giả
Application.StatusBar không tạo thanh tiến trình đồ họa thật. Tuy nhiên, bạn mô phỏng bằng cách xây dựng thanh dùng ký tự.
Sub StatusBarWithTextProgressBar() Dim i As Long Dim lastRow As Long Dim percentDone As Double Dim barLength As Integer Dim filledBars As Integer Dim progressBar As String lastRow = Cells(Rows.Count, "A").End(xlUp).Row barLength = 20 For i = 2 To lastRow Cells(i, "K").Value = "Processed" percentDone = (i - 1) / (lastRow - 1) filledBars = Int(percentDone * barLength) progressBar = String(filledBars, "|") & String(barLength - filledBars, ".") Application.StatusBar = "Tiến trình: [" & progressBar & "] " & _ Format(percentDone, "0%") DoEvents Next i Application.StatusBar = False MsgBox "Hoàn thành!" End Sub
Khi chạy VBA, thanh trạng thái hiển thị như sau:
Tiến trình: [||||||||||……….] 67%
Vẫn chỉ là văn bản, nhưng cung cấp cảm giác trực quan tiến trình mạnh mẽ hơn.
Thực Hành Tốt: Luôn Khôi Phục Thanh Trạng Thái
Một trong những lỗi phổ biến nhất là quên khôi phục thanh trạng thái khi macro kết thúc. Nếu không dùng Application.StatusBar = False, Excel có thể tiếp tục hiển thị văn bản tùy chỉnh sau khi macro xong. Phiên bản an toàn hơn dùng xử lý lỗi đơn giản để thanh trạng thái reset ngay cả khi có sự cố.
Sub SafeStatusMessage() Dim i As Long Dim lastRow As Long Dim percentDone As Double On Error GoTo CleanUp lastRow = Cells(Rows.Count, "A").End(xlUp).Row For i = 2 To lastRow Cells(i, "K").Value = "Processed" percentDone = (i - 1) / (lastRow - 1) Application.StatusBar = "Đang xử lý hàng " & (i - 1) & " của " & (lastRow - 1) & _ " (" & Format(percentDone, "0%") & ")" DoEvents Next i MsgBox "Hoàn thành tác vụ!" CleanUp: Application.StatusBar = False If Err.Number <> 0 Then MsgBox "Lỗi: " & Err.Description End If End Sub
Mẫu này phù hợp hơn cho sử dụng thực tế.
Mẹo Cho Thông Báo Trạng Thái Tốt Hơn
Thông báo thanh trạng thái tốt nên ngắn gọn và cụ thể. Giữ thông báo ngắn gọn, hữu ích. Ví dụ tốt:
- Đang nhập dữ liệu bán hàng…
- Đang kiểm tra trùng lặp…
- Đang định dạng sheet…
- Đang xử lý bản ghi 45 của 200…
- Đang hoàn thiện báo cáo…
Cố gắng khớp thông báo với tác vụ thực tế đang thực hiện. Điều này khiến macro cảm thấy chuyên nghiệp và dễ tin cậy hơn.
Mẫu Tái Sử Dụng Sẵn Sàng
Bạn tái sử dụng mẫu này trong hầu hết macro. Chỉ copy mã và chèn logic của bạn nơi cần.
Sub MyMacro() On Error GoTo CleanUp Dim i As Long Dim total As Long total = 100 For i = 1 To total Application.StatusBar = "Đang xử lý mục " & i & " của " & total DoEvents ' Mã của bạn ở đây Next i CleanUp: Application.StatusBar = False End Sub
Kết Luận
Bằng cách làm theo hướng dẫn này, bạn dễ dàng hiển thị thông báo tiến trình khi VBA chạy. Nếu muốn cho người dùng biết macro VBA vẫn hoạt động, Application.StatusBar là một trong những công cụ đơn giản nhất. Nó không phải thanh tiến trình đầy đủ, nhưng thường đầy đủ. Cách tiếp cận này dễ triển khai, tin cậy, mã tối thiểu, và cải thiện trải nghiệm người dùng đáng kể trong thủ tục VBA chạy dài. Thử trong macro của bạn bằng cách đặt cập nhật trạng thái bên trong vòng lặp chính — chỉ mất vài dòng mã.
Nhận Bài Tập Excel Nâng Cao Miễn Phí Kèm Giải Pháp!