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