السبت، 31 أغسطس 2019

اكسل vba : فرز وترتيب اوراق العمل فى الاكسل باسهل واسرع طريقة VBA code to Sort Worksheets in Excel




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

اهلا بكم متابعى موقع عالم الاوفيس
اكسل 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
وايضا يمكنك تحميل ملف العمل برابط مباشر على الميديا فاير من هنا
لمعرفة الية عمل الكود يرجى مشاهدة شرح الفيديو

هناك تعليقان (2):

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

    ردحذف

من نحن

authorمرحبا، أسمي عماد غازى وهذه مدونتي أسعى دائما لأقدم لكم أفضل المواضيع الخاصة بالاوفيس
المزيد عني →

التصنيفات

نموذج الاتصال

الاسم

بريد إلكتروني *

رسالة *

إجمالي مرات مشاهدة الصفحة