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