بن علية حاجي

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

السلام عليكم ورحمة الله
 
 
أخي الكريم، في الملف المرفق تجد ردا على طلبك في حلين، الحل الأول باستعمال الدالة INDEX والحل الثاني باستعمال الدالة VLOOKUP... أرجو أن يفيا بالمطلوب...
 
أخوك بن علية
 
 
المرفق : _vlokup __ - 1.rar

السلام عليكم ورحمة الله
أخي الحبيب أبو حنين، لم أنتبه للمعادلات التي كانت في المرفق بالمشاركة الأولى (المهم حصل خير وأصبح لديك حلين للمسألة)... والخطأ في المعادلات في الملف بالمشاركة الأولى يكون تصحيحه كما يلي:
* المعادلة الأولى الموجودة في الخلية A5 كانت :
=IF(ROW($A1)>MAX('Training data'!$R:$R);"";ROW($R1)) وتصحيحها هو :
=IF(ROW($A1)>MAX('Training data'!$S:$S);"";ROW($R1)) وهذه المعادلة يتم سحبها إلى الأسفل في العمود A
 
* المعادلة الثانية الموجودة في الخلية B5 كانت :
=IF($A5="";"";INDEX(Plage;MATCH($A5;'Training data'!$B:$B;0);COLUMN(B$1))) وتصحيحها هو :
=IF($A5="";"";INDEX(Plage;MATCH($A5;'Training data'!$S:$S;0);COLUMN(B$1))) وهذه المعادلة يتم سحبها إلى باقي الخلايا باليسار في الصف الخامس (ثم تصحيح التنسيق في هذا الصف مثل تنسيق الصف الذي يليه) ثم يتم سحب معادلات كل هذه الخلايا إلى الأسفل....
 
