विषयसूची
कोड चलाने के बाद अधिसूचना दिखाने के लिए VBA में हम अक्सर MsgBox का उपयोग करते हैं। कभी-कभी एक लाइन आउटपुट को ठीक से नहीं दिखा सकती है। फिर हमें नई लाइनें जोड़ने की जरूरत है । तो इस लेख से, आप एक्सेल VBA का उपयोग करके MsgBox में एक नई लाइन जोड़ने के लिए 6 उपयोगी मैक्रोज़ सीखेंगे।
अभ्यास कार्यपुस्तिका डाउनलोड करें
आप यहां से मुफ्त एक्सेल टेम्पलेट डाउनलोड कर सकते हैं और खुद अभ्यास कर सकते हैं।
MsgBox.xlsm में नई लाइन बनाएं
6 उदाहरण एक्सेल VBA का उपयोग करके MsgBox में नई लाइन बनाने के लिए
1। एक्सेल VBA का उपयोग करके MsgBox में नई लाइन जोड़ने के लिए vbNewLine का उपयोग करें
यहां, हम VBA मैक्रो में vbNewLine का उपयोग में एक लाइन जोड़ने के लिए करेंगे संदेश बॉक्स। मैं पहली पंक्ति में “ नमस्कार! ” और दूसरी पंक्ति में “ ExcelWIKI में आपका स्वागत है” दिखाऊंगा।
चरण:
- VBA विंडो खोलने के लिए Alt + F11 दबाएं।
- फिर क्लिक करें निम्नानुसार एक मॉड्यूल डालें: सम्मिलित करें ➤ मॉड्यूल ।
- बाद में, इसमें निम्न कोड टाइप करें-
6101
- फिर वापस अपनी शीट पर जाएं और क्लिक करें इस प्रकार खोलने के लिए मैक्रोज़ डायलॉग बॉक्स: डेवलपर ➤ मैक्रोज़ ।
- मैक्रो चुनें नाम जैसा कि कोड में निर्दिष्ट है।
- अंत में, बस दबाएं ।
अब एक नज़र डालें, vbNewLine दो में आउटपुट दिखा रहा हैलाइन्स ।
और पढ़ें: एक्सेल में ईमेल बॉडी में मल्टीपल लाइन जेनरेट करने के लिए VBA (2 विधियाँ)
2. एक्सेल में VBA का उपयोग करके MsgBox में नई लाइन बनाने के लिए vbCrLf का उपयोग करें
अब हम VBA - vbCrLf के एक और स्थिरांक का उपयोग एक नई लाइन बनाने के लिए करेंगे संदेश बॉक्स । यह लगातार दो पंक्तियों के बीच एक नई पंक्ति भी जोड़ेगा।
चरण:
- पहले, पहली विधि से पहले दो चरणों का पालन करें VBA
- में एक मॉड्यूल डालने के लिए फिर निम्नलिखित कोड लिखें-
7748
- अगला, मैक्रो संवाद बॉक्स खोलने के लिए पहली विधि से चौथा चरण का पालन करें।
- चुनें मैक्रो नाम और रन दबाएं।
स्थिर vbCrLf ने एक नई लाइन एक गैप लाइन के साथ भी।
और पढ़ें: एक कैसे जोड़ें एक्सेल सेल में लाइन (5 आसान तरीके)
3. एक्सेल VBA का उपयोग करके MsgBox में नई लाइन जोड़ने के लिए vbLf डालें
आइए एक और स्थिरांक का उपयोग करें- vbLf Excel VBA में MsgBox में नई लाइन जोड़ने के लिए ।
चरण:
- <11 VBA में मॉड्यूल सम्मिलित करने के लिए पहली विधि से पहले दो चरणों का पालन करें
- बाद में निम्नलिखित कोड लिखें-
7100
- फिर मैक्रो डायलॉग बॉक्स खोलने के लिए पहली विधि से चौथा चरण का पालन करें।
- बाद में, मैक्रो नाम चुनेंजैसा कि कोड में बताया गया है और Run दबाएं।
और जल्द ही आपको वांछित आउटपुट मिलेगा।
और पढ़ें: एक्सेल में CONCATENATE फॉर्मूला के साथ नई लाइन कैसे जोड़ें (5 तरीके)
4। एक्सेल में VBA का उपयोग करके MsgBox में नई लाइन बनाने के लिए Chr लागू करें
यहाँ, हम VBA के दो स्थिरांकों का उपयोग करेंगे- Chr(13) & Chr(10) पंक्तियां जोड़ने के लिए।
चरण:
- पहले विधि से पहले दो चरणों का अनुसरण करके प्रारंभ करें VBA
- में मॉड्यूल डालने के लिए फिर निम्नलिखित कोड लिखें-
5016
- इसके बाद मैक्रो डायलॉग बॉक्स खोलने के लिए पहली विधि से चौथा चरण का पालन करें।
- फिर चुनें असाइन किया गया मैक्रो नाम और रन दबाएं।
देखें कि हमें वही आउटपुट मिला है।
5. एक्सेल VBA में मैक्रो के भीतर नई लाइन जोड़ें
पिछले तरीकों में, हमने कोड में लाइन को नहीं तोड़ा। यहां, हम कोड के भीतर पंक्तियों को तोड़ेंगे और जोड़ेंगे।
चरण:
- पहले, पहली विधि से पहले दो चरणों का पालन करें VBA
- में एक मॉड्यूल डालने के लिए अगला, लिखें निम्नलिखित कोड इसमें-
5834
- बाद में, मैक्रो डायलॉग बॉक्स खोलने के लिए पहली विधि से चौथा चरण का पालन करें।
- फिर बस मैक्रो नाम चुनें और चलाएं दबाएं।
अबदेखें, कि मैक्रो ने एक नई लाइन जोड़ दी है लाइनों के बीच एक गैप लाइन रखते हुए।
और पढ़ें: एक्सेल में लाइन ब्रेक कैसे करें (4 तरीके)
6। बटन का उपयोग करके MsgBox में नई लाइनें जोड़ने के लिए VBA एम्बेड करें
हमारी अंतिम विधि में, हम कार्य को थोड़े अलग तरीके से करेंगे। हम MsgBox में लाइन जोड़ने के लिए बटन सेट करेंगे।
सिंगल लाइन के लिए 6.1 बटन
सबसे पहले, हम एक लाइन जोड़ने के लिए एक बटन बनाऊँगा। उसके लिए, मैंने एक डेटासेट बनाया है जो इनपुट देने के लिए तीन सेल का प्रतिनिधित्व करता है अंतिम नाम , पता , और फोन नंबर । जब हम बटन पर क्लिक करेंगे, तो यह सेल की जांच करेगा और अगर खाली सेल मिलता है तो उस सेल के लिए संदेश दिखाएगा ।
- निम्नानुसार क्लिक करें: डेवलपर ➤ सम्मिलित करें और फिर चुनें आयताकार बॉक्स फ़ॉर्म नियंत्रण अनुभाग से.
- इसके तुरंत बाद, आपको प्लस चिह्न प्राप्त होगा आपका कर्सर, बायाँ-क्लिक करें अपना माउस और शीट पर बटन आकार सेट करने के लिए खींचें।
- फिर राइट-क्लिक करें अपने माउस को बटन पर और पाठ संपादित करें<2 चुनें> सन्दर्भ मेनू से बटन नाम सेट करने के लिए।
- टाइप करें नाम और शीट पर कहीं भी क्लिक करें।
- फिर से राइट क्लिक करें अपने>माउस बटन पर और मैक्रो सेट करने के लिए संदर्भ मेनू से मैक्रो असाइन करें चुनें।
- इस समय, मैक्रो नाम दें और नया दबाएं।
- फिर टाइप करें निम्नलिखित कोड –
8855
कोड ब्रेकडाउन<2
- सबसे पहले, मैंने एक सब प्रोसीजर सिंगललाइन_बटन बनाया।
- फिर एक वेरिएबल WS के रूप में घोषित किया। 1>वर्कशीट ।
- फिर सेल की जांच के लिए तीन IF स्टेटमेंट का इस्तेमाल किया, अगर सेल वैल्यू से भरा हुआ है तो इसे अनदेखा कर दिया जाएगा और अगर एक खाली सेल मिलता है तो संबंधित संदेश MsgBox के माध्यम से दिखाएगा।
- बाद में, बस वापस अपनी शीट पर जाएं और बटन क्लिक करें।
जैसा कि अंतिम नाम फ़ील्ड खाली है, इसलिए यह अधिसूचना संदेश दिखा रहा है।
- ठीक दबाएं और फिर यह दूसरी फ़ील्ड की जांच करेगा .
दूसरा फ़ील्ड खाली है इसलिए इसमें एक n जोड़ा गया इसे सूचित करने के लिए ew लाइन ।
यहाँ, मैंने पहले फ़ील्ड को भर दिया और बटन पर क्लिक किया, और देखा कि यह उस फ़ील्ड को छोड़ देता है और संदेश दिखाने के लिए दूसरी फील्ड पर जायें। यह बटन, हम संदेश बॉक्स में एक बार में कई पंक्तियाँ जोड़ने में सक्षम होंगे।
- पहले, पहले 6 चरणों का पालन करेंपिछले अनुभाग में बटन जोड़ने के लिए और मैक्रो असाइन करने के लिए।
- फिर टाइप निम्नलिखित कोड मैक्रो में टाइप करें-
2385
कोड ब्रेकडाउन<2
- यहाँ, मैंने एक सब प्रोसीजर मल्टीपल_लाइन_बटन बनाया।
- फिर कुछ वेरिएबल्स WS ऐसे वर्कशीट और अंतिम_नाम , पता , फ़ोन , त्रुटि_msg जैसा
- बाद में, उपयोग किया गया लेन और रेंज फ़ील्ड सेट करने के लिए।
- आखिरकार, अगर स्टेटमेंट का इस्तेमाल यह जांचने के लिए किया जाता है कि फ़ील्ड खाली हैं या नहीं . अगर भर गया है तो छोड़ देंगे और नहीं तो MsgBox के जरिए मैसेज दिखाएंगे। बटन क्लिक करें।
और देखें कि यह तीन पंक्तियों के लिए तीन फ़ील्ड दिखा रहा है जैसे वे सभी रिक्त हैं।
मैंने पहला क्षेत्र भर दिया है और अब देखिए, यह केवल के लिए संदेश दिखा रहा है अगले 2 फील्ड ।
और पढ़ें: एक्सेल सेल में मल्टीपल लाइन कैसे लगाएं (2 आसान तरीके)
निष्कर्ष
मुझे उम्मीद है कि ऊपर वर्णित प्रक्रियाएं एक्सेल VBA का उपयोग करके MsgBox में एक नई लाइन बनाने के लिए पर्याप्त होंगी। टिप्पणी अनुभाग में बेझिझक कोई भी प्रश्न पूछें और कृपया मुझे प्रतिक्रिया दें।
