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

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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز
المشرف المتميز
المراقب المتميز
المدير المتميز
الموضوع المتميز
القسم المتميز
Excelawy لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة YasserKhalil الدليل المحاسبى الموحد اكسيل اسئله واجابات




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





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

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



24-04-2018 10:44 مساء
نصر الإيمان
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 222
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 7
يتابعونه : 2
قوة السمعة : 521
الاعجاب : 165
 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
المشاركات : 680
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 30
قوة السمعة : 3394
الاعجاب : 1094
 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، نصر الإيمان،


توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله


25-04-2018 07:17 صباحا
مشاهدة مشاركة منفردة [2]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5247
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 15
يتابعهم : 0
يتابعونه : 346
قوة السمعة : 15106
الاعجاب : 5657
 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
المشاركات : 680
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 30
قوة السمعة : 3394
الاعجاب : 1094
 offline 
look/images/icons/i1.gif ترتيب اوراق العمل ابجديا
جزاك الله كل خير استاذ ياسر ولك بمثل ما دعوت لنا

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


توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله


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






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

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




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


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





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
اكسل vba ترحيل البيانات اتوماتيكيا الى عدد غير محدود من اوراق العمل بطريقة سهله وسريعه emad ghazi
16 4194 ابو مينا
كود لعمل HyperLink للربط بين جميع اوراق العمل داخل ملف - أكاديمية الصقر للتدريب الصقر
13 965 الترياق
لاول مرة على اليوتيوب يوزرفورم كامل للحفظ والبحث والحذف والتعديل فى كل اوراق العمل اكسيل vba emad ghazi
16 585 hzaiem2003
اكسل vbaحماية الخلايا التى تحتوى على معادلات فى كل اوراق العمل دفعة واحدة emad ghazi
4 234 med0031
اكسل vbaجصريا فورم بحث وتعديل البيانات فى جميع اوراق العمل(شيتات الاكسل ) بطريقة سهلة وسريعة emad ghazi
21 883 S.Dreat

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


 







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



الساعة الآن 01:55 مساء

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