লেবেল আমাদের অনেক উপকারে আসে। আপনি মাইক্রোসফট ওয়ার্ডের সাহায্যে এক্সেলে লেবেল তৈরি করতে পারেন। কিন্তু কিছু ক্ষেত্রে, এটি অনেক হাসেল এবং সময়সাপেক্ষ হতে পারে। তাই আপনি চাইতে পারেন ওয়ার্ড ছাড়া এক্সেলে লেবেল তৈরি করা। এই আর্টিকেলটি ওয়ার্ড ছাড়া এক্সেলে লেবেল তৈরির ধাপে ধাপে গাইড প্রদর্শন করে।
আপনি নিচের লিংক থেকে প্র্যাক্টিস ওয়ার্কবুক ডাউনলোড করতে পারেন।
লেবেল কী?
সাধারণভাবে বলতে, একটি লেবেল হলো একটি স্টিকার বা কাগজের টুকরো যা সেটি যে বস্তু বা পণ্যের সাথে সংযুক্ত আছে তা বর্ণনা করে। লেবেল ব্যাপক প্রয়োগে ব্যবহৃত হয়। উদাহরণস্বরূপ, লোকেরা ঠিকানা লেবেল তৈরি করে যাতে সেগুলো লিফাফায় লাগাতে পারে। এছাড়া, আমাদের কম্পিউটারের হার্ডওয়্যারে লেবেল লেগে থাকে যাতে আমরা সেগুলো সনাক্ত করতে পারি এবং তাদের স্পেসিফিকেশন জানতে পারি।
VBA ব্যবহার করে ওয়ার্ড ছাড়া এক্সেলে লেবেল তৈরির ৪ ধাপ
মাইক্রোসফট ওয়ার্ড-এর সাহায্য ছাড়া এক্সেলে লেবেল তৈরি করা খুব সুবিধাজনক। এর अलावा, এটি অনেক সময় এবং হাসেল বাঁচায়।
এখন, ধরুন আপনার কাছে একটি ডেটাসেট আছে যেখানে আপনার জানাই বিতরণ করার ঠিকানা গুলোর তালিকা আছে। এই মুহূর্তে, আপনি ওয়ার্ড ব্যবহার না করে এক্সেলে এই ঠিকানা গুলোর জন্য লেবেল তৈরি করতে চান। এই ক্ষেত্রে, আপনি নিচের ধাপগুলো অনুসরণ করে তা করতে পারেন।
ধাপ ০১: এক্সেলে ডেটা নতুন শিটে কপি করুন
- প্রথমে, কলামের ঠিকানা গুলো কপি করে একটি নতুন শিটে সেল A1-থেকে শুরু করে পেস্ট করুন।
ধাপ ০২: এক্সেলে VBA উইন্ডো খুলুন এবং মডিউল তৈরি করুন
- তারপর, ALT + F11 চাপে VBA উইন্ডো খুলুন।
- এখন, আপনি যে শিটে কাজ করছেন সেটি সিলেক্ট করে সেটির ওপর রাইট-ক্লিক করুন। এই কেসে, এটি Sheet 2।
- এরপর, ক্রমাগত Insert > Module সিলেক্ট করুন।
এই ধাপগুলো শেষে VBA উইন্ডো খুলবে এবং আপনার শিটে একটি নতুন Module ইনসার্ট হবে।
ধাপ ০৩: এক্সেলে কোড ইনসার্ট করুন
- এই মুহূর্তে, নিচের কোডটি কপি করে খালি বক্সে পেস্ট করুন।
'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() রয়েছে যাকে অংশ ০১ বলা হবে, এবং অন্যটিতে সাব Createlabels() রয়েছে যাকে অংশ ০২ বলা হবে। এখন, আমি এই দুটি অংশকে একে একে ব্যাখ্যা করব।
অংশ ০১:
এই মুহূর্তে, আমি কোডটিকে বিভিন্ন বিভাগে ভাগ করেছি এবং নিচের স্ক্রিনশটে প্রতিটি বিভাগকে নম্বর দিয়েছি। অতএব, এখানে আমি প্রতিটি বিভাগকে তাদের নম্বর অনুযায়ী ব্যাখ্যা করব।
- বিভাগ ১: এই বিভাগটি AskForColumn নামে একটি সাব তৈরি করে।
- বিভাগ ২: এখানে, আমরা বিভিন্ন ভেরিয়েবল ডিক্লেয়ার করি।
- বিভাগ ৩: এই বিভাগে, আমরা কলামে সারির সংখ্যা গণনা করি।
- বিভাগ ৪: এখন, এখানে আমরা একটি InputBox তৈরি করি যাতে কলামের সংখ্যা জিজ্ঞাসা করা যায়।
- বিভাগ ৫: এই বিভাগে, আমরা একটি For লুপ চালাই। এছাড়া, InputBox-এ দেওয়া সংখ্যা অনুযায়ী লুপ চালানোর জন্য Step কিওয়ার্ড ব্যবহার করি।
- বিভাগ ৬: এই পর্যায়ে, এখানে আমরা অ্যাপ্লিকেশন Transpose এবং প্রপার্টি Resize ব্যবহার করে কলামের সেলগুলোকে বিভিন্ন সারি এবং কলামে বিতরণ করি।
- বিভাগ ৭: শেষে, আমরা এই বিভাগে الإضافي কন্টেন্ট ডিলিট করি।
অংশ ০২:
এই কেসেও, আমি কোডটিকে বিভিন্ন বিভাগে ভাগ করেছি এবং নিচের স্ক্রিনশটে প্রতিটি বিভাগকে নম্বর দিয়েছি। অতএব, এখানে আমি প্রতিটি বিভাগকে তাদের নম্বর অনুযায়ী ব্যাখ্যা করব।
- বিভাগ ১: এই বিভাগটি Createlabels() নামে একটি সাব তৈরি করে।
- বিভাগ ২: এই বিভাগে, আমরা সাব AskForColumn() কল করি যাতে সেটি চলে।
- বিভাগ ৩: এই মুহূর্তে, এই বিভাগটি Cells প্রপার্টি ব্যবহার করে সব সেলের জন্য সেল ফরম্যাট সংজ্ঞায়িত করে।
ধাপ ০৪: কোড রান করুন এক্সেলে ওয়ার্ড ছাড়া লেবেল তৈরির জন্য
- এখন, সাব Createlabels() চালানোর জন্য F5 চাপুন।
- ফলস্বরূপ, আপনার স্ক্রিনে নিচের স্ক্রিনশটের মতো একটি বক্স আসবে।
- এই মুহূর্তে, আপনি কতগুলো কলামে লেবেল চান সেটি ইনসার্ট করুন।
- তারপর, OK ক্লিক করুন।
- শেষে, আপনি নিচের স্ক্রিনশটের মতো আপনার লেবেল তৈরি পাবেন।
💡 নোট:
- এই পদ্ধতি শুধু তখন কাজ করবে যদি আপনার ডেটা একটি একক কলামে থাকে।
- লেবেল তৈরি করার পর, আপনি Home ট্যাবের All Borders অপশন ব্যবহার করে বর্ডার যোগ করতে পারেন।
- এছাড়া, নিশ্চিত করুন যে আপনি সাব Createlabels() রান করছেন। যদি আপনি সাব AskForColumn() রান করেন, তবে আপনি আপনার প্রত্যাশিত ফলাফল পাবেন না।
- আরও, কলাম A-এ ঠিকানার ছাড়া অন্য কিছুই ইনপুট করবেন না।
আরও পড়ুন: এক্সেল তালিকা থেকে ওয়ার্ড-এ লেবেল তৈরি করা (ধাপে ধাপে নির্দেশিকা)
ওয়ার্ড ছাড়া এক্সেলে লেবেল প্রিন্ট করা
উপরে উল্লিখিত ধাপগুলো ব্যবহার করে লেবেল তৈরি করার পর, এখন আপনি লেবেল প্রিন্ট করতে চাইতে পারেন। যদি আপনি তা করতে চান, তবে নিচের ধাপগুলো অনুসরণ করুন।
ধাপসমূহ:
- প্রথমে, পেজের উপরে থেকে Page Layout ট্যাবে যান।
- এরপর, Page Setup বাটনে ক্লিক করুন।
- उसके बाद, Margins-এ যান।
- এখন, Top এবং Bottom মার্জিন 0.5 করুন এবং Left ও Right মার্জিন 0.215 করুন।
- ফলস্বরূপ, OK ক্লিক করুন।
- এখন, CTRL + P চাপে Print মেনু খুলুন।
- এই মুহূর্তে, No Scaling-এ ক্লিক করুন এবং ৪টি অপশন দেখাবে।
- এরপর, সেগুলো থেকে Fit All Columns on One Page সিলেক্ট করুন।
- শেষে, আপনি প্রিন্টের জন্য প্রস্তুত।
- এই কেসে, আপনার প্রিন্ট প্রিভিউ নিচের স্ক্রিনশটের মতো হবে।
আরও পড়ুন: এক্সেল থেকে ওয়ার্ড-এ মেইল মার্জ লেবেল (সহজ ধাপ সহ)
উপসংহার
শেষ কথা, আশা করি এই আর্টিকেল থেকে আপনি যা খুঁজছিলেন তা পেয়েছেন। আপনার যদি কোনো প্রশ্ন থাকে, তবে নিচে কমেন্ট করুন। এছাড়া, আপনি যদি এই টাইপের আরও আর্টিকেল পড়তে চান, তবে আমাদের ওয়েবসাইট ExcelDemy দেখুন।
সম্পর্কিত আর্টিকেল
- এক্সেলে ঠিকানা লেবেল প্রিন্ট করা (২ দ্রুত উপায়)
- এক্সেলে মেলিং লেবেল তৈরি করা (সহজ ধাপ সহ)
- এক্সেল ফাইলকে মেলিং লেবেলে মার্জ করা (সহজ ধাপ সহ)
- এক্সেল থেকে অভেরি লেবেল প্রিন্ট করা (২ সহজ পদ্ধতি)
