كيفية فرز علامات التبويب ورقة العمل في الترتيب الأبجدي في إكسل

إذا كان لديك عدد كبير من أوراق العمل في مصنف Excel ، فقد يكون من الصعب العثور على ورقة عمل محددة. يؤدي تصنيف علامات تبويب ورقة العمل أبجديًا إلى تسهيل العثور على ما تبحث عنه.

بالإضافة إلى تنظيم علامات تبويب ورقة العمل الخاصة بك من خلال تطبيق الألوان عليها ، يمكنك أيضًا ترتيبها أبجديًا أو أبجديًا ، طالما أنك قد طبقت أسماء مخصصة على أوراق العمل الخاصة بك. لسوء الحظ ، لا يتم ترتيب علامات تبويب ورقة العمل أبجديًا في Excel ، ولكن يمكنك إضافة ماكرو إلى المصنف الخاص بك مما يسمح لك بفرز علامات التبويب بترتيب تصاعدي أو تنازلي. سنوضح لك كيفية إضافة ماكرو متوفر على موقع دعم Microsoft إلى مصنف Excel الخاص بك والذي يقوم بفرز علامات تبويب ورقة العمل الخاصة بك.

للبدء ، اضغط على Alt + F11 لفتح Microsoft Visual Basic لمحرر Applications (VBA). ثم ، انتقل إلى إدراج> الوحدة النمطية.

قم بنسخ الماكرو التالي ولصقه من Microsoft في إطار الوحدة النمطية الذي يعرض.

Sub Sort_Active_Book () Dim i As Integer Dim Dim As Integer Dim iAnswer As VbMsgBoxResult "مطالبة المستخدم باسم الاتجاه الذي يرغبون في" فرز أوراق العمل. "iAnswer = MsgBox (" فرز الأوراق حسب ترتيب تصاعدي؟ "& Chr (10) _ & "النقر فوق لا سيتم الفرز بترتيب تنازلي" ، _ vbYesNoCancel + vbQuestion + vbDefaultButton1 ، "فرز أوراق العمل") لـ i = 1 إلى Sheets.Count لـ j = 1 إلى Sheets.Count - 1 "إذا كان الجواب نعم ، قم بالفرز في ترتيب تصاعدي. إذا كان iAnswer = vbYes ثم If UCase $ (Sheets (j) .Name)> UCase $ (Sheets (j + 1) .Name) ثم Sheets (j) .Move After: = Sheets (j + 1) End If "If الإجابة هي "لا" ، ثم اكتب بترتيب تنازلي. "ElseIf iAnswer = vbNo Then If UCase $ (Sheets (j) .Name) < UCase$(Sheets(j + 1).Name) Then                Sheets(j).Move After:=Sheets(j + 1)             End If          End If       Next j    Next i End Sub

يقوم محرر VBA تلقائيًا بتسمية كل وحدة برقم في النهاية ، مثل Module1 ، Module2 ، إلخ. يمكنك ببساطة قبول الاسم الافتراضي للوحدة. ومع ذلك ، إذا كنت تخطط لإضافة وحدات ماكرو أخرى إلى المصنف الخاص بك ، فمن الأفضل إعادة تسمية كل وحدة حتى تعرف ما هي. سنقوم بإعادة تسمية وحدتنا لنوضح لك كيف.

لإعادة تسمية الوحدة النمطية ، حدد النص في المربع الاسم للوحدة النمطية ضمن خصائص في الجزء الأيسر.

اكتب اسمًا للوحدة النمطية في مربع الاسم واضغط على Enter. لاحظ أن اسم الوحدة لا يمكن أن يحتوي على مسافات.

يتغير اسم الوحدة النمطية في قائمة الوحدات النمطية ضمن Project في الجزء الأيسر.

أغلق محرر VBA بالانتقال إلى ملف> إغلاق ثم العودة إلى Microsoft Excel.

الآن ، سنقوم بتشغيل الماكرو لفرز علامات التبويب الخاصة بنا. اضغط على Alt + F8 للوصول إلى قائمة وحدات الماكرو الموجودة في مربع الحوار Macro. حدد الماكرو في القائمة (في حالتنا هناك ماكرو واحد فقط) ، وانقر فوق "تشغيل".

يعرض مربع الحوار التالي ، مما يسمح لك باختيار ما إذا كنت تريد فرز أوراق العمل الخاصة بك بترتيب تصاعدي أو تنازلي. نريد تصنيفها بترتيب تصاعدي ، لذلك نضغط على "نعم".

يتم ترتيب علامات تبويب ورقة العمل بترتيب أبجدي.

يعد الماكرو الذي أضفته جزءًا من المصنف الخاص بك الآن ، ولكن عند حفظه ، من المحتمل أن ترى مربع الحوار التالي. هذا لأنك قمت بحفظ المصنف كملف .xlsx ، وهو تنسيق مصنف Excel عادي لا يتضمن وحدات ماكرو. لتضمين وحدات الماكرو في المصنف الخاص بك ، وتكون قادراً على تشغيلها ، يجب حفظ المصنف كمصنف تمكين الماكرو أو ملف .xlsm. للقيام بذلك ، انقر فوق "لا" في مربع الحوار هذا.

يعرض مربع الحوار Save As. انتقل إلى المكان الذي ترغب في حفظ المصنف الذي تم تمكين الماكرو فيه ، إذا لم تكن موجودًا بالفعل في هذا المجلد. حدد "Excel Macro-Enabled Workbook (* .xlsm)" من القائمة المنسدلة "حفظ كنوع".

انقر فوق "حفظ".

إذا لم تقم بحفظ المصنف كمصنف تمكين الماكرو (ملف .xlsm) ، سيتم حذف الماكرو الذي أضفته. قد ترغب في حذف إصدار .xlsx من المصنف الخاص بك حتى لا تنس استخدام إصدار .xlsm من المصنف الخاص بك إذا كنت ترغب في إضافة المزيد من علامات تبويب ورقة العمل وفرزها مرة أخرى باستخدام الماكرو. يمكنك دائمًا حفظ المصنف كملف .xlsx مرة أخرى إذا كنت لا تريد استخدام وحدات الماكرو بعد الآن.