डीबगिंग तकनीकें

डीबगिंग VBA प्रोग्रामिंग का एक अनिवार्य हिस्सा है। कोड में त्रुटियां खोजने और ठीक करने के लिए सही उपकरणों और तकनीकों का उपयोग करना महत्वपूर्ण है।

Immediate Window

Immediate Window VBA डीबगिंग का केंद्र है।

खोलना

• शॉर्टकट: Ctrl + G
• मेनू: View → Immediate Window

Debug.Print का उपयोग

Sub DebugPrintUdaharan()
    Dim i As Long
    For i = 1 To 5
        Debug.Print "i = " & i
    Next i
End Sub

－ □ ×

Immediate Window

Microsoft Windows [Version xx.x.xxxxx.xxx]

(c) 2025 Ribbit App Development All rights reserved.

 

C:\users\user> i = 1 i = 2 i = 3 i = 4 i = 5

Immediate Window में सीधे कमांड

? Range("A1").Value
? 2 + 3
Range("A1").Value = "टेस्ट"

ब्रेकपॉइंट

ब्रेकपॉइंट विशिष्ट लाइन पर कोड निष्पादन को रोकते हैं।

ब्रेकपॉइंट सेट करना

• क्लिक: कोड एडिटर के बाएं मार्जिन पर क्लिक करें
• शॉर्टकट: F9
• मेनू: Debug → Toggle Breakpoint

ब्रेकपॉइंट पर

जब निष्पादन ब्रेकपॉइंट पर रुकता है:

• वेरिएबल मूल्य जांचें
• Immediate Window में कमांड चलाएं
• कोड स्टेप करें

स्टेप एक्सेक्यूशन

उपलब्ध कमांड

Step Into (F8)

Sub MainProcedure()
    Debug.Print "शुरू"
    HelperFunction  ' F8 यहां HelperFunction में प्रवेश करेगा
    Debug.Print "समाप्त"
End Sub

Sub HelperFunction()
    Debug.Print "हेल्पर"
End Sub

Step Over (Shift+F8)

HelperFunction में प्रवेश किए बिना अगली लाइन पर जाएं।

वेरिएबल निरीक्षण

माउस होवर

ब्रेक मोड में, वेरिएबल पर माउस होवर करें उसका मूल्य देखने के लिए।

Watch Window

1. Debug → Add Watch
2. वेरिएबल या एक्सप्रेशन दर्ज करें
3. Watch Window में मूल्य देखें

Locals Window

1. View → Locals Window
2. सभी लोकल वेरिएबल स्वचालित रूप से दिखाई देते हैं

सामान्य डीबगिंग पैटर्न

लूप डीबगिंग

Sub LoopDebug()
    Dim i As Long
    For i = 1 To 100
        ' विशिष्ट पुनरावृत्ति पर रुकें
        If i = 50 Then Stop

        ' या मूल्य प्रिंट करें
        Debug.Print "i=" & i
    Next i
End Sub

त्रुटि ट्रैकिंग

Sub TrutiTrack()
    On Error GoTo ErrorHandler

    ' कोड जो त्रुटि उत्पन्न कर सकता है
    Dim result As Double
    result = 1 / 0

    Exit Sub

ErrorHandler:
    Debug.Print "त्रुटि: " & Err.Number
    Debug.Print "विवरण: " & Err.Description
    Debug.Print "स्थान: TrutiTrack प्रोसीजर"
End Sub

Assert का उपयोग

Sub AssertUdaharan()
    Dim value As Long
    value = 10

    ' शर्त असत्य होने पर रुकें
    Debug.Assert value > 0  ' पास
    Debug.Assert value < 5  ' रुकेगा
End Sub

उन्नत तकनीकें

कंडीशनल कंपाइलेशन

#Const DEBUG_MODE = True

Sub ConditionalDebug()
    #If DEBUG_MODE Then
        Debug.Print "डीबग मोड सक्रिय"
    #End If

    ' सामान्य कोड
    Range("A1").Value = "टेस्ट"
End Sub

लॉग फंक्शन

Sub LogMessage(msg As String)
    Debug.Print Format(Now, "yyyy-mm-dd hh:nn:ss") & " - " & msg
End Sub

Sub TestLogging()
    LogMessage "प्रोसेस शुरू"
    ' कोड...
    LogMessage "प्रोसेस समाप्त"
End Sub

－ □ ×

Immediate Window

Microsoft Windows [Version xx.x.xxxxx.xxx]

(c) 2025 Ribbit App Development All rights reserved.

 

C:\users\user>

2024-01-15 10:30:45 - प्रोसेस शुरू 2024-01-15 10:30:46 - प्रोसेस समाप्त

सारांश

इन डीबगिंग उपकरणों में महारत हासिल करने से VBA विकास अधिक कुशल और त्रुटि-मुक्त हो जाता है।