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

وصف

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

VBA رمز الماكرو

افتح القائمة الخدمة - ماكرو - المحرر Visual Basic (Tools - Macro - Visual Basic Editor) , أدخل وحدة VBA (القائمة Insertt - 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

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

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