طارق محمود

السلام عليكم أختنا الكريمة بالنسبة للملف : Copy of REPORT Quality Checker1.xls فالقسمة علي صفر لابد أن تنتج خطأ لتفادي ذلك إسبقيها بشرط :إذا كان المقسوم عليه صفرا فليكن الناتج صفرا وإلا إقسم أنظري المرفق REPORT Quality Checker2.rar

السلام عليكم أخي الكريم موضوع الأكواد سيأخذ بعض الوقت فرجاء الصبر لضيق وقت رمضان ولكن كبداية لحساب أفضل خطف مثلا إليك هذه الدالة (تم تفصيلها كما سيكون الحال للباقي) اسم الدالة best_khatf في المكان الذي تريد تكتب best_khatf(range) حيث الـ range هو ماستشير إليه بالماوس مثل الدوال الجاهزة بالإكسل الدالة Function best_khatf(x As Range) As Double For Each s In x If WorksheetFunction.IsText(s) = False Then GoTo 100 Next best_khatf = 0 GoTo 200 100 best_khatf = WorksheetFunction.Max(x) 200 End Function ومرفق لملف به الدالة مطبقة sphinx8.rar

السلام عليكم أخي الحبيب تفضل شرح الكود في المرفق _____3.rar

السلام عليكم كل عام وأنت وجميع المسلمين بخير أصبح الجدول يحتوي علي العديد من المعادلات والحل الأفضل الآن بعد الطلب الجديد سيكون بالأكواد أسرع وايسر ولكن مؤقتا بالمعادلات ستضطر لإضافة أعمدة أخري وتطيل في المعادلات أكثر (لوضع شروط أخري) عموما أنظر المرفق - الورقة الأولي ، غير كامل ولكن به بداية الحل بالمعادلات جدول خطف2.rar

السلام عليكم أخي الكريم كل عام وأنت بخير واضح من إسمك المستعار أنك بتحب رمضان قوي تفضل المرفق ضع المبالغ في العمود A ستجد ترتيب دخول المبلغ في العمود C وكذلك ترتيب أوتوماتيك حسب الإدخال مبالغ2.rar

السلام عليكم أخي الكريم سمارا ماذا تعني الأرقام داخل الجدول مثلا المادة الأول الثاني الثالث الرابع الخامس السادس القرآن الكريم 7 7 7 6 3 3 يعني المعلم رقم 7 ، 7 ، 7 ، 6 ، 3 ، 3 أم رقم الفصل أم ماذا وأين أجد مايدل علي المعلم أحمد مثلا ذو اللون الأحمر؟ أخي أيسم مرفق بتنسيق 2003 لعلك تري مالم أراه محاولة.rar

السلام عليكم تفضل المرفق NASSER2.rar

السلام عليكم رائع ، هذه الدالة SUMPRODUCT هي المناسبة فعلا ولزيادة التسهيل والإستفادة من العمودين H،I كان هناك بعض الإختلاف في نوع الطالب ، خاصة أنثي مرة بالهمزة أنثي ومرة بدونها انثي وحدت لك ذلك ثم سميت بعض المجالات في الورقة الأولي كالتالي الفصل class =$D$2:$D$1538 الصف grade =$C$2:$C$1538 القيد داخلى ـ خارجى in_out =$H$2:$H$1538 النوع sex =$E$2:$E$1538 وبهذا كان نسخ المعادلة سهل وكلها من الورقة الأولي ولاداعي لإعادة نسخه من أوراق التوزيع أنظر المرفق hhh88.rar

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

السلام عليكم ضع شرطا إضافيا في الخلية L3 =IF(ISNA(MATCH(A3,Sheet1!$K$4:$K$16,0)),MATCH("X",Sheet1!$K$4:$K$16,0),MATCH(A3,Sheet1!$K$4:$K$16,0)) بدلا من =MATCH(A3,Sheet1!$K$4:$K$16,0) ثم تنسخها لباقي العمود L كما بالمرفق sphinx9.rar

