فرز الأوراق في كتاب

وصف

إذا كان عدد علامات التبويب في كتابك يقترب من عدة عشرات، فستكون هناك رغبة عاجلا أم آجلا في التنفيذ فرز الأوراق في كتاب ، وترتيبها أبجديا. لا تسمح لك أدوات Excel القياسية بالقيام بذلك، لذا دعنا نكتب ماكرو بسيط للقيام بذلك.

VBA رمز الماكرو

افتح القائمة الخدمة - ماكرو - المحرر Visual Basic (Tools - Macro - Visual Basic Editor) , أدخل الوحدة النمطية VBA (قائمة طعام Inser - Module ) وانسخ هذا النص هناك:

Sub SortSheets()
  'moonexcel.com.ua
  Dim I As Integer, J As Integer

    For I = 1 To Sheets.Count - 1
        For J = I + 1 To Sheets.Count
            If UCase(Sheets(I).Name) > UCase(Sheets(J).Name) Then
                Sheets(J).Move Before:=Sheets(I)
            End If
        Next J
    Next I
    
    MsgBox " تم فرز علامات التبويب من الألف إلى الياء "
End Sub

يمكن الآن تشغيل هذا الماكرو من القائمة الخدمة - ماكرو - وحدات الماكرو (Tools - Macro - Macros) ، وسوف يقوم بفرز كافة الأوراق الموجودة في المصنف الحالي بسرعة.

مقالات حول الموضوع:

• دمج المصنفات (CombineWorkbooks)
• - التنقل السريع بين صفحات الكتاب