اعلن هنا
أكاديمية الصقر للتدريب
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



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





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

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



24-04-2018 10:44 مساء
نصر الإيمان
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 144
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 3
يتابعونه : 1
قوة السمعة : 369
الاعجاب : 97
 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
المشاركات : 303
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 16
قوة السمعة : 1871
الاعجاب : 477
 Online 
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
المشاركات : 3938
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 295
قوة السمعة : 11119
الاعجاب : 3943
 Online 
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
المشاركات : 303
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 16
قوة السمعة : 1871
الاعجاب : 477
 Online 
look/images/icons/i1.gif ترتيب اوراق العمل ابجديا
جزاك الله كل خير استاذ ياسر ولك بمثل ما دعوت لنا

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




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






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

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




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


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





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
طلب كود لنسخ اوراق العمل ووضعهم في ملف بدون الماكرو و المعادلات زياد عبد الجليل
8 76 YasserKhalil
كود لعمل HyperLink للربط بين جميع اوراق العمل داخل ملف - أكاديمية الصقر للتدريب الصقر
5 588 بكار للأبد
ترحيل البيانات الى اى عدد من اوراق العمل من خلال اليوزرفورم DATA ENTRY USERFORM emad ghazi
5 390 تحسين علي
اكسل vba ترحيل البيانات اتوماتيكيا الى عدد غير محدود من اوراق العمل بطريقة سهله وسريعه emad ghazi
4 2479 karwan
اكسل vba حذف اوراق العمل الفارغة بطريقة سهلة وسريعة emad ghazi
5 837 emad ghazi

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


 







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



الساعة الآن 03:50 مساء

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