السلام عليكم رقم القرعة في Sheet1 به خطأ ، لايوجد 5،6 أي أن عدد اللاعبين 13 وليس 15 أحدهم رسب بالتالي عندك 12 ترتيب فقط في الورقة الثانية، الخلية L15 بها المعادلة التالية =MATCH(A15,Sheet1!$K$4:$K$16,0) والتي يبحث بها عن الترتيب الـ 13 (قيمة A15 اللي غير موجود أساسا في الورقة الأولي) لذلك يعطي خطأ

ماأكثر الحيل بالإكسل أسهلها أنك ممكن تحدد مكان للطباعة بالشكل الذي تريد غير مكان إدخال مكان البيانات يعني ممكن يكون في ورقة أخري أو في نفس الورقة وبينهما علاقات شرطية إذا كان كذا ، تساوي كذا أنظر المرفق Print_Same_place.rar

السلام عليكم عفوا لم أنتبه للمرفق في هذه المشاركة من قبل تفضل المطلوب مع تلوين أوتوماتيك (تنسيق شرطي) بالأحمر لحالة الفشل في أي منهما test3.rar

بالجداول المحورية تستطيع عمل مجموعات أيضا مثل مجموعات الإحصاء (الفئات) أي مثلا من وزن 50 إلي 56 مجموعة ومن كذا إلي كذا … لكن يشترط أن يكون عمود الفئات لايحتوي إلا أرقام أي في حالتنا هنا لابد من تغيير +105 إلي 110 مثلا أنظر أيضا المرفق التالي sphinx4.rar

السلام عليكم أخي خالد تفضل المرفق أنتظر رأيك بخصوص الجداول المحورية sphinx3.rar

السلام عليكم أخي الكريم المرفق به إكسل + فيديو لتوضيح كيفية عمل الطلب الأول بالجداول المحورية Pivot Table الطلب الثاني ، لم أفهمه لو عدد المجموعات أقل كنت فهمت أنك تريد تجميع اللاعبين اللي في نفس المجموعة بس انت وضعت لكل لاعب مجموعة منفصلة عموما لو انت كنت مخطيء والمفروض أن يكون في المجموعة أكثر من لاعب , تستطيع عمل ذلك بنفس الطريقة المشروحة في الطلب الأول بالجداول المحورية Pivot Table تفضل المرفق sphinx2.rar

السلام عليكم مرحبا بك أخي توفيق من فضلك حمل الملف علي الموقع أوفيسنا ، بعد ضغطه باحد برامج الضغط Winzip Winrar

السلام عليكم يتضح من الصورة أنك غيرت أسماء الشيتات (ورقات العمل) مثلا Sheet28 أصبح إسمه كرافتة لذلك فالأفضل إستبدال السطر Sheets("Sheet" & i).Visible = xlSheetVeryHidden بالسطر Sheets( i).Visible = xlSheetVeryHidden

أخي الكريم الرجاء الرد إن كانت هذه الاجابه هي ماتريد لتعم الفائده على باقي الاعضاء و متصفحي الموضوع

السلام عليكم لمعرفة اماكن التحديث أوالخلايا المحدثة إضغط Ctrl-F للبحث عن الرمز [أو الرمز ] في الملف بالكامل وليس في الشييت فقط إن كان عددها قليل تذهب إليها وتعمل لها كوبي بيست قيمة فقط