ملاحظة: يمكن استعمال المعادلة الأولى المصححة في العمود A في ملف المشاركة الثانية بدل المعادلة :
=IF(ROW($A1)<=$N$4;OFFSET('Training data'!$A$1;MATCH(ROW($A1);'Training data'!$N:$N;0)-1;COLUMN(A$1)-1);"") أو يمكن استعمال المعادلة التالية:
=IF(ROW($A1)<=$N$4;ROW($A1);"") ولا يمكن استعمال المعادلة التي اقترحتها ((IF(B5="";"";COUNTA($B$5:B5=  لأن الدالة COUNTA في هذه الحالة تعد كل مضامين الخلايا في العمود B وبما أنه يحوي معادلات فإن التسلسل في العمود A يبقى متواصلا إلى نهاية الجدول وبالتالي يحدث أخطاء في نتائج معادلات خلايا الأعمدة الموالية من الجدول... والله أعلم
 
 
أخوك بن علية
 
 
 
المرفق (تعديلات على معادلات الملف في المشاركة الأولى) :
 
نموذج ترشيحات العاملين للبرامج التدريبي استدعاء1.rar

السلام عليكم ورحمة الله
 
أخي الكريم، أولا أعتذر لعدم شرح المعادلات التي استعملتها في ملفي المرفق، وفي الحقيقة لا أستطيع شرحها لأنها ببساطة مجموع جداء مصفوفتين عموديتين إحداهما ممثلة بأربع خلايا (نطاق لأربع خلايا) والثانية ممثلة بقوة (أس) للعدد عشرة (الأس من 0 -الآحاد- إلى  3 -الآلاف-)... وفي حالة النطاقات التي في الصفوف استعملت الدالة TRANSPOSE لتبديل الصفوف إلى أعمدة... وليس لي شرح آخر...
بالنسبة للمعادلات التي استعملها أخي الكريم أبوعيد الذي استعمل فيه الرمز & الذي يعوض الدالة CONCATENATE فهي أيضا تفي بالغرض (وهو حل كنت سأعرضه عليك في الأول وعدلت عليه لتنويع الحلول) فقط كان يكفي أن نضرب في 1 كل شكل للمعادلة مثلما فعلت في المرفق لطلبك الجديد...
 
أخوك بن علية
 
المرفق : Book2.rar

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

السلام عليكم ورحمة الله
أخي الكريم سلامي، تم عمل المطلوب وزيادة (جعلتها 10 بطاقات في صفحة واحدة)... تم تبديل الخطوة في زر التحكم إلى 10 بدلا من 2 (حسب عدد الباطاقات)... والتي لم أستطع التحكم فيها هي التسمية الخاصة بجلب صورة كل بطاقة في الصفحة (لم أستطع جعل التسمية ديناميكية أي تسمية واحدة تتغير حسب رقم البطاقة في الصفحة -الرقم في جانب كل بطاقة-) لذا فكل صورة جعلت لها معادلة بالتسمية حسب رقمها (بإذن الله سأفكر في تبسيط هذه العملية بتسمية واحدة)....
 
أرجو أن تفي هذه التعديلات بالغرض المطلوب...
 
أخوك بن علية
 
الملف المرفق :  بطاقات للارسال 10.rar

السلام عليكم ورحمة الله
أخي الكريم، إن كنت قد فهمت المطلوب؟ ضع هذا الكود في حدث الشيت، وهو كود يقوم بوضع علامة صح في أي خلية من النطاق C5:L1000 بمجرد النقر عليها نقرا مزدوجا... أرجو أن يكون المطلوب...
 
الكود :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect([C5:L1000], Target) Is Nothing Then     Target.FormulaR1C1 = "P"     With Selection         .Font.Name = "Wingdings 2"         .Font.FontStyle = "BOLD"         .Font.Size = 18         .HorizontalAlignment = xlCenter         .VerticalAlignment = xlCenter     End With End If Target.Offset(1, 0).Select End Sub أخوك بن علية

السلام عليكم ورحمة الله
 
تم التعديل على كود الدالة VLOOK2ALL -حسب ما فهمت من طلبك- بإضافة وسيط جديد (الثالث في الترتيب) سميته "عمود_البحث" وهو العمود الذي من خلاله تتم عملية البحث... أتمنى أن يكون هذا المطلوب ويفي هذا التعديل بالغرض المنشود...
 
بن علية
 
الملف المرفق : دالة Vlook2all.rar

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

السلام عليكم ورحمة الله
 
أخي الحبيب أبو حنين، تقصد الدمج والتوسيط Merge_center، التنسيق على الخلايا في شيت محمي غير ممكن مباشرة... غير أن العملية ممكنة جدا بواسطة كود وقد أدرجت في شيت رمضان1 فقط كود من النت -بتصرف- ووضعت له Button (صورة حصان) يقوم بعملية دمج وتوسيط الخلايا التي تم تحديدها في هذا الشيت... وإذا أردت تطبيق الكود في كل الشيتات فينبغي نسخ الزر Button ولصقه في كل الشيتات الأخرى (أو إنشاء زر آخر جديد في هذه الشيتات) ثم ربط هذه الأزرار بالكود نفسه...
 
أخوك بن علية
 
المرفق : المقاولين.rar 

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

السلام عليكم ورحمة الله
 
أخي الحبيب أبو حنين، جرب المعادلة التالية في الخلية AK4 ثم اسحبها إلى الأسفل...
=IF($AJ4>=25;MIN($AP$2-$AJ4;5);"") ملاحظة : يجب مراعاة الفاصلة والفاصلة المنقوطة حسب نسخة الأوفيس والإعدادات...
 
أخوك بن علية

السلام عليكم ورحمة الله
أخي الحبيب أبو حنين، أعتقد أن ذلك ممكن جدا باستعمال الفكرة في ملف أخي الكريم YasserKhalil والذي استعمل فيه الدالة SUMPRODUCT وبتصرف طفيف على المعادلة كانت النتيجة حسب المطلوب الجديد (تحديد عدد الحالات التي يكون فيها الحرف X مسبوقا أو متبوعا بأحد الأحرف الثلاثة A أو E أو T) وحسب فهمي لهذا المطلوب... أرجو أن يفي بالغرض...
 
أخوك بن علية
 
المرفق : رمز X.rar

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

السلام عليكم ورحمة الله
 
أخي الكريم، يمكن ذلك جدا لكن بشرط أن تقوم بإخفاء الصفوف بأحد الشرطين على العمود A إما أن تكون خلاياه تحوي 0 أو تكون فارغة "" ، هذا من جهة ومن جهة أخرى تكون كل الصفوف المراد إخفاؤها بالأسفل ..  وقد قمت بالتعديل على الكود حيث يقوم بإخفاء الصفوف التي في عمودها A القيمة 0 بعد تحديد نطاق كل الخلايا من هذا العمود  التي قيمها 0 (سميته في الكود Rng) ثم إخفاء كل صفوف هذا النطاق... أرجو أن يكون عمل الكود مفهوما...
 
أخوك بن علية
 
المرفق : Book1.rar

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

أبدل المعادلة الموجودة في E41 بالمعادلة التالية:
=COUNTIF(F7:F36;">0") بن علية

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

السلام عليكم ورحمة الله
 
أخي الكريم، يمكن ذلك جدا... كفكرة أولى يمكن إضافة (تخصيص) إلى تنسيق التاريخ للخلية (في نهايته) الرمز " هـ"  (علامة التنصيص + فراغ + حرف الهاء+فعلامة تنصيص) بمعنى أنه لو كان تنسيق التاريخ في الخلية من الشكل :
[$-2060000]B2yyyy/mm/dd فيكون بعد تخصيصه من الشكل :
[$-2060000]B2yyyy/mm/dd" هـ" وتجد في الملف المرفق مثالا على ذلك...
 
أرجو أني قربت الفكرة....
 
أخوك بن علية
 
 
المرفق : تاريخ.rar

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

السلام عليكم ورحمة الله
 
أخي الكريم صلاح الصغير، هذا حل آخر مع حلول إخوتي الكرام جازاهم الله خيرا...
 
أخوك بن علية
 
المرفق : Copy of شيكات مرتدة من 24_06_2012.rar

السلام عليكم ورحمة الله
 
أخي الحبيب أبو حنين، هذا حلي مع اعتبار التاريخ (من .... إلى .....) وعمل مخطط للنتائج...
 
أخوك بن علية
 
 
المرفق : TIST.zip

السلام عليكم ورحمة الله
 
أخي الكريم انظر إلى المرفق لعل فيه المطلوب...
 
أخوك بن علية
 
 
المرفق : s.rar

الخطأ الأول تم تصحيحه بتعديل مضمون الخلية M6 في أوراق الصفوف من الثاني إلى السادس من 2013 إلى معادلة تجلب العام من ورقة البيانات... أما خطأ عدم احتساب عدد المسيحيين في كل الصفوف فقد تم تصحيح المعادلات الخاصة باحتساب المسيحيين... تجد كل ذلك في الملف المرفق..
 
المرفق : برنامج قوائم 2015الفصول.rar