সুচিপত্র
টিউটোরিয়ালটি দেখায় কিভাবে আপনি VBA কোড এবং ওয়ার্কবুক ম্যানেজার টুল ব্যবহার করে দ্রুত এক্সেল ওয়ার্কশীটগুলিকে বর্ণানুক্রমিক ক্রমে সাজাতে পারেন৷
মাইক্রোসফ্ট এক্সেল সাজানোর অনেকগুলি দ্রুত এবং সহজ উপায় প্রদান করে৷ বর্ণানুক্রমিকভাবে কলাম বা সারি। কিন্তু এক্সেলে ওয়ার্কশীটগুলিকে পুনর্বিন্যাস করার জন্য শুধুমাত্র একটি পদ্ধতি রয়েছে - শীট ট্যাব বারে তাদের পছন্দসই অবস্থানে টেনে আনুন। একটি সত্যিই বড় ওয়ার্কবুকে ট্যাবগুলিকে বর্ণানুক্রম করার ক্ষেত্রে, এটি একটি দীর্ঘ এবং ভুল উপায় হতে পারে। একটি সময় বাঁচানোর বিকল্প খুঁজছেন? শুধুমাত্র দুটি আছে: VBA কোড বা থার্ড-পার্টি টুল।
ভিবিএ দিয়ে এক্সেলে ট্যাবগুলিকে কীভাবে বর্ণমালা করা যায়
নিচে আপনি এক্সেল সাজানোর জন্য তিনটি VBA কোডের উদাহরণ পাবেন ব্যবহারকারীর পছন্দের উপর ভিত্তি করে শীট ঊর্ধ্বগামী, অবরোহ এবং উভয় দিকে।
ভিবিএ-তে আপনার কিছু অভিজ্ঞতা আছে তা বোঝাতে, আমরা শুধুমাত্র আপনার ওয়ার্কশীটে ম্যাক্রো যোগ করার প্রাথমিক ধাপগুলিকে রূপরেখা দেব:
<8এর জন্য বিস্তারিত ধাপে ধাপে নির্দেশাবলী, অনুগ্রহ করে দেখুন কিভাবে Excel এ VBA কোড সন্নিবেশ করা যায় এবং চালাতে হয়।
টিপ। আপনি যদি আরও ব্যবহারের জন্য ম্যাক্রো রাখতে চান, তাহলে আপনার ফাইলটিকে এক্সেল ম্যাক্রো-সক্ষম ওয়ার্কবুক (.xlsm) হিসাবে সংরক্ষণ করতে ভুলবেন না।
বিকল্পভাবে, আপনি আমাদের নমুনা Alphabetize Excel Tabs ওয়ার্কবুক ডাউনলোড করতে পারেন, অনুরোধ করা হলে বিষয়বস্তু সক্ষম করতে পারেন এবং সেখান থেকে সরাসরি কাঙ্খিত ম্যাক্রো চালাতে পারেন। ওয়ার্কবুকটিতে নিম্নলিখিত ম্যাক্রো রয়েছে:
- TabsAscending - A থেকে Z পর্যন্ত বর্ণানুক্রমিকভাবে শীটগুলি সাজান।
- TabsDescending - শীটগুলি সাজান বিপরীত ক্রম, Z থেকে A পর্যন্ত।
- AlphabetizeTabs - শীট ট্যাবগুলিকে বাছাই করুন, ঊর্ধ্বমুখী বা অবতরণ উভয় দিকে।
নমুনা ওয়ার্কবুক ডাউনলোড এবং খোলার সাথে আপনার এক্সেল, আপনার নিজের ওয়ার্কবুক খুলুন যেখানে আপনি ট্যাবগুলিকে বর্ণানুক্রম করতে চান, Alt + F8 টিপুন, পছন্দসই ম্যাক্রো নির্বাচন করুন, এবং চালান ক্লিক করুন।
এ থেকে জেড <15 বর্ণানুক্রমিকভাবে এক্সেল ট্যাবগুলি সাজান>
এই ছোট্ট ম্যাক্রো বর্তমান ওয়ার্কবুকের শীটগুলিকে অ্যালফানিউমেরিক ক্রমে সাজায়, প্রথমে ওয়ার্কশীট যার নাম সংখ্যা দিয়ে শুরু হয়, তারপর শীটগুলি A থেকে Z পর্যন্ত৷
সাব ট্যাবসঅ্যাসেন্ডিং() i = এর জন্য 1 টি Application.Sheets.Count for j = 1 to Application.Sheets.Count - 1 যদি UCase$(Application.Sheets(j)Name) > UCase$(Application.Sheets(j + 1).Name) তারপর Sheets(j).এর পরে সরান:=Sheets(j + 1) End If Next Next MsgBox "ট্যাবগুলি A থেকে Z পর্যন্ত সাজানো হয়েছে।" এন্ড সাবজেড থেকে এ পর্যন্ত এক্সেল ট্যাবগুলিকে সাজান
আপনি যদি আপনার শীটগুলিকে আলফানিউমেরিক ক্রমে নিচের দিকে সাজাতে চান (Z থেকে A, তারপরে সাংখ্যিক নামের সাথে শীট), তারপর ব্যবহার করুন নিম্নলিখিত কোড:
Sub TabsDescending() i = 1 থেকেApplication.Sheets.Count for j = 1 to Application.Sheets.Count - 1 যদি UCase$(Application.Sheets(j)Name) < UCase$(Application.Sheets(j + 1).Name) তারপর Application.Sheets(j).Move after:=Application.Sheets(j + 1) End If Next Next MsgBox "ট্যাবগুলি Z থেকে A পর্যন্ত সাজানো হয়েছে৷ " এন্ড সাবঅ্যালফাবেটিজ ট্যাবগুলি ঊর্ধ্বমুখী বা অবতরণে
এই ম্যাক্রোটি আপনার ব্যবহারকারীদের একটি প্রদত্ত ওয়ার্কবুকের ওয়ার্কশীটগুলিকে A থেকে Z থেকে বর্ণানুক্রমিকভাবে বা বিপরীত ক্রমে বাছাই করার সিদ্ধান্ত নিতে দেয়৷
যখন থেকে এক্সেল VBA-তে স্ট্যান্ডার্ড ডায়ালগ বক্স (MsgBox) শুধুমাত্র কয়েকটি পূর্বনির্ধারিত বোতাম থেকে বেছে নেওয়ার অনুমতি দেয়, আমরা তিনটি কাস্টম বোতাম সহ আমাদের নিজস্ব ফর্ম (UserForm) তৈরি করব: A থেকে Z , Z থেকে A , এবং বাতিল করুন ।
এর জন্য, ভিজ্যুয়াল বেসিক এডিটর খুলুন, ডান ক্লিক করুন এই ওয়ার্কবুক , এবং ক্লিক করুন ঢোকান > ইউজারফর্ম । আপনার ফর্মের নাম দিন SortOrderFrom , এবং এতে 4টি নিয়ন্ত্রণ যোগ করুন: একটি লেবেল এবং তিনটি বোতাম:
এরপর, F7 টিপুন (অথবা ফর্মটিতে ডাবল ক্লিক করুন) ) Code উইন্ডো খুলতে এবং সেখানে নিচের কোডটি পেস্ট করুন। কোডটি বাটন ক্লিককে বাধা দেয় এবং প্রতিটি বোতামে একটি অনন্য ট্যাগ বরাদ্দ করে:
Private Sub CommandButton1_Click() Me.Tag = 1 Me.Hide End Sub Private Sub CommandButton2_Click() Me.Tag = 2 Me.Hide End Sub Private Sub CommandButton3_Click () Me.Tag = 0 Me.Hide End Subব্যবহারকারী আপনার ফর্মের A থেকে Z বা Z থেকে A বোতামে ক্লিক করে কিনা তার উপর নির্ভর করে, ট্যাবগুলি সাজানআরোহী বর্ণানুক্রমিক ক্রম (ডিফল্টরূপে নির্বাচিত) বা অবরোহী বর্ণানুক্রমিক ক্রম; অথবা ফর্মটি বন্ধ করুন এবং বাতিল ক্ষেত্রে কিছুই করবেন না। এটি নিম্নলিখিত VBA কোড দিয়ে করা হয়, যা আপনি Insert > মডিউল এর মাধ্যমে সন্নিবেশ করেন।
Sub AlphabetizeTabs() Dim SortOrder As Integer SortOrder = showUserForm যদি SortOrder = 0 তারপর সাব থেকে প্রস্থান করুন x = 1 থেকে Application.Sheets. Count for y = 1 to Application.Sheets.Count - 1 যদি SortOrder = 1 তারপর যদি UCase$(Application.Sheets(y).Name) > UCase$(Application.Sheets(y + 1).Name) তারপর Sheets(y).এর পরে সরান:=Sheets(y + 1) End If ElseIf SortOrder = 2 তারপর যদি UCase$(Application.Sheets(y)Name) < UCase$(Application.Sheets(y + 1).Name) তারপর Sheets(y).এর পরে সরান:=Sheets(y + 1) শেষ হলে শেষ হলে পরবর্তী শেষ হলে সাব ফাংশন showUserForm() পূর্ণসংখ্যা হিসাবে showUserForm = 0 Load SortOrderForm SortOrderForm .Show (1) showUserForm = SortOrderForm.Tag আনলোড SortOrderForm শেষ ফাংশনযদি আপনি এখনও VBA এর সাথে খুব স্বাচ্ছন্দ্যবোধ না করেন, আপনি ট্যাবগুলিকে বর্ণানুক্রম করতে আমাদের নমুনা ওয়ার্কবুক ডাউনলোড করতে পারেন, আপনার নিজের ফাইলের সাথে আপনার এক্সেলে খুলুন যেখানে আপনি চান ট্যাব বাছাই করতে, এবং আপনার ওয়ার্কবুক থেকে AlphabetizeTabs ম্যাক্রো চালান:
পছন্দের সাজানোর ক্রম বেছে নিন, বলুন, A থেকে Z , এবং ফলাফলগুলি পর্যবেক্ষণ করুন:
টিপ। VBA এর মাধ্যমে, আপনি আপনার এক্সেল ওয়ার্কশীটের কপিও তৈরি করতে পারেন। কোড এখানে উপলব্ধ: কিভাবেVBA সহ এক্সেলে ডুপ্লিকেট শীট।
আল্টিমেট স্যুট দিয়ে কিভাবে এক্সেল ট্যাবগুলিকে বর্ণানুক্রমিকভাবে সাজাতে হয়
আমাদের এক্সেলের জন্য আল্টিমেট স্যুটের ব্যবহারকারীদের ভিবিএ নিয়ে ঘুরতে হবে না - তাদের একাধিক আছে -ফাংশনাল ওয়ার্কবুক ম্যানেজার তাদের নিষ্পত্তিতে:
এই টুলটি আপনার এক্সেল রিবনে যোগ করার সাথে সাথে, ট্যাবগুলিকে বর্ণমালাকরণ করা হয় একটি একক বোতাম ক্লিকের মাধ্যমে, ঠিক যেমনটি হওয়া উচিত!<3
আপনি যদি এক্সেলের জন্য এটি এবং আরও 70+ পেশাদার সরঞ্জামগুলি অন্বেষণ করতে আগ্রহী হন তবে আমাদের আলটিমেট স্যুটের একটি ট্রায়াল সংস্করণ এখানে ডাউনলোডের জন্য উপলব্ধ৷
আমি ধন্যবাদ জানাই আপনি পড়ার জন্য এবং আগামী সপ্তাহে আমাদের ব্লগে আপনাকে দেখতে আশা করি!