السلام عليكم يمكن إستبدال الجزء الطويل التالي Sheet2.Visible = xlSheetVeryHidden Sheet3.Visible = xlSheetVeryHidden sheet4.Visible = xlSheetVeryHidden sheet5.Visible = xlSheetVeryHidden sheet6.Visible = xlSheetVeryHidden sheet7.Visible = xlSheetVeryHidden sheet8.Visible = xlSheetVeryHidden sheet9.Visible = xlSheetVeryHidden sheet10.Visible = xlSheetVeryHidden sheet11.Visible = xlSheetVeryHidden sheet12.Visible = xlSheetVeryHidden sheet13.Visible = xlSheetVeryHidden sheet14.Visible = xlSheetVeryHidden sheet16.Visible = xlSheetVeryHidden sheet16.Visible = xlSheetVeryHidden sheet17.Visible = xlSheetVeryHidden sheet18.Visible = xlSheetVeryHidden sheet19.Visible = xlSheetVeryHidden sheet20.Visible = xlSheetVeryHidden sheet21.Visible = xlSheetVeryHidden sheet22.Visible = xlSheetVeryHidden sheet23.Visible = xlSheetVeryHidden sheet24.Visible = xlSheetVeryHidden sheet25.Visible = xlSheetVeryHidden sheet26.Visible = xlSheetVeryHidden sheet27.Visible = xlSheetVeryHidden sheet28.Visible = xlSheetVeryHidden sheet29.Visible = xlSheetVeryHidden sheet30.Visible = xlSheetVeryHidden sheet31.Visible = xlSheetVeryHidden sheet32.Visible = xlSheetVeryHidden sheet33.Visible = xlSheetVeryHidden sheet34.Visible = xlSheetVeryHidden sheet35.Visible = xlSheetVeryHidden sheet36.Visible = xlSheetVeryHidden sheet37.Visible = xlSheetVeryHidden sheet38.Visible = xlSheetVeryHidden sheet39.Visible = xlSheetVeryHidden sheet40.Visible = xlSheetVeryHidden sheet41.Visible = xlSheetVeryHidden بــــالتالي For i = 2 To 41 Sheets("Sheet" & i).Visible = xlSheetVeryHidden Next i

السلام عليكم الأخ الفاضل / إبراهيم كنت جهزت رد ولم أستطع إرساله لعيب باتصال الإنترنت ثم وجدت الرد من أخي أبو عبدالله ، ماشاء الله عموما للإثراء تفضل الكود إسمه sortsheets Sub sortsheets() Dim sh_name(99), nw_sh(99) As Variant 'Read Sheet names x = Worksheets.Count For i = 1 To x sh_name(i) = Sheets(i).Name nw_sh(i) = sh_name(i) Next i 'Sort Sheet names For i = 1 To x For j = i + 1 To x If nw_sh(j) < nw_sh(i) Then exchg = nw_sh(j): nw_sh(j) = nw_sh(i): nw_sh(i) = exchg Next j Next i For i = x To 1 Step -1 Sheets(nw_sh(i)).Move Before:=Sheets(1) Next i End Sub وهذا للترتيب التصاعدي وللترتيب التنازلي تغير آخر سطور من For i = x To 1 Step -1 Sheets(nw_sh(i)).Move Before:=Sheets(1) Next i إلي For i = 1 To x Sheets(nw_sh(i)).Move Before:=Sheets(1) Next i يتم تشغيله عن طريق Alt-F8 ثم تختار sortsheets RUN وكذلك المرفق وبه الكود وفيديو للتشغيل sort_sheets.rar

السلام عليكم أخي الحبيب fhfhtdk أشكرك كثيرا علي ثقتك فقط أحب أذكرك وباقي الأعضاء بقواعد المنتدي وطبعا هذا لايعني أي معني سلبي فقط لأنني لاحظت ان معظم الأعضاء لايلتزمون بهذا وقد يضيع السائل علي نفسه حل أفضل أو أسرع لأن الشخص الذي تدعوه قد يكون غائبا أو لم يلاحظ طلبك أو مشغولا (مثلما حدث معك) فتمنع عن نفسك خير باقي الإخوة بارك الله فيك وفي جميع الإخوة بالمنتدي أخي الحبيب / هشام شلبي أخي الحبيب / أيسم إبراهيم جزاكما الله عنا خيرا

السلام عليكم الحمد لله أظنك تقصد بالأزرار هو تحديد البيانات أو Data Validation أنظر الفيديو المرفق لفهمهما معا تحديد البيانات والتنسيق الشرطي Data_Validation&cond_format.rar

السلام عليكم تفضل أخي Sub delete_Pic() Worksheets("sheet5").Select For Each sh In ActiveSheet.Shapes sh.Delete Next End Sub