بن علية حاجي

السلام عليكم ورحمة الله أخي الكريم، أشكر أخي الفاضل طارق جازاه الله خيرا وبارك الله فيه وفي أهله ووقته، تم تعديل طفيف على كود فورم البحث لإدراج الآيات المشكّلة، تم إضافة عمود للآيات المشكّلة في العمود 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 فتظهر الخلايا (التي تحوي أصفارا) فارغة... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم عمار، بالنسبة للتسميات هناك رموز لا تُقبل فيها مثل : الفراغ، - ، + ، * وغيرها، إلا الرمز "_" كما ذكرت في مشاركتي السابقة... بطبيعة الحال توجد حلول أخرى دون التغيير في عناصر القوائم (ولا أقول في التسميات)... مثل أن تجعل اسما للقائمة المطلوبة (يُفضل من كلمة واحدة بأي لغة كانت) وتكون هذه القائمة ديناميكية (مطاطة)... وتجد حلا من الحلول في الملف المرفق... (وقد أضفت للملف كودا في حدث الشيت يقوم بتفريغ الخلية I11 عند التنقل من قائمة إلى قائمة أخرى في الخلية I9)... أخوك بن علية الملف المرفق : مشكل 11.rar

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

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

السلام عليكم ورحمة الله أخي الحبيب أبو حنين، تم حذف كود حدث الشيت 134 والتعديل على كود الترحيل بما يوافق ما كنت تريده من كود حدث الشيت 134 (وضع اسم المستخدم في عمود "المستخدم" في كل من جداول "الأسنان - النظارات - معاملات - خارج الرصيد" بالنسبة للشخصي والأسري على سواء) ... أرجو أن يفي بالغرض المطلوب... أخوك بن علية الملف المرفق : TIST#8.rar

السلام عليكم ورحمة الله أخي الكريم أحمد، إذا أردت أن يبدأ التسلسل بشهر January نضع في الخلية A1 العدد 12 (رقم شهر ديسمبر)... أخوك بن علية

السلام عليكم ورحمة الله اخي الكريم جمال عبدالسميع حفظك المولى حاولت تجربة " تسلسل الشهور " و يبدو ان هناك مشكلة و لا يعمل أخي الكريم أحمد، المعادلة التي وضعها أخونا جمال تتطلب أن نضع في الخلية A1 "رقم الشهر" وليس "اسم الشهر"... والله أعلم أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، أعتقد أن عملية الحساب التلقائية عندك غير مفعلة... وقد قمتَ حسب اعتقادي بتغيير عنصر القائمة المنسدلة في الخلية D4 إلى "اشتراك سيارات" ثم قمت بتنفيذ عملية الحساب يدويا (بالضغط على مفتاح F9 أو غيرها) وكانت الخلية F4 تحوي الرقم 6 لذا بعد تنفيذ عملية الحساب تم تغيير مضمون الخلية F4 إلى 99 ولكن لم يتم عرض سوى 6 عناصر من كل القائمة... والله أعلم ربما يكون عندك مشكل آخر... وليس لي فكرة أخرى لهذا الخطأ لأن الملف يعمل عندي بصورة جيدة... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، هذا الموضوع قام بتناوله الأخ سلامي غنام مند أيام في الموضوع الذي رابطه http://www.officena.net/ib/index.php?showtopic=58266&hl= أرجو أن يفيدك مضمونه... وأقدم لك بالإضافة الملف بالمرفق بعمل -تقريبا- مماثل باستعمال الدوال فقط (لجلب الصورة فقط)... أخوك بن علية الملف المرفق : الملف_2.rar

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

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