انتقل إلى المحتوى الرئيسي

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

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

قم بفرز أوراق العمل بترتيب أبجدي / أبجدي رقمي باستخدام رمز VBA
فرز أوراق العمل بترتيب أبجدي / أبجدي رقمي باستخدام Kutools for Excel


قم بفرز أوراق العمل بترتيب أبجدي / أبجدي رقمي باستخدام رمز VBA

يوجد ماكرو لفرز أوراق العمل حسب ألفا منشورة في مركز دعم Microsoft. يمكننا تطبيقه بالخطوات التالية:

1.  اضغط باستمرار ALT + F11 مفاتيح ، ويفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2.  انقر إدراج > وحدة، ثم قم بلصق الماكرو التالي في ملف نافذة الوحدة.

VBA: فرز الأوراق بترتيب أبجدي / أبجدي رقمي

Sub SortWorkBook()
'Updateby20140624
Dim xResult As VbMsgBoxResult
xTitleId = "KutoolsforExcel"
xResult = MsgBox("Sort Sheets in Ascending Order?" & Chr(10) & "Clicking No will sort in Descending Order", vbYesNoCancel + vbQuestion + vbDefaultButton1, xTitleId)
For i = 1 To Application.Sheets.Count
    For j = 1 To Application.Sheets.Count - 1
        If xResult = vbYes Then
            If UCase$(Application.Sheets(j).Name) > UCase$(Application.Sheets(j + 1).Name) Then
                Sheets(j).Move after:=Sheets(j + 1)
            End If
            ElseIf xResult = vbNo Then
                If UCase$(Application.Sheets(j).Name) < UCase$(Application.Sheets(j + 1).Name) Then
                    Application.Sheets(j).Move after:=Application.Sheets(j + 1)
            End If
        End If
    Next
Next
End Sub

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


فرز أوراق العمل بترتيب أبجدي / أبجدي رقمي باستخدام Kutools for Excel

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

قبل التطبيق كوتولس ل إكسيلالرجاء قم بتنزيله وتثبيته أولاً.

1. انقر كوتولس بلس > ورقة العمل > فرز الأوراق. انظر لقطة الشاشة:

2. في فرز الأوراق في مربع الحوار ، حدد نوع الفرز الذي تريده في الجزء الأيمن ، مثل نوع ألفا, فرز ألفا الرقمي، ثم انقر فوق OK زر. انظر لقطة الشاشة:

ثم يتم فرز جميع أوراق العمل بناءً على نوع الفرز المحدد. انظر لقطة الشاشة:

أوراق فرز المستندات 6

كوتولس ل إكسيل's فرز الأوراق يمكن للأداة إعادة ترتيب جميع أوراق العمل في المصنف النشط بسرعة. يدعم العديد من أنواع الفرز ، بما في ذلك نوع ألفا, فرز ألفا الرقمي, فرز اللون و عكس. بالإضافة إلى ذلك ، يمكنك أيضًا تحريك أوراق العمل لأعلى / لأسفل ، وإعادة تعيين الفرز.

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


عرض توضيحي: قم بفرز جميع أوراق العمل بترتيب أبجدي / أبجدي رقمي


مقالة ذات صلة:

فرز علامات تبويب ورقة العمل حسب اللون

أفضل أدوات إنتاجية المكتب

🤖 مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!

Comments (81)
Rated 5 out of 5 · 2 ratings
This comment was minimized by the moderator on the site
Grazie, ha funzionato perfettamente e mi ha risparmiato un sacco di lavoro. Complimenti
Rated 5 out of 5
This comment was minimized by the moderator on the site
Bom dia a macro funcionou porém com uma falha, veja no exemplo:
Abas (ANEXO 1, ANEXO 10, ANEXO 100, ANEXO 2, ANEXO 20)
Em uma planilha com os anexos acima ele organiza exatamente como está acima
Ele respeita a ordem somente a cada 10

Alguém sabe como corrigir? Olhei no font da macro mas não encontrei o problema
This comment was minimized by the moderator on the site
Macro qui marche parfaitement, en 30s c'est fait. Merci beaucoup
Rated 5 out of 5
This comment was minimized by the moderator on the site
Does anyone know how I would negate text from this macro? for example if my sheets were named "cafe 1st floor" and "kitchen 2nd floor" but id like to get rid of "cafe" and "kitchen"
thank you!
This comment was minimized by the moderator on the site
not working if your sheet was number ex: 1, 2, 10 12,
after sort: 1, 10, 12, 2
This comment was minimized by the moderator on the site
Hi Imd,
Do you mean all your sheet names are numbers and want to sort them ascending or descending? You can try the below VBA.

Sub Test1()

Dim i As Integer, j As Integer

For i = 1 To Sheets.Count

For j = 1 To Sheets.Count - 1

If Val(Replace(UCase(Sheets(j).Name), "SHEET", "")) > Val(Replace(UCase(Sheets(j + 1).Name), "SHEET", "")) Then Sheets(j).Move After:=Sheets(j + 1)

Next j

Next i

End Sub
This comment was minimized by the moderator on the site
Thank you for the macro !!!
This comment was minimized by the moderator on the site
Thank you for your help, very much appreciated...
This comment was minimized by the moderator on the site
I don't know VBA at all but your instructions worked perfectly. Thank you so much!
This comment was minimized by the moderator on the site
Thank you :)
This comment was minimized by the moderator on the site
Very helpful :) Thank you!
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations