ٹیوٹوریل دکھاتا ہے کہ آپ VBA کوڈ اور ورک بک مینیجر ٹول کا استعمال کرتے ہوئے کس طرح ایکسل ورک شیٹس کو حروف تہجی کی ترتیب میں تیزی سے ترتیب دے سکتے ہیں۔

Microsoft Excel ترتیب دینے کے متعدد تیز اور آسان طریقے فراہم کرتا ہے۔ حروف تہجی کی ترتیب میں کالم یا قطار۔ لیکن ایکسل میں ورک شیٹس کو دوبارہ ترتیب دینے کا صرف ایک طریقہ ہے - انہیں شیٹ ٹیب بار پر مطلوبہ پوزیشن پر گھسیٹیں۔ جب واقعی بڑی ورک بک میں حروف تہجی کے ٹیبز کی بات آتی ہے، تو یہ ایک طویل اور غلط طریقہ ہوسکتا ہے۔ وقت بچانے کا متبادل تلاش کر رہے ہیں؟ صرف دو موجود ہیں: VBA کوڈ یا تھرڈ پارٹی ٹولز۔

VBA کے ساتھ ایکسل میں ٹیبز کو حرف تہجی کیسے بنائیں

ذیل میں آپ کو ایکسل کو ترتیب دینے کے لیے تین VBA کوڈ کی مثالیں ملیں گی۔ صارف کی پسند کی بنیاد پر شیٹس چڑھتی، اترتی، اور کسی بھی سمت میں۔

اس بات کا مطلب ہے کہ آپ کو VBA کے ساتھ کچھ تجربہ ہے، ہم آپ کی ورک شیٹ میں میکرو شامل کرنے کے لیے صرف بنیادی اقدامات کا خاکہ پیش کریں گے:

<9 2> > Module .
1. VBA کوڈ کو کوڈ ونڈو میں چسپاں کریں۔
2. میکرو کو چلانے کے لیے F5 دبائیں۔

کے لیے۔ تفصیلی مرحلہ وار ہدایات، براہ کرم ملاحظہ کریں کہ ایکسل میں VBA کوڈ کیسے داخل اور چلایا جائے۔

ٹپ۔ اگر آپ میکرو کو مزید استعمال کے لیے رکھنا چاہتے ہیں، تو یقینی بنائیں کہ اپنی فائل کو ایک Excel macro-enabled workbook (.xlsm) کے طور پر محفوظ کریں۔

متبادل طور پر، آپ ہماری نمونہ الفابیٹائز ایکسل ٹیبز ورک بک ڈاؤن لوڈ کر سکتے ہیں، اگر اشارہ کیا جائے تو مواد کو فعال کر سکتے ہیں، اور وہاں سے براہ راست مطلوبہ میکرو چلا سکتے ہیں۔ ورک بک میں درج ذیل میکرو شامل ہیں:

• TabsAscending - شیٹس کو حروف تہجی کے مطابق A سے Z تک ترتیب دیں۔
• TabsDescending - شیٹس کو ترتیب دیں الٹا ترتیب، Z سے A تک۔
• AlphabetizeTabs - شیٹ ٹیبز کو دونوں سمتوں میں ترتیب دیں، چڑھتے یا اترتے ہوئے۔

نمونہ ورک بک ڈاؤن لوڈ اور کھولنے کے ساتھ اپنے ایکسل میں، اپنی ورک بک کو کھولیں جہاں آپ ٹیبز کو حروف تہجی بنانا چاہتے ہیں، Alt + F8 دبائیں، مطلوبہ میکرو کو منتخب کریں، اور چلائیں پر کلک کریں۔

ایکسل ٹیبز کو الف سے Z تک ترتیب دیں<15

یہ چھوٹا میکرو موجودہ ورک بک میں شیٹس کو صعودی حروفِ عددی ترتیب میں ترتیب دیتا ہے، پہلے ورک شیٹس جن کے نام نمبر سے شروع ہوتے ہیں، پھر شیٹس A سے Z تک۔

Sub TabsAscending() i = کے لیے 1 Application.Sheets.Count for j = 1 to Application.Sheets.Count - 1 If 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 تک ترتیب دیں

اگر آپ اپنی شیٹس کو حروفی عددی ترتیب سے نزولی (Z سے A، پھر عددی ناموں والی شیٹس) میں ترتیب دینا چاہتے ہیں، تو پھر استعمال کریں۔ مندرجہ ذیل کوڈ:

