اعلن هنا
أكاديمية الصقر للتدريب
أعلن هنا
أعلن هنا
أعلن هنا
أعلن هنا



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





ترتيب اوراق العمل ابجديا

السلام عليكم ورحمة الله وبركاته،، إذاك كان لديك ملف اكسل به عدة أوراق هذه الأوراق ليست مرتبه مثلا : ورقه 1 ،ورقه 6 ، ورق ..



24-04-2018 10:44 مساء
نصر الإيمان
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 118
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 3
يتابعونه : 1
قوة السمعة : 333
الاعجاب : 79
 offline 
السلام عليكم ورحمة الله وبركاته،،
إذاك كان لديك ملف اكسل به عدة أوراق هذه الأوراق ليست مرتبه
مثلا : ورقه 1 ،ورقه 6 ، ورقه3 ، ورقه 5 ،ورقه 4 ، ورقه2
وتريد ترتيبهم بطريقه منظمه 
ليكونو : ورقه 1 ،ورقه2، ورقه3،ورقه4 ،ورقه5، ورقه6
إستخدم الكود الأتي :عن طريق إدراج موديول ونسخ الكود التالي اليه:

 
Sub ترتيب_الأوراق()
Dim Sort_Mode_Descending As Boolean
Dim No_of_Sheets As Integer
Dim Outer_Loop As Integer
Dim Inner_Loop As Integer
No_of_Sheets = Sheets.Count
'Change Flag As appropriate
Sort_Mode_Descending = False





For Outer_Loop = 1 To No_of_Sheets
        For Inner_Loop = 1 To Outer_Loop
               If Sort_Mode_Descending = True Then
                If UCase(Sheets(Outer_Loop).Name) > UCase(Sheets(Inner_Loop).Name) Then
                                Sheets(Outer_Loop).Move Before:=Sheets(Inner_Loop)
                End If
           End If
          If Sort_Mode_Descending = False Then
            If UCase(Sheets(Outer_Loop).Name) < UCase(Sheets(Inner_Loop).Name) Then
                        Sheets(Outer_Loop).Move Before:=Sheets(Inner_Loop)
            End If
          End If
 
        Next Inner_Loop
            Next Outer_Loop
 End Sub


أثارت هذه المشاركة إعجاب: محمد الدسوقى، ali mohamed ali، YasserKhalil، Eslam Abdullah، عدنان التميمي، زيزو العجوز، ahmed mahmoud mohamed،





25-04-2018 03:35 صباحا
مشاهدة مشاركة منفردة [1]
ali mohamed ali
menu_open
عضو متميز
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 188
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 8
قوة السمعة : 1243
الاعجاب : 270
 offline 
look/images/icons/i1.gif ترتيب اوراق العمل ابجديا
بارك الله فيك استاذى نصر احسنت
ولإثراء الموضوع هذا كود اخر
Sub SortWorksheets()
Dim i As Integer
Dim j As Integer
Dim iAnswer As VbMsgBoxResult
iAnswer = MsgBox("Sort Sheets in Ascending Order?" & Chr(10) _
& "Clicking No will sort in Descending Order", _
vbYesNoCancel + vbQuestion + vbDefaultButton1, "Sort Worksheets")
For i = 1 To Sheets.Count
For j = 1 To Sheets.Count - 1
If iAnswer = vbYes Then
If UCase$(Sheets(j).Name) > UCase$(Sheets(j + 1).Name) Then
Sheets(j).Move After:=Sheets(j + 1)
End If
ElseIf iAnswer = vbNo Then
If UCase$(Sheets(j).Name) < UCase$(Sheets(j + 1).Name) Then
Sheets(j).Move After:=Sheets(j + 1)
End If
End If
Next j
Next i
End Sub

أثارت هذه المشاركة إعجاب: ظفر الله عسكر، YasserKhalil، Eslam Abdullah، نصر الإيمان،




25-04-2018 07:17 صباحا
مشاهدة مشاركة منفردة [2]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 3298
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 270
قوة السمعة : 9129
الاعجاب : 3091
 offline 
look/images/icons/i1.gif ترتيب اوراق العمل ابجديا
بارك الله فيكم إخواني الكرام وجزاكم الله خير الجزاء في الدنيا والآخرة

أثارت هذه المشاركة إعجاب: Eslam Abdullah، ali mohamed ali، نصر الإيمان،




25-04-2018 12:40 مساء
مشاهدة مشاركة منفردة [3]
ali mohamed ali
menu_open
عضو متميز
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 188
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 8
قوة السمعة : 1243
الاعجاب : 270
 offline 
look/images/icons/i1.gif ترتيب اوراق العمل ابجديا
جزاك الله كل خير استاذ ياسر ولك بمثل ما دعوت لنا

أثارت هذه المشاركة إعجاب: نصر الإيمان،




25-04-2018 12:46 مساء
مشاهدة مشاركة منفردة [4]
نصر الإيمان
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 118
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 3
يتابعونه : 1
قوة السمعة : 333
الاعجاب : 79
 offline 
look/images/icons/i1.gif ترتيب اوراق العمل ابجديا
جزاكم الله خيرا ورزقكم الفردوس الأعلى من الجنة






25-04-2018 10:23 مساء
مشاهدة مشاركة منفردة [5]
عدنان التميمي
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 30-11-2017
رقم العضوية : 2033
المشاركات : 34
الجنس : ذكر
تاريخ الميلاد : 1-7-1971
يتابعهم : 4
يتابعونه : 0
قوة السمعة : 62
الاعجاب : 18
 offline 
look/images/icons/i1.gif ترتيب اوراق العمل ابجديا
بارك الله بيك

أثارت هذه المشاركة إعجاب: نصر الإيمان،




26-04-2018 03:22 مساء
مشاهدة مشاركة منفردة [6]
نصر الإيمان
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 118
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 3
يتابعونه : 1
قوة السمعة : 333
الاعجاب : 79
 offline 
look/images/icons/i1.gif ترتيب اوراق العمل ابجديا
الله يعزك اخي


أثارت هذه المشاركة إعجاب: عدنان التميمي،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
كود لعمل HyperLink للربط بين جميع اوراق العمل داخل ملف - أكاديمية الصقر للتدريب الصقر
5 498 بكار للأبد
ترحيل البيانات الى اى عدد من اوراق العمل من خلال اليوزرفورم DATA ENTRY USERFORM emad ghazi
5 265 تحسين علي
اكسل vba ترحيل البيانات اتوماتيكيا الى عدد غير محدود من اوراق العمل بطريقة سهله وسريعه emad ghazi
4 1997 karwan
اكسل vba حذف اوراق العمل الفارغة بطريقة سهلة وسريعة emad ghazi
5 670 emad ghazi
اخفاء و اظهار اوراق العمل بشرط كلمة حاجي توفيق
4 311 محمود الشريف

الكلمات الدلالية
ترتيب ، اوراق ، العمل ، ابجديا ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.



الساعة الآن 10:04 صباحا

أعلن هنا
أعلن هنا
أعلن هنا