एक्सेल को उत्तरदायी रखें:वीबीए चलने के दौरान लाइव प्रगति संदेश दिखाएं

Application.StatusBar का उपयोग क्यों करें?

• 100 में से पंक्ति 10 को संसाधित करना
• डेटा आयात किया जा रहा है...
• सूत्र लिखना...
• 65% पूर्ण

Application.StatusBar = "Processing..."

Application.StatusBar = False

मूल उदाहरण:सरल प्रगति संदेश

Sub SimpleStatusBar() 
 Application.StatusBar = "Running report... please wait"
 
 ' Simulate work
 Dim i As Long
 For i = 1 To 50000
 ' Your processing here
 Next i
 
 Application.StatusBar = False ' Restore the status bar
 MsgBox "Done!" 
End Sub

लूप के दौरान लाइव प्रगति दिखाएं

Sub ShowLoopProgress()
 Dim i As Long
 Dim lastRow As Long
 lastRow = Cells(Rows.Count, "A").End(xlUp).Row
 For i = 2 To lastRow 
 ' Simple action
 Cells(i, "K").Value = "Processed" 
 ' Update progress message
 Application.StatusBar = "Processing row " & (i - 1) & " of " & lastRow 
 DoEvents
 Next i
 
 Application.StatusBar = False
 MsgBox "Task completed!"
End Sub

• DoEvents एक्सेल को स्क्रीन को रीफ्रेश करने और मैक्रो चलने के दौरान प्रतिक्रिया देने की अनुमति देता है
• इसके बिना, मैक्रो समाप्त होने तक स्टेटस बार स्पष्ट रूप से अपडेट नहीं हो सकता है, खासकर लंबे लूप में
• जब तक आवश्यकता न हो, इसे अत्यधिक बड़े लूप में उपयोग न करें, क्योंकि यह निष्पादन को थोड़ा धीमा कर सकता है

एक प्रतिशत संदेश जोड़ें

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 
 ' Simple action
 Cells(i, "K").Value = "Processed" 
 ' Update progress message
 percentDone = (i - 1) / (lastRow - 1)
 Application.StatusBar = "Processing row " & (i - 1) & " of " & (lastRow - 1) & _
 " (" & Format(percentDone, "0%") & ")" 
 DoEvents
 Next i
 
 Application.StatusBar = False
 MsgBox "Task completed!"
End Sub

एक सरल फॉर्मूला कार्य के साथ उदाहरण

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 
 ' Simple action
 Cells(i, "K").Formula = "=H" & i & "*I" & i 
 ' Update progress message
 percentDone = (i - 1) / (lastRow - 1)
 Application.StatusBar = "Writing formulas... " & _
 "Row " & (i - 1) & " of " & (lastRow - 1) & _
 " (" & Format(percentDone, "0%") & ")" 
 DoEvents
 Next i
 
 Application.StatusBar = False
 MsgBox "Formulas added in column K!"
End Sub

एक टेक्स्ट-आधारित "नकली प्रगति बार"

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 = "Progress: [" & progressBar & "] " & _
 Format(percentDone, "0%") 
 DoEvents
 Next i
 
 Application.StatusBar = False
 MsgBox "Completed!"
End Sub

सर्वोत्तम अभ्यास:स्टेटस बार को हमेशा रीसेट करें

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 = "Processing row " & (i - 1) & " of " & (lastRow - 1) & _
 " (" & Format(percentDone, "0%") & ")" 
 DoEvents
 Next i
 
 MsgBox "Task completed!"
CleanUp:
 Application.StatusBar = False
 If Err.Number <> 0 Then
 MsgBox "Error: " & Err.Description
 End If
End Sub

बेहतर स्थिति संदेशों के लिए युक्तियाँ

• बिक्री डेटा आयात करना...
• डुप्लिकेट की जाँच हो रही है...
• कार्यपत्रक का स्वरूपण...
• 200 में से 45 रिकॉर्ड संसाधित हो रहा है...
• रिपोर्ट को अंतिम रूप दिया जा रहा है...

उपयोग के लिए तैयार पुन:प्रयोज्य पैटर्न

Sub MyMacro()
 On Error GoTo CleanUp
 Dim i As Long
 Dim total As Long
 total = 100
 For i = 1 To total
 Application.StatusBar = "Processing item " & i & " of " & total
 DoEvents
 ' Your code here
 Next i
CleanUp:
 Application.StatusBar = False
End Sub

निष्कर्ष