ذیلی ٹیبز ڈسیڈنگ() 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 تک ترتیب دیا گیا ہے۔ " اختتامی ذیلی

حروف تہجی کی ترتیب والے ٹیبز کو چڑھتے یا اترتے ہوئے

یہ میکرو آپ کے صارفین کو یہ فیصلہ کرنے دیتا ہے کہ دی گئی ورک بک میں ورک شیٹس کو الف سے Z تک یا الٹ ترتیب میں ترتیب دینے کا طریقہ۔

ایکسل VBA میں معیاری ڈائیلاگ باکس (MsgBox) صرف مٹھی بھر پہلے سے طے شدہ بٹنوں میں سے انتخاب کرنے کی اجازت دیتا ہے، ہم تین حسب ضرورت بٹنوں کے ساتھ اپنا فارم (UserForm) بنائیں گے: A to Z ، Z to A ، اور منسوخ کریں ۔

اس کے لیے، Visual Basic Editor کھولیں، This Workbook پر دائیں کلک کریں، اور Insert ><پر کلک کریں۔ 1> یوزر فارم ۔ اپنے فارم کو 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 to Z یا Z to A بٹن پر کلک کرتا ہے، ٹیبز کو ترتیب دیںصعودی حروف تہجی کی ترتیب (بطور ڈیفالٹ منتخب) یا نزولی حروف تہجی کی ترتیب؛ یا فارم بند کریں اور منسوخ کی صورت میں کچھ نہ کریں۔ یہ مندرجہ ذیل VBA کوڈ کے ساتھ کیا جاتا ہے، جسے آپ معمول کے مطابق Insert > Module کے ذریعے داخل کرتے ہیں۔

Sub AlphabetizeTabs() Dim SortOrder As Integer SortOrder = showUserForm If 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) End If End If Next Next End Sub Function showUserForm() بطور انٹیجر showUserForm = 0 لوڈ کریں ترتیب دیں ترتیب فارم ترتیب دیں .Show (1) showUserForm = SortOrderForm.Tag Unload SortOrderForm End Function

اگر آپ ابھی تک VBA کے ساتھ زیادہ آرام دہ نہیں ہیں، تو آپ آسانی سے ہماری سیمپل ورک بک کو حروف تہجی کے حساب سے ڈاؤن لوڈ کر سکتے ہیں، اسے اپنے ایکسل میں اپنی فائل کے ساتھ کھولیں جہاں آپ چاہیں ٹیبز کو ترتیب دینے کے لیے، اور اپنی ورک بک سے AlphabetizeTabs میکرو کو چلائیں:

ترجیحی ترتیب کا انتخاب کریں، بولیں، A سے Z<2 تک>، اور نتائج کا مشاہدہ کریں:

ٹپ۔ VBA کے ساتھ، آپ اپنی ایکسل ورک شیٹس کی کاپیاں بھی بنا سکتے ہیں۔ کوڈ یہاں دستیاب ہے: کیسےایکسل میں VBA کے ساتھ ڈپلیکیٹ شیٹ۔

الٹیمیٹ سویٹ کے ساتھ ایکسل ٹیبز کو حروف تہجی کے مطابق کیسے ترتیب دیا جائے

ہمارے الٹیمیٹ سویٹ فار ایکسل کے صارفین کو VBA کے ساتھ گھومنے پھرنے کی ضرورت نہیں ہے - ان کے پاس کثیر تعداد ہے۔ - فنکشنل ورک بک مینیجر ان کے اختیار میں:

آپ کے ایکسل ربن میں اس ٹول کو شامل کرنے کے ساتھ، حروف تہجی کے ٹیبز کو ایک بٹن کلک کے ساتھ کیا جاتا ہے، بالکل اسی طرح جیسا کہ ہونا چاہیے!

اگر آپ Excel کے لیے اس اور 70+ مزید پیشہ ورانہ ٹولز کو دریافت کرنے کے خواہشمند ہیں تو ہمارے الٹیمیٹ سویٹ کا آزمائشی ورژن یہاں ڈاؤن لوڈ کے لیے دستیاب ہے۔

میں شکریہ ادا کرتا ہوں آپ کو پڑھنے کے لیے اور امید ہے کہ آپ کو اگلے ہفتے ہمارے بلاگ پر ملیں گے!