एक्सेल VBA डिबग.प्रिंट
डीबग प्रिंट VBA संपादक में प्रस्तुत उपयोगी उपकरणों में से एक है ताकि यह पता लगाया जा सके कि कोई कार्यक्रम कैसे काम कर रहा है, और यह VBA कार्यक्रम में बनाए गए चर के मूल्यों में बदलाव का विश्लेषण करने में मदद करता है। यह प्रॉम्प्ट विंडो के आउटपुट को दिखाता है जब हम बिना किसी बग के प्रोग्राम चलाते हैं।
डीबग.प्रिंट कोड के आउटपुट को प्रदर्शित करने के लिए Msgbox के उपयोग पर दो मुख्य लाभ प्रदान करता है। यह हर बार ओके बटन पर क्लिक करने की आवश्यकता को समाप्त करता है और तत्काल विंडो पर लौटे आउटपुट मानों का लॉग दिखाता है। यह उपयोगकर्ताओं के लिए बहुत समय बचाता है। वर्तमान लेख कई उदाहरणों के साथ एक्सेल VBA डिबग प्रिंट के उपयोग की व्याख्या करता है और यह समझाता है कि निम्नलिखित चीजों को कवर करने के लिए इसका उपयोग कैसे करें।
VBA डीबग प्रिंट क्या है?
डीबग VBA में एक ऑब्जेक्ट है और इसे एस्टर और प्रिंट नामक दो विधियों के साथ उपयोग किया जाता है। प्रिंट स्थिति के मूल्यांकन में उपयोगी संदेशों और प्रदर्शनों में मददगार है। VBA में, डीबग करें। प्रिंट स्टेटमेंट का उपयोग कोडिंग प्रोग्राम के किसी भी स्थान पर किसी विंडो या वेरिएबल के संदेशों को दिखाने के लिए किया जाता है। इन्हें किसी भी पावती या पुष्टि की आवश्यकता नहीं है और विकसित कोड पर कोई प्रभाव प्रदर्शित नहीं करते हैं। कई उपयोगकर्ताओं तक पहुँच को सुविधाजनक बनाने की स्थिति में कोड में उपयोग करना सुरक्षित और सर्वोत्तम है। यह पुष्टि करने के लिए कि यह सही ढंग से काम कर रहा है या नहीं, ये सिर्फ कोड के परीक्षण या मूल्यांकन में सहायक हैं। यह चर, तार, संख्या, सरणी, एक्सेल शीट में मान और खाली और सक्रिय शीट प्रिंट करता है।
एक्सेल VBA डिबग प्रिंट का उपयोग कैसे करें?
VBA debug.print तत्काल विंडो में एक बार में अधिक चर प्रदर्शित करने में सहायक कथन है। यह आउटपुट दिखाने के लिए सबसे अच्छा और वैकल्पिक तरीका है।
उदाहरण के लिए,
डीबग.प्रिंट काउंट, योग, औसत, मानक विचलन
जैसा कि उदाहरण में दिखाया गया है, सभी चर अल्पविराम से अलग होते हैं। यह कथन आउटपुट को तत्काल विंडो में स्थानांतरित कर सकता है, भले ही कोई विंडो न खोली गई हो। यह Msgbox की तरह कोड को चलाना बंद नहीं करता है। यह लचीलापन कोड में परिवर्तन से संबंधित आउटपुट में परिवर्तन की निरंतर निगरानी का समर्थन करता है।
चर गणना, योग, औसत और मानक विचलन उनके बीच समान स्थान के साथ एक ही पंक्ति में प्रदर्शित होते हैं। यदि तत्काल विंडो नहीं खोली गई है, तो आउटपुट देखने के लिए निम्न चरणों का पालन करें।
तत्काल विंडो खोलने और आउटपुट देखने के लिए कदम
- Ctrl + G दबाएँ या VBA संपादक में 'दृश्य' मेनू पर क्लिक करें।
- विकल्प चुनें 'तत्काल विंडो'।
- विंडो में कर्सर रखें और फिर से कोड चलाएं।
- विंडो में आउटपुट का निरीक्षण करें।
एक्सेल VBA डिबग के उदाहरण
एक्सेल VBA में डीबग प्रिंट के उपयोग को प्रदर्शित करने के लिए निम्नलिखित उदाहरण हैं।
उदाहरण # 1 - चर का मान प्रदर्शित करना
सबसे पहले, डेवलपर टैब पर जाएं, मैक्रोज़ पर क्लिक करें, और वीबीए में कोड लिखने के लिए एक मैक्रो बनाएं और इसमें एक नाम जोड़ें।
नाम जोड़ने के बाद create पर क्लिक करें। यह VBA संपादक खोलता है।
एक छोटा कार्यक्रम विकसित करें, जैसा कि आंकड़े में दिखाया गया है।
कोड:
सब वेरिएबल्स () डिम एक्स अस इन्टर्गर डिम वाई अस स्ट्रिंग डिम जेड एज़ डबल एक्स = ५ वाई = "जॉन" जेड = १०५.६३२ डीबग।प्रिंट एक्स डेबग.प्रिंट वाई डीबग.प्रिंट जेड एंड सब उप
स्क्रीनशॉट में दिखाया गया है, तीन आयाम या चर क्रमशः एक्स, वाई और जेड के रूप में एक पूर्णांक, स्ट्रिंग और डबल के रूप में घटाए जाते हैं। इन मानों को मुद्रित करने के लिए, डिबगप्रिंट का उपयोग किया जाता है, और आउटपुट प्रॉम्प्ट विंडो में प्रदर्शित किया जाएगा। परिणाम देखने के लिए CTRL + G दबाएं , जैसा कि स्क्रीनशॉट में दिखाया गया है।
इस कोड को F5 कुंजी का उपयोग करके चलाएं और तत्काल विंडो में आउटपुट देखने के लिए CTRL + G दबाएं ।
डिबग-प्रिंट स्टेटमेंट को कॉमा द्वारा अलग करके इस कार्यक्रम को सरल बनाया जा सकता है।
कोड:
सब वेरिएबल्स () डिम एक्स अस इन्टर्गर डिम वाई अस स्ट्रिंगिंग डिम जेड एज़ डबल एक्स = ५ वाई = "जॉन" जेड = १०५.६३२ डीबग.प्रिंट एक्स, वाई, जेड एंड सब
यह डिबग स्टेटमेंट आउटपुट को उसी लाइन में प्रिंट करता है, जैसा कि स्क्रीनशॉट में दिखाया गया है।
उदाहरण # 2 - फ़ाइल में डिबग प्रिंट
यह उदाहरण किसी फ़ाइल में आउटपुट प्रदर्शित करने के लिए VBA डिबग प्रिंट के उपयोग को दिखाता है जब पाठ की लंबाई बहुत अधिक होती है।
फ़ाइल पर आउटपुट प्रिंट करने का कार्यक्रम विकसित किया गया है, जैसा कि आंकड़े में दिखाया गया है।
कोड:
Sub DebugPrintToFile () Dim s as String Dim num as Integer num = FreeFile () Open "D: Articles Excel test.txt" आउटपुट के लिए #num s = "हेल्लो, वर्ल्ड!" Debug.Print 's तत्काल विंडो में लिखें Print #num, s फाइल लिखने के लिए आउटपुट #num End Sub को बंद करें
इस कार्यक्रम में, एस और न्यूम नामक दो चर स्ट्रिंग और पूर्णांक माने जाते हैं। खुले विवरण का उपयोग नाम परीक्षण के साथ एक पाठ फ़ाइल बनाने के लिए किया जाता है। "हैलो वर्ल्ड" नामक एक कॉलम को चर एस में घोषित किया गया है।
जब आप मैन्युअल रूप से VBA कोड चलाते हैं या F5 कुंजी का उपयोग करते हैं, तो आउटपुट तत्काल विंडो में लिखा जाता है, और एक समय में फ़ाइल फ़ोल्डर में दिखाई जाती है।
The output to file is shown in the below-mentioned figure.
Printing output to file is beneficial when long text is presented.
Example #3 - Displaying the Factorial of a Number in the Immediate Window
This example illustrates the use of the debug-a print statement to show the factorial of a number.
Code:
Public Sub Fact() Dim Count As Integer Dim number As Integer Dim Fact As Integer number = 5 Fact = 1 For Count = 1 To number Fact = Fact * Count Next Count Debug.Print Fact End Sub
To determine the factorial, three variables are considered, including the count, number, and fact. For loop is taken to repeat the multiplication of fact-value with count to determine factorial of the number.
Here, debug. The print statement is used outside the “for” loop to display the value after completing the circle. The output is determined.
If we use debug. Print statement inside the “for” loop, the fact-value is displayed for every recurring time, as shown in the figure.
Code:
Public Sub Fact() Dim Count As Integer Dim number As Integer Dim Fact As Integer number = 5 Fact = 1 For Count = 1 To number Fact = Fact * Count Debug.Print Fact Next Count End Sub
Run the code by pressing the F5 key and see the output in the immediate window. In this situation, we should consider the last value as the factorial of the given number.
Example #4 - Printing the Full name of the Active Workbook
This example explains how to print the current workbook name into the prompt window.
The program is developed, as shown in the figure.
Code:
Sub Activework() Dim count As Long For count = 1 To Workbooks.count Debug.Print Workbooks(count).FullName Next count Debug.Print count End Sub
यहां 'काउंट' सक्रिय कार्यपुस्तिकाओं की संख्या की गणना करने और सक्रिय कार्यपुस्तिका का पूरा नाम प्रदर्शित करने के लिए लिया गया चर है। सक्रिय कार्यपुस्तिकाओं का पूरा नाम और संख्या प्रदर्शित की जाती है, जैसा कि चित्र में दिखाया गया है।
ड्राइव में कार्यपुस्तिका का पथ VBA डिबगप्रिंट कथन का उपयोग करके सटीक रूप से प्रदर्शित होता है।
याद रखने वाली चीज़ें
- डिबग .प्रिंट के साथ मुख्य मुद्दा तत्काल विंडो में लंबे तारों के लिए कोई टेक्स्ट रैपिंग विकल्प नहीं है
- उपयोगकर्ता इंटरफ़ेस में आउटपुट देखने के लिए तत्काल विंडो को शीर्ष पर लाया जाना चाहिए
- तत्काल विंडो में प्रदर्शित लंबे पाठ को लपेटना असंभव है। इस स्थिति में, परिणाम को ड्राइव में संग्रहीत फ़ाइल में दिखाया जाना चाहिए।
