logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
abdelmoniem ismail لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة توزيع المعلمين في جدول الحصص حسب النصاب بشروط اكسيل مشاريع جاهزه



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





24-04-2018 10:44 مساءً
السلام عليكم ورحمة الله وبركاته،،
إذاك كان لديك ملف اكسل به عدة أوراق هذه الأوراق ليست مرتبه
مثلا : ورقه 1 ،ورقه 6 ، ورقه3 ، ورقه 5 ،ورقه 4 ، ورقه2
وتريد ترتيبهم بطريقه منظمه
ليكونو : ورقه 1 ،ورقه2، ورقه3،ورقه4 ،ورقه5، ورقه6
إستخدم الكود الأتي :عن طريق إدراج موديول ونسخ الكود التالي اليه:


CODE
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




look/images/icons/i1.gif ترتيب اوراق العمل ابجديا
  25-04-2018 03:35 صباحاً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1765
الدولة : مصر
الجنس :
الدعوات : 2
قوة السمعة : 9685
الاعجاب : 25
بارك الله فيك استاذى نصر احسنت
ولإثراء الموضوع هذا كود اخر
CODE
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

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


توقيع :ali mohamed ali


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

look/images/icons/i1.gif ترتيب اوراق العمل ابجديا
  25-04-2018 07:17 صباحاً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10529
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36752
الاعجاب : 184
بارك الله فيكم إخواني الكرام وجزاكم الله خير الجزاء في الدنيا والآخرة




look/images/icons/i1.gif ترتيب اوراق العمل ابجديا
  25-04-2018 12:40 مساءً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1765
الدولة : مصر
الجنس :
الدعوات : 2
قوة السمعة : 9685
الاعجاب : 25
جزاك الله كل خير استاذ ياسر ولك بمثل ما دعوت لنا



توقيع :ali mohamed ali


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

look/images/icons/i1.gif ترتيب اوراق العمل ابجديا
  25-04-2018 12:46 مساءً   [4]
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 449
الجنس :
تاريخ الميلاد : 29-12-1985
قوة السمعة : 1085
الاعجاب : 0
جزاكم الله خيرا ورزقكم الفردوس الأعلى من الجنة




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




look/images/icons/i1.gif ترتيب اوراق العمل ابجديا
  26-04-2018 03:22 مساءً   [6]
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 449
الجنس :
تاريخ الميلاد : 29-12-1985
قوة السمعة : 1085
الاعجاب : 0
الله يعزك اخي




اضافة رد جديد اضافة موضوع جديد



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
اكسل vbaحماية الخلايا التى تحتوى على معادلات فى كل اوراق العمل دفعة واحدة emad ghazi
5 2051 الراعدي
اخفاء جميع اوراق العمل خالد الشاعر
6 1372 hassona229
كود يوزرفورم وربطه بزر لادراج الزر في كل اوراق العمل لاستعراض كل اوراق العمل ابو طيبه
5 851 ابو طيبه
الترحيل فى الاكسيل ترحيل البيانات من اليومية الى اى عدد من اوراق العمل مع عماد غازى emad ghazi
7 1561 YasserKhalil
ترحيل البيانات اتوماتيكيا الى عدد محدود من اوراق العمل بطريقة سهله وسريعه حسين الحمادي
1 1331 حسين الحمادي

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









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

الساعة الآن 06:02 PM