بن علية حاجي

السلام عليكم ورحمة الله أخي الكريم جرب المرفق الذي فيه تعديلات على ملف أخي الكريم سليم... المرفق : هواتف الزبائن.rar بن علية

السلام عليكم ورحمة الله أخي الكريم سامي، إن الخلية N2 ارتبطت بها الخلايا التي تجدها في كل كشف والتي تعطي رقم الكشف بالشكل : "كشف منادة لجنة رقم ( ... )" ورقم الكشف تجده بين القوسين مكان النقاط الثلاثة في الشكل (مثلا في الكشفين الأول والثاني تجد المعادلات في الخليتين B7 و J7 وهما الموديل -النموذج- لباقي الكشوف الأخرى) ... وإذا تم تغيير مكان معادلة الخلية N2 يجب تغيير معادلتي الخليتين B7 و J7 -فقط- وفق هذا المكان الجديد لمعادلة الخلية N2، والكشوف الأخرى يقوم الكود، بعد جلب بيانات كل الكشوف، بتمديد معادلتي الخليتين B7 و J7 إلى بقية الكشوف... أرجو أني وفقت في توصيل الفكرة إلى حضرتك... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم سامي، أولا شكرا جزيلا على الهدية وأتقبلها بفرح وسرور ، وثانيا وفيما يخص سؤالك الثاني : "في صفحة بيانات الطلبه تبدأ الاسماء من الصف التاسع لو اردنا مثلا تغيير الصف الذي تبدأ به الاسماء الى الصف ال 15اين التغيير لكي يعمل الكود صح" أقول وبالله التوفيق إنه في هذه الحالة يجب التعديل في سطرين من الكود وهما : السطر : V = 8 'عدد الصفوف الخارجة عن التوزيع في ورقة البيانات والسطر : EE = Application.RoundUp((S - (V - 8)) / (TT - SS), 0) وللتعديل تقوم بتغيير الرقم 8 (في السطرين) بالرقم الذي تريد (شرط أن يكون هو رقم الصف الذي يحوي "عناوين جدول البيانات" (أي الصف الأول أعلى الجدول)... أرجو أن يكون هذا الشرح مفهوما... بالنسبة لتوقيعك لست أدري لماذا لم ينجح التعديل عليه في بياناتك الخاصة لعل الأمر يتعلق بحداثة انضمامك إلى المنتدى (عضو جديد) ولأجل التأكد من ذلك ولمعرفة السبب يجب تدخل أحد أعضاء إدارة الموقع.... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، بالنسبة للتغييرات التي قمت بها في الملف كانت كما يلي : 1- التعديل في شيت "لجان" بإضافة معادلة في الخلية N2 (مخفية بالتلوين) وهي معادلة لتحديد عدد الطلبة في كل لجنة (بقسمة العدد الإجمالي للطلبة على عدد اللجان الذي تم حجزه في الخلية E3) وذلك لترقيم القوائم تسلسليا حسب رقم اللجنة... 2- التعديل في الكود في موضعين : * في السطر: عدد الطلبة في اللجنة [E = [E2 واستبداله بالسطر : عدد اللجان (E = Application.RoundUp(S / [E2], 0 * وفي السطر : o = .UsedRange.Rows.Count بالسطر : o = T * (E + 8) + 2 وهو استبدال تحسيني لتحديد "نطاق الطباعة" بدقة (دون الصفحات الفارغة) * بالنسبة لسؤالك الثاني : "في صفحة بيانات الطلبه تبدأ الاسماء من الصف التاسع لو اردنا مثلا تغيير الصف الذي تبدأ به الاسماء الى الصف ال 15اين التغيير لكي يعمل الكود صح" سأقرأ الأكواد جيدا (لأني الآن مشغول - سأغيب لبعض الوقت -)، إن شاء الله أعاود الرد عليك... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم سامي، بعد الدخول إلى نافذة "تغيير التوقيع" تقوم بإدراج "صورة" باستعمال أيقونة إدراج صورة ثم تدرج رابط الصورة في الإطار المناسب، وقد قمت بإدراج هذه الصورة في بياناتي الخاصة كما ترى أسفل ردودي... أرجو أن ينجح معك هذا الأمر... أخوك بن علية

