Excel में Word के बिना लेबल कैसे बनाएं (चरण-दर-चरण मार्गदर्शिका)

लेबल हमारे लिए कई तरह से उपयोगी होते हैं। आप माइक्रोसॉफ्ट वर्ड की मदद से एक्सेल में लेबल बना सकते हैं। लेकिन, कुछ मामलों में, यह बहुत परेशानी और समय लेने वाला हो सकता है। तो, आप वर्ड के बिना एक्सेल में लेबल बनाना चाह सकते हैं। यह आलेख बिना Word के Excel में लेबल बनाने के तरीके के बारे में चरण-दर-चरण मार्गदर्शिका प्रदर्शित करता है।

आप नीचे दिए गए लिंक से अभ्यास कार्यपुस्तिका डाउनलोड कर सकते हैं।

लेबल क्या हैं?

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

VBA का उपयोग करके Excel में Word के बिना लेबल बनाने के 4 चरण

Microsoft Word . की सहायता के बिना Excel में लेबल बनाना बहुत सुविधाजनक है . इसके अलावा, यह बहुत समय और परेशानी बचाता है।

अब, मान लेते हैं कि आपके पास पते . की सूची वाला डेटासेट है आप अपने क्रिसमस कार्ड भेजना चाहते हैं। इस समय, आप इन पते . के लिए लेबल बनाना चाहते हैं वर्ड का उपयोग किए बिना एक्सेल में। इस मामले में, आप ऐसा करने के लिए नीचे दिए गए चरणों का पालन कर सकते हैं।

चरण 01 :एक्सेल में डेटा को एक नई शीट में कॉपी करें

• सबसे पहले, कॉलम में पतों को कॉपी करें और उन्हें एक नई शीट . में पेस्ट करें सेल से शुरू A1 ।

चरण 02 :VBA विंडो खोलें और Excel में एक मॉड्यूल बनाएं

• फिर, ALT + F11 press दबाएं VBA . खोलने के लिए खिड़की।
• अब, उस शीट का चयन करें जिस पर आप वर्तमान में काम कर रहे हैं और राइट-क्लिक करें इस पर। इस मामले में, यह शीट 2 . है ।
• अगला, क्रमिक रूप से सम्मिलित करें select चुनें> मॉड्यूल ।

आखिरकार, इन चरणों के सेट से VBA . खुल जाएगा विंडो खोलें और एक नया मॉड्यूल डालें आपकी शीट में।

चरण 03 :एक्सेल में कोड डालें

• इस समय, निम्नलिखित कोड को कॉपी करें और रिक्त बॉक्स में पेस्ट करें।

'This Code Will Create Labels in Excel
Sub Createlabels()
 Application.Run "AskForColumn"
 Cells.Select
 Selection.RowHeight = 75.75
 Selection.ColumnWidth = 34.14
 With Selection
 .HorizontalAlignment = xlCenter
 .VerticalAlignment = xlBottom
 .WrapText = False
 .Orientation = 0
 .AddIndent = False
 .IndentLevel = 0
 .ShrinkToFit = False
 .ReadingOrder = xlContext
 .MergeCells = False
 End With
 With Selection
 .HorizontalAlignment = xlCenter
 .VerticalAlignment = xlCenter
 .WrapText = False
 .Orientation = 0
 .AddIndent = False
 .IndentLevel = 0
 .ShrinkToFit = False
 .ReadingOrder = xlContext
 .MergeCells = False
 End With
End Sub
Sub AskForColumn()
Dim refrg As Range
Dim vrb As Long
Dim dat As Long
Set refrg = Cells(Rows.Count, 1).End(xlUp)
dat = 1
On Error Resume Next
incolno = InputBox("Enter Number of Columns Desired")
For vrb = 1 To refrg.Row Step incolno
Cells(dat, "A").Resize(1, incolno).Value = _
Application.Transpose(Cells(vrb, "A").Resize(incolno, 1))
dat = dat + 1
Next
Range(Cells(dat, "A"), Cells(refrg.Row, "A")).ClearContents
End Sub

💡 कोड स्पष्टीकरण:

इस स्तर पर, मैं ऊपर इस्तेमाल किए गए कोड की व्याख्या करूंगा। जैसा कि आप देख सकते हैं, इस कोड के दो भाग हैं। एक भाग में उप AskForColumn () . होता है जिसे भाग 01 . कहा जाएगा , और दूसरे में उप Createlabels() . है जिसे भाग 02 . कहा जाएगा . अब, मैं इन दोनों भागों को एक-एक करके समझाता हूँ।

भाग 01 :

इस बिंदु पर, मैंने कोड को विभिन्न अनुभागों में विभाजित किया है और निम्नलिखित स्क्रीनशॉट में प्रत्येक अनुभाग को क्रमांकित किया है। नतीजतन, यहां मैं प्रत्येक अनुभाग को उनकी संख्या के अनुसार समझाऊंगा।

