logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
Hatem Eissa hassona229-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة اكسيل مشاريع جاهزه



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





22-12-2018 09:50 صباحاً
بسم الله الرحمن الرحيم

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

اليكم الكود المستخدم داخل الملف

CODE
Sub Yasser()
    Dim Sh As Worksheet, Rng1, Rng2, Targt, rw, xx
    Targt = Sheet2.Range("H1").Value
    Sheet2.Range("A3:F" & Sheet2.Cells(Rows.Count, 2).End(xlUp).Row + 1).ClearContents
    For Each Sh In Worksheets
        xx = Sh.UsedRange.Value: rw = 0
        ss = Sh.UsedRange.Address
        ReDim Y(1 To 200000, 1 To 6)
        If (Sh.Name) <> "Sheet2" Then
            For Each Rng1 In xx
                If IsNumeric(Rng1) Then
                    For Each Rng2 In xx
                        If IsNumeric(Rng2) Then
                            If Rng1 = 0 Or Rng2 = 0 Then GoTo 86
                            If (Rng1 * Rng2) = Targt Then
                                rw = rw + 1: Y(rw, 1) = "ضرب": Y(rw, 2) = Rng1: Y(rw, 3) = Rng2
                                Y(rw, 4) = Rng1 & " * " & Rng2: Y(rw, 5) = Rng1 * Rng2: Y(rw, 6) = Sh.Name
                            End If
                            If Rng1 / Rng2 = Targt Then
                                rw = rw + 1: Y(rw, 1) = "قسمة": Y(rw, 2) = Rng1: Y(rw, 3) = Rng2
                                Y(rw, 4) = Rng1 & " / " & Rng2: Y(rw, 5) = Rng1 / Rng2: Y(rw, 6) = Sh.Name
                            End If
                            If Rng1 + Rng2 = Targt Then
                                rw = rw + 1: Y(rw, 1) = "جمع": Y(rw, 2) = Rng1: Y(rw, 3) = Rng2
                                Y(rw, 4) = Rng1 & " + " & Rng2: Y(rw, 5) = Rng1 + Rng2: Y(rw, 6) = Sh.Name
                            End If
                            If Rng1 - Rng2 = Targt Then
                                rw = rw + 1: Y(rw, 1) = "طرح": Y(rw, 2) = Rng1: Y(rw, 3) = Rng2
                                Y(rw, 4) = Rng1 & " - " & Rng2: Y(rw, 5) = Rng1 - Rng2: Y(rw, 6) = Sh.Name
                            End If
                        End If
86                  Next Rng2
                End If
            Next Rng1
        End If
        If rw > 0 Then Sheet2.Cells(Rows.Count, 1).End(xlUp)(2, 1).Resize(rw, 6).Value = Y()
    Next Sh
    Sheet2.Range("A2", Sheet2.Cells(Sheet2.Rows.Count, "F").End(xlUp)).Sort _
            Key1:=Sheet2.Range("A2"), Order1:=xlDescending, Header:=xlYes
    MsgBox "تم جلب كل الاحتمالات من جميع الشيتات المحددة"
End Sub



لتحميل الملف اضغط هنا

تحياتي
81
 
 


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


توقيع :Yasser Elaraby
663013020

look/images/icons/i1.gif جميع الاحتمالات الخاصة برقم معين داخل جميع شيتات الملف
  22-12-2018 10:05 صباحاً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10529
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36759
الاعجاب : 186
بارك الله فيك أخي الحبيب ياسر العربي وجزاك الله خيراً
وحشتنا أعمالك يا كبير




look/images/icons/i1.gif جميع الاحتمالات الخاصة برقم معين داخل جميع شيتات الملف
  22-12-2018 10:30 صباحاً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1332
الجنس :
الدعوات : 13
قوة السمعة : 10066
الاعجاب : 67
موقعي : زيارة موقعي
المشاركة الأصلية كتبت بواسطة: YasserKhalil بارك الله فيك أخي الحبيب ياسر العربي وجزاك الله خيراً
وحشتنا أعمالك يا كبير
حبيبي ابو البراء تسلم

بس اعمال ايه ياعم انت عارفني مليش في السكة دي 121



توقيع :Yasser Elaraby
663013020

look/images/icons/i1.gif جميع الاحتمالات الخاصة برقم معين داخل جميع شيتات الملف
  22-12-2018 11:26 صباحاً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 27-08-2017
رقم العضوية : 219
المشاركات : 169
الدولة : سورية
الجنس :
تاريخ الميلاد : 10-2-1968
قوة السمعة : 280
الاعجاب : 0
جزاكم الله خيرا




look/images/icons/i1.gif جميع الاحتمالات الخاصة برقم معين داخل جميع شيتات الملف
  22-12-2018 02:07 مساءً   [4]
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
الدولة : مصر
الجنس :
تاريخ الميلاد : 1-9-1995
الدعوات : 5
قوة السمعة : 10861
الاعجاب : 6
موقعي : زيارة موقعي
الله ينور يأستاذنا مبدع فى أعمالك على الدوام
ربنا يزيدك ياغالى 81




look/images/icons/i1.gif جميع الاحتمالات الخاصة برقم معين داخل جميع شيتات الملف
  22-12-2018 04:16 مساءً   [5]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1309
الدولة : مصر
الجنس :
تاريخ الميلاد : 4-7-1990
الدعوات : 59
قوة السمعة : 4570
الاعجاب : 0
موقعي : زيارة موقعي
يااااااااااااااااااااه يا عبد الصمد نسيت انك معايا يا راجل biggrin2
الموقع واخد مننا خالص كل شغلك تطوير فيه ونسينا

وحشتنا يا راجل ووحشتنا اعمالك

بارك الله فيك



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

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

look/images/icons/i1.gif جميع الاحتمالات الخاصة برقم معين داخل جميع شيتات الملف
  23-12-2018 12:34 صباحاً   [6]
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2018
رقم العضوية : 4794
المشاركات : 477
الجنس :
تاريخ الميلاد : 1-4-1980
قوة السمعة : 882
الاعجاب : 8
عمل رائع استاذ ياسر بارك الله فيك




look/images/icons/i1.gif جميع الاحتمالات الخاصة برقم معين داخل جميع شيتات الملف
  30-12-2018 06:56 مساءً   [7]
معلومات الكاتب ▼
تاريخ الإنضمام : 01-12-2017
رقم العضوية : 2039
المشاركات : 12
الجنس :
تاريخ الميلاد : 1-1-1981
قوة السمعة : 34
الاعجاب : 0
شكراً على المجهود الرائع




look/images/icons/i1.gif جميع الاحتمالات الخاصة برقم معين داخل جميع شيتات الملف
  30-12-2018 10:54 مساءً   [8]
معلومات الكاتب ▼
تاريخ الإنضمام : 16-11-2018
رقم العضوية : 9154
المشاركات : 152
الدولة : مصر
الجنس :
قوة السمعة : 206
الاعجاب : 0
موقعي : زيارة موقعي
جزاك الله خيرا




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




الكلمات الدلالية
الملف ، شيتات ، جميع ، داخل ، معين ، الخاصة ، برقم ، الاحتمالات ، جميع ،









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

الساعة الآن 12:05 AM