اكسل vba : فرز وترتيب اوراق العمل فى الاكسل باسهل واسرع طريقة




بسم الله الرحمن الرحيم

اهلا بكم متابعى موقع عالم الاوفيس
اكسل vba : فرز وترتيب اوراق العمل فى الاكسل باسهل واسرع طريقة
درس جديد وكود جديد من اكواد اكسل vba  نحتاج الية فى كثير من اعمالنا
إذا كنت تعمل مع الكثير من أوراق العمل في Excel ، فستعرف أن إدارتها وتنسيقها وترتيبها  يمكن أن تصبح مشكلة.
بمجرد حصولك على أكثر من ورقة عمل  (sheets )فى ملف العمل (worksheets)  ، ستحتاج إلى ترتيبها يدويًا.
اذا ناتى الى السؤال المهم
ما مدى سهولة وجود طريقة لفرز أوراق العمل في Excel   ؟.
على الرغم من عدم وجود طريقة معينة  يحمل في ثناياه عوامل للقيام بذلك ، ولكنك  يمكنك  عمل ذلك الامر  (بسهولة) من خلال استخدام VBA.

في هذا الدرس  ، سأقدم لك الكود البرمجى  والخطوات الدقيقة التي تحتاج إلى اتباعها لفرز أوراق العمل(sheets ) في Excel.

وايضا يمكنك تعديل الكود البرمجى  لفرز أوراق العمل بترتيب تصاعدي أو تنازلي.

كود VBA لفرز أوراق العمل في Excel
Sub SortWorksheetsTabs()

Application.ScreenUpdating = False

Dim ShCount As Integer, i As Integer, j As Integer

ShCount = Sheets.Count



For i = 1 To ShCount - 1

    For j = i + 1 To ShCount

        If UCase(Sheets(j).Name) < UCase(Sheets(i).Name) Then

            Sheets(j).Move before:=Sheets(i)

        End If

    Next j

Next i



Application.ScreenUpdating = True

End Sub
وايضا يمكنك تحميل ملف العمل برابط مباشر على الميديا فاير من هنا
لمعرفة الية عمل الكود يرجى مشاهدة شرح الفيديو

Emad ghazi
كاتب المقالة
كاتب ومحرر اخبار اعمل في موقع عالم الاوفيس .

جديد قسم : اكسل متقدم

  1. الله يبارك فيك استاذ عماد هذا الكود راح يفدني كثير وكن محتاجوا من زمان

    ردحذف
  2. بارك الله بيك استاذ العزيز ما قصرت

    ردحذف