• अनुभाग 1: यह अनुभाग AskForColumn . नामक एक उप नाम बनाता है ।
• अनुभाग 2: यहां, हम विभिन्न चर घोषित करते हैं।
• धारा 3: इस खंड में, हम कॉलम में पंक्तियों की संख्या गिनते हैं।
• धारा 4: अब, यहां हम एक इनपुटबॉक्स बनाते हैं कॉलम की संख्या पूछने के लिए।
• धारा 5: इस खंड में, हम एक के लिए . चलाते हैं फंदा। साथ ही, हम चरण . का उपयोग करते हैं लूप को चलाने के लिए कीवर्ड जितनी बार हम इनपुटबॉक्स . में डालते हैं ।
• धारा 6 :इस स्तर पर, हम इस खंड का उपयोग कॉलम के सेल को अलग-अलग पंक्तियों और कॉलम में वितरित करने के लिए एप्लिकेशन ट्रांसपोज़ का उपयोग करके करते हैं। और संपत्ति आकार बदलें ।
• धारा 7: अंत में, हम इस अनुभाग की अतिरिक्त सामग्री को हटा देते हैं।

भाग 02 :

इस मामले में भी, मैंने कोड को विभिन्न अनुभागों में विभाजित किया है और निम्नलिखित स्क्रीनशॉट में प्रत्येक अनुभाग को क्रमांकित किया है। नतीजतन, यहां मैं प्रत्येक अनुभाग को उनकी संख्या के अनुसार समझाऊंगा।

• अनुभाग 1: यह अनुभाग लेबल बनाएं () . नामक उप नाम बनाता है ।
• अनुभाग 2: इस खंड में, हम सूर्य को AskForColumn() . कहते हैं चलाने के लिए।
• धारा 3: इस बिंदु पर, यह खंड सेल प्रारूप . को परिभाषित करता है कोशिकाओं . का उपयोग करने वाले सभी कक्षों के लिए संपत्ति।

चरण 04 :एक्सेल में बिना वर्ड के लेबल बनाने के लिए कोड रन करें

• अब, F5 दबाएं उप लेबल बनाएं () . चलाने के लिए ।
• परिणामस्वरूप, आप अपनी स्क्रीन पर नीचे स्क्रीनशॉट की तरह एक बॉक्स दिखाई देंगे।
• इस बिंदु पर, उन स्तंभों की संख्या डालें जिनमें आप अपने लेबल चाहते हैं।
• फिर, ठीक . पर क्लिक करें ।

• आखिरकार, आपके लेबल नीचे दिए गए स्क्रीनशॉट की तरह बन जाएंगे।

💡 नोट :

• यह तरीका तभी काम करेगा जब आपका डेटा एक ही कॉलम में होगा।
• लेबल बनाने के बाद, आप सभी बॉर्डर . का उपयोग करके बॉर्डर जोड़ सकते हैं होम . में विकल्प टैब।
• साथ ही, सुनिश्चित करें कि आप उप Createlabels() . चलाते हैं . इस मामले में, यदि आप उप चलाते हैं, तो आस्कफोर कॉलम () आपको अपना वांछित परिणाम नहीं मिलेगा।
• इसके अलावा, कॉलम में पतों के अलावा कुछ भी दर्ज न करें A ।

और पढ़ें: एक्सेल सूची से वर्ड में लेबल कैसे बनाएं (चरण-दर-चरण दिशानिर्देश)

बिना वर्ड के एक्सेल में लेबल कैसे प्रिंट करें

उपर्युक्त चरणों का उपयोग करके लेबल बनाने के बाद, अब आप लेबल प्रिंट करना . कर सकते हैं . अब, अगर आप ऐसा करना चाहते हैं, तो आप नीचे दिए गए चरणों का पालन कर सकते हैं।

कदम :

• सबसे पहले, पेज लेआउट पर जाएं पृष्ठ के शीर्ष से टैब।
• अगला, पेज सेटअप . पर क्लिक करें बटन।

• उसके बाद, मार्जिन . पर जाएं ।
• अब, शीर्ष संपादित करें और नीचे मार्जिन से 0.5 . तक और फिर बाएं . संपादित करें और दाएं मार्जिन से 0.215 . तक ।
• परिणामस्वरूप, ठीक . पर क्लिक करें ।

• अब, CTRL + P दबाएं प्रिंट . खोलने के लिए मेनू।
• इस बिंदु पर,  नो स्केलिंग . पर क्लिक करें और 4 विकल्प दिखाई देंगे।
• अगला, उन विकल्पों में से एक पृष्ठ पर सभी कॉलम फ़िट करें . चुनें ।

• आखिरकार, आप प्रिंट करने के लिए तैयार हैं।
• इस मामले में, आपका प्रिंट पूर्वावलोकन नीचे स्क्रीनशॉट की तरह होगा।

और पढ़ें:  एक्सेल से वर्ड में मेल मर्ज लेबल कैसे करें (आसान चरणों के साथ)

निष्कर्ष

अंतिम लेकिन कम से कम नहीं, मुझे आशा है कि आपको वह मिल गया जो आप इस लेख से खोज रहे थे। यदि आपके कोई प्रश्न हैं, तो कृपया नीचे टिप्पणी करें। साथ ही, यदि आप इस तरह के और लेख पढ़ना चाहते हैं, तो आप हमारी वेबसाइट पर जा सकते हैं ExcelDemy ।

संबंधित लेख

• एक्सेल में पता लेबल कैसे प्रिंट करें (2 त्वरित तरीके)
• एक्सेल में मेलिंग लेबल कैसे बनाएं (आसान चरणों के साथ)
• एक्सेल फ़ाइल को मेलिंग लेबल में कैसे मर्ज करें (आसान चरणों के साथ)
• एक्सेल से एवरी लेबल कैसे प्रिंट करें (2 सरल तरीके)