कोड चालवल्यानंतर सूचना दर्शविण्यासाठी आम्ही अनेकदा VBA मध्ये MsgBox वापरतो. कधीकधी एकच ओळ आउटपुट योग्यरित्या दर्शवू शकत नाही. मग आपल्याला नवीन ओळी जोडायची आहेत . त्यामुळे या लेखातून, तुम्ही एक्सेल VBA वापरून MsgBox मध्ये नवीन ओळ जोडण्यासाठी 6 उपयुक्त मॅक्रो शिकाल.

सराव वर्कबुक डाउनलोड करा

तुम्ही येथून विनामूल्य एक्सेल टेम्पलेट डाउनलोड करू शकता आणि स्वत: सराव करू शकता.

6 एक्सेल VBA वापरून MsgBox मध्ये नवीन ओळ तयार करण्यासाठी उदाहरणे

1. एक्सेल VBA वापरून MsgBox मध्ये नवीन ओळ जोडण्यासाठी vbNewLine वापरा

येथे, आम्ही VBA मॅक्रो मध्‍ये एक ओळ जोडण्‍यासाठी वापरू. MsgBox. मी पहिल्या ओळीत “ हॅलो! ” आणि दुसऱ्या ओळीत “ ExcelWIKI मध्ये आपले स्वागत आहे” दाखवेन.

चरण:

• VBA विंडो उघडण्यासाठी Alt + F11 दाबा.
• नंतर खालीलप्रमाणे क्लिक करा मॉड्युल घाला: Insert ➤ Module .

• नंतर, त्यात खालील कोड टाइप करा-

1637

• नंतर परत जा तुमच्या शीटवर आणि उघडण्यासाठी खालीलप्रमाणे क्लिक करा मॅक्रो संवाद बॉक्स: डेव्हलपर ➤ मॅक्रो .

• द मॅक्रो निवडा नाव कोड्स मध्ये नमूद केल्याप्रमाणे.
• शेवटी, फक्त चालवा दाबा.

आता बघा, vbNewLine आऊटपुट दोन मध्ये दाखवत आहेओळी .

अधिक वाचा: एक्सेलमधील ईमेल बॉडीमध्ये एकाधिक ओळी निर्माण करण्यासाठी VBA (2 पद्धती)

2. MsgBox मध्ये नवीन ओळ तयार करण्यासाठी vbCrLf वापरा MsgBox . हे दोन सलग ओळींमध्ये एक नवीन ओळ देखील जोडेल.

चरण:

• प्रथम, पहिल्या पद्धतीपासून पहिल्या दोन चरणांचे अनुसरण करा VBA
• मध्‍ये मॉड्यूल घालण्‍यासाठी लिहा त्यात खालील कोड -

1298

• पुढे, मॅक्रो डायलॉग बॉक्स उघडण्यासाठी पहिल्या पद्धतीतील चौथी पायरी फॉलो करा.
• निवडा मॅक्रो नाव आणि चालवा दाबा.

स्थिर vbCrLf ने <1 जोडला आहे>एक नवीन ओळ एक अंतर रेषा देखील.

अधिक वाचा: कसे जोडावे एक्सेल सेलमधील ओळ (5 सोप्या पद्धती)

3. एक्सेल VBA वापरून MsgBox मध्‍ये नवीन ओळ जोडण्‍यासाठी vbLf घाला

चला दुसरा स्थिरांक वापरू - vbLf Excel VBA मध्‍ये MsgBox नवीन ओळ जोडण्‍यासाठी. 3>

पायऱ्या:

• VBA मध्‍ये मॉड्यूल टाकण्‍यासाठी पहिल्या पद्धतीपासून पहिल्या दोन चरणांचे अनुसरण करा
• नंतर, लिहा खालील कोड त्यात-

2472

• मग मॅक्रो डायलॉग बॉक्स उघडण्यासाठी पहिल्या पद्धतीच्या चौथ्या पायरीचे अनुसरण करा .
• नंतर, मॅक्रो नाव निवडाकोडमध्ये नमूद केल्याप्रमाणे आणि रन दाबा.

आणि लवकरच तुम्हाला इच्छित आउटपुट मिळेल.

अधिक वाचा: एक्सेलमध्ये CONCATENATE फॉर्म्युलासह नवीन लाइन कशी जोडायची (5 मार्ग)

4. एक्सेलमध्ये VBA वापरून MsgBox मध्ये नवीन ओळ तयार करण्यासाठी Chr लागू करा

येथे, आम्ही दोन स्थिरांक VBA- Chr(13) आणिamp; क्र> VBA

2988

• त्यानंतर मॅक्रो डायलॉग बॉक्स उघडण्यासाठी पहिल्या पद्धतीची चौथी पायरी चे अनुसरण करा.
• नंतर निवडा मॅक्रो नाव नियुक्त केले आणि चालवा दाबा.

पहा आम्हाला समान आउटपुट मिळाले आहे.

5. एक्सेल VBA मध्ये मॅक्रोमध्ये नवीन ओळ जोडा

मागील पद्धतींमध्ये, आम्ही कोडमधील ओळ खंडित केली नाही. येथे, आम्ही कोडमधील ओळी तोडून जोडू.

चरण:

• प्रथम, पहिल्या पद्धतीपासून पहिल्या दोन पायऱ्या फॉलो करा VBA
• पुढे, लिहा खालील कोड त्यामध्ये-

4007

• नंतर, मॅक्रो डायलॉग बॉक्स उघडण्यासाठी पहिल्या पद्धतीची चौथी पायरी चे अनुसरण करा.
• त्यानंतर फक्त मॅक्रो नाव निवडा आणि चालवा दाबा.

आतापहा, की मॅक्रो ने एक नवीन ओळ जोडली आहे ओळींमध्ये एक अंतर रेषा ठेवली आहे.

अधिक वाचा: एक्सेलमध्ये लाइन ब्रेक कसा करायचा (4 मार्ग)

6. बटण वापरून MsgBox मध्ये नवीन ओळी जोडण्यासाठी VBA एम्बेड करा

आमच्या अगदी शेवटच्या पद्धतीत, आम्ही कार्य थोड्या वेगळ्या पद्धतीने करू. MsgBox मध्ये ओळी जोडण्यासाठी आम्ही बटण सेट करू.

6.1 सिंगल लाइनसाठी बटण

प्रथम, आम्ही एक ओळ जोडण्यासाठी एक बटण बनवू. त्यासाठी, मी आडनाव , पत्ता आणि फोन नंबर इनपुट देण्यासाठी तीन सेल दर्शविणारा डेटासेट बनवला आहे. जेव्हा आम्ही बटण क्लिक करू, तेव्हा ते सेल तपासेल आणि रिकामा सेल मिळाल्यास नंतर त्या सेलसाठी संदेश दर्शवेल .

• खालील प्रमाणे क्लिक करा: डेव्हलपर ➤ घाला आणि नंतर निवडा आयताकृती बॉक्स<2 निवडा> फॉर्म नियंत्रण विभाग मधून.

• लवकरच, तुम्हाला एक प्लस चिन्ह मिळेल तुमचा कर्सर, बटण आकार सेट करण्‍यासाठी तुमचा माऊस लेफ्ट-क्लिक करा आणि शीटवर ड्रॅग करा.

• नंतर बटण वर राइट-क्लिक करा तुमच्या माऊसवर आणि मजकूर संपादित करा<2 निवडा> बटण नाव सेट करण्यासाठी संदर्भ मेनू मधून.

• टाइप करा <2 नाव आणि शीटवर कुठेही क्लिक करा.

• पुन्हा राइट-क्लिक करा तुमचे <1 बटणावर>माउस

5918

• नंतर, फक्त परत जा तुमच्या शीटवर आणि बटण क्लिक करा.

जसे आडनाव फील्ड रिकामे आहे म्हणूनच ते सूचना संदेश दर्शवत आहे.

• ओके दाबा आणि नंतर ते दुसरे फील्ड तपासेल .

दुसरे फील्ड रिकामे आहे त्यामुळे ते एक n जोडले हे सूचित करण्यासाठी ew ओळ .

येथे, मी पहिले फील्ड भरले आहे आणि बटणावर क्लिक केले आहे, आणि ते फील्ड वगळले आहे हे पहा आणि संदेश दर्शविण्यासाठी दुसऱ्या फील्ड वर उडी घेतली.

6.2 एकाधिक ओळींसाठी बटण

असाइन करून हे बटण, आम्ही संदेश बॉक्समध्ये एका वेळी अनेक ओळी जोडण्यास सक्षम होऊ.

• प्रथम, पहिल्या 6 चरणांचे अनुसरण करामागील विभाग बटण जोडण्यासाठी आणि मॅक्रो नियुक्त करण्यासाठी.

• नंतर मॅक्रोमध्ये खालील कोड टाइप करा-

2188

कोड ब्रेकडाउन<2

• येथे, मी उप प्रक्रिया Multiple_Line_Button तयार केली.
• नंतर काही व्हेरिएबल्स WS म्हणून घोषित केले. 1>वर्कशीट आणि अंतिम_नाव , पत्ता , फोन , त्रुटी_संदेश म्हणून
• नंतर, वापरलेले लेन आणि श्रेणी फील्ड सेट करण्यासाठी.
• शेवटी, फील्ड रिक्त आहेत की नाही हे तपासण्यासाठी इफ स्टेटमेंट्स वापरले. . जर ते भरले असेल तर ते वगळले जाईल आणि नसल्यास ते MsgBox द्वारे संदेश दर्शवेल.

• शेवटी, फक्त शीटवर परत आणि बटण वर क्लिक करा.

आणि ते तीन फील्ड साठी तीन ओळी दाखवत आहेत ते पहा. सर्व रिक्त आहेत.

मी पहिले फील्ड भरले आहे आणि आता पहा, ते फक्त साठी संदेश दर्शवित आहे पुढील 2 फील्ड .

अधिक वाचा: एक्सेल सेलमध्ये अनेक ओळी कशा ठेवायच्या (2 सोपे मार्ग)

निष्कर्ष

मला आशा आहे की वर वर्णन केलेल्या कार्यपद्धती Excel VBA वापरून MsgBox मध्ये नवीन ओळ तयार करण्यासाठी पुरेशा चांगल्या असतील. टिप्पणी विभागात मोकळ्या मनाने कोणतेही प्रश्न विचारा आणि कृपया मला अभिप्राय द्या.