السلام عليكم ورحمة الله تم التعديل على الملف (الكود ومعادلات الشيت) بما يوافق المطلوب... الملف المرفق : كشف مناداة بالكود.rar بن علية

السلام عليكم ورحمة الله أخي الكريم، هذا حل آخر للمسألة... أرجو أن يروقك... أخوك بن علية المرفق : ملف مهم.rar

غير مفهوم البتة، ضع مثالا تطبيقيا يبين المطلوب بالضبط... أخوك بن علية

السلام عليكم ورحمة الله باستعمال الدالة SUMPRODUCT في الملف المرفق تجد حلا لمسألتك.... أخوك بن علية الملف المرفق : احصائيات.rar

السلام عليكم ورحمة الله أخي الكريم، تم تعديل على كود الفرز والتعديل على النطاقات بالتسمية لكل الجداول الستة... أرجو أن يفي هذه المرة بالمطلوب... أخوك بن علية الملف المرفق : فرز حسب شرط معين.rar

السلام عليكم ورحمة الله أخي الكريم، أشكر أخي الفاضل طارق جازاه الله خيرا وبارك الله فيه وفي أهله ووقته، تم تعديل طفيف على كود فورم البحث لإدراج الآيات المشكّلة، تم إضافة عمود للآيات المشكّلة في العمود C في شيت الآيات، ثم أيضا تم التعديل على بعض المعادلات في شيت الأسئلة... أرجو أن تفي بالغرض المطلوب... أخوك بن علية الملف المرفق : نهائي قبل التأمين.rar

السلام عليكم ورحمة الله أخي الكريم، وضعت مثالا للحل على السؤال الأول في شيت (خمسة أسئلة)، وإذا راقك هذا الحل يتم التعميم على البقية... أخوك بن علية المرفق : الاختبار الشفوي.rar

السلام عليكم ورحمة الله أخي الكريم، جرب الملف المرفق.... المرفق : فرز حسب شرط معين.rar أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، يمكن استعمال المعادلة التالية (مع إمكانية إضافة شروط أخرى للمعادلة في جزئية الدالة TRANSPOSE) : =SUMPRODUCT((B$2:$B$11)*($C$2:$C$11=TRANSPOSE({"اوفسينا1";"اوفسينا2";"اوفسينا3"})))*15% وفي الملف المرفق تجد هذه المعادلة ومعادلة أخرى بنفص الصياغة لكنها معادلة صفيف مع ملاحظة أنه يجب اعتبار "الفاصلة المنقوطة" و "الفاصلة" في المعادلة حسب الجهاز... أخوك بن علية المرفق : محاولة ايجاد نسبة مئوية لاكثرمن شرط.rar

السلام عليكم ورحمة الله أخي الكريم محمد صالح، هذه محاولة في الملف المرفق... أخوك بن علية الملف المرفق : Classeur1.rar

بالمعادلات وأعمدة مساعدة (لتبسيط المعادلات) في الملف المرفق... المرفق: الاصناف.rar

السلام عليكم ورحمة الله أخي الكريم، جرب الكود التالي : Private Sub Worksheet_SelectionChange(ByVal Target As Range) For I = 2 To 100 If Range("A" & I).Value < Range("B" & I) Then Range("B" & I).ClearContents End If Next End Sub أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، تم التعديل على معادلات العمود D بمعادلات عادية وبسيطة... أرجو أن يفي بالغرض المطلوب... أخوك بن علية المرفق : نموذج جمع خليتين_2.rar

السلام عليكم ورحمة الله أخي الكريم، هذا حل آخر على نفس المنوال... أرجو أن يعجبك هذا الحل... وفي المنتدى تجد كودا جميلا جدا لأخي الحبيب عبد الله باقشير (في مدونته الرائعة) ومع بعض التعديل يتوافق مع طلبك... أخوك بن علية المرفق : نموذج جمع خليتين.rar

السلام عليكم ورحمة الله أخي الكريم، تم التعديل على الأكواد حسب المطلوب مع تعديلات (غير مطلوب) على شيت Items، أرجو أن تعجبك هذه التعديلات... أخوك بن علية الملف المرفق : تعديل على الكود .rar

السلام عليكم ورحمة الله أخي الكريم، إن في الإكسيل حد للأرقام (لا يتجاوز العدد 15 رقما) وإلا سيكتب على الشكل الكتابة العلمية للأعداد أي على شكل ضرب عدد محصور بين 1 و 10 (في حالتنا هو 1,01141004003334) وقوة (أس) للعدد 10 (أي الشكل E+25 في المثال الذي أعطيته)... ولكتابة العدد كاملا كما تريد، يمكنك حجز العدد على شكل نص باستعمال علامات التنصيص " مثل المعادلة التالية: ="0000010114100400333410000123543" أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، يمكن استعمال معادلة الصفيف التالية (يجب تأكيدها بالضغط على Ctrl+Shift+Enter) في الخلية H2 (للوارد) ثم سحبها (بعد تأكيدها) إلى الخلية I2 (للصادر) : =INDEX(D$1:D$10000;LARGE(SI($B$1:$B$10000=$G$2;ROW($1:$10000));1)) ملاحظة: يجب الانتباه لـ "الفاصلة المنقوطة" و "الفاصلة: في المعادلة حسب إصدار الأوفيس وخصائص اللغة والمنطقة أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، في الحقيقة كانت هناك تداخلات بين الصور (صور موضوعة صور أخرى في خلية واحدة)... ثم تجدني ذكرت في موضوع الأخ سلامي إنني لم أجد حلا لوضع صورة كل بطاقة إلا باستعمال تسمية خاصة لكل صورة (ما دام في ملفك توجد 6 بطاقات لذا استعملت ست تسميات من Photo1 إلى Photo6) وأرفقت بكل صورة لكل بطاقة تسمية خاصة حسب الترتيب... ولا أرى أي جدوى من حفظ الملف بالامتداد .xlsm لأنه لا يوجد أي ماكرو في الملف (إلا إذا أردت التقليل من حجم الملف وفي هذه الحالة الامتداد .xlsb أفضل)... أخوك بن علية الملف المرفق : البطاقات المدرسية تجريبي.rar

السلام عليكم ورحمة الله أخي الكريم n_tareq يمكنك تعديل ذلك في كود الدالة Hunds التالي : Private Function Hunds(num As Byte, Female()) As String Const Hund = "مائة" Select Case num Case 1: Hunds = Hund Case 2: Hunds = Mid(Hund, 1, 3) + Mid(Female(2), 4, 3) Case 3 To 9: Hunds = Female(num) + Hund End Select End Function بالكود التالي : Private Function Hunds(num As Byte, Female()) As String Const Hund = "مائة" Select Case num Case 1: Hunds = Hund Case 2: Hunds = Mid(Hund, 1, 3) + Mid(Female(2), 4, 4) Case 3 To 9: Hunds = Female(num) + Hund End Select End Function والتعديل كان في الجزئية (Mid(Female(2), 4, 3 في أمر Case 2 من السطر الخامس في الكود بالجزئية (Mid(Female(2), 4, 4 وتم تعديل الرقم 3 في الجزئية بالرقم 4... أرجو أن يكون هذا المطلوب... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم إبراهيم، يمكنك عدم عرض الأصفار في الخلايا التي تريد بإضافة علامتي فاصلة منقوطة في نهاية تنسيق الخلايا المعنية مثلا : إذا كان تنسيق الخلايا Standard تكتبه : ;;Standard فتظهر الخلايا (التي تحوي أصفارا) فارغة... أخوك بن علية