بن علية حاجي

السلام عليكم ورحمة الله أخي الكريم، بالنسبة لتلوين التوزيعين بلونين مختلفين فقد تم باستعمال التنسيقات الشرطية... أما فيما يخص المطلوب الثاني فهو غير مفهوم وقد وضعت في الملف المرفق مثالا على محافظة "صنعاء" لسنة 2010 بالإشارة (بالأسهم) للخلايا التي استعملتها للمجاميع (في التوزيع الأول وفي التوزيع الثاني).... الرجاء تأكيد هذا المثال أو إعطاء مثال يدوي يشرح المطلوب أكثر على الأقل لمحافظة من المحافظات... أخوك بن علية توزيع2.rar

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

السلام عليكم ورحمة الله أخي الكريم، المعادلات المستعملة في الملف صحيحة كفكرة، ولكن فيها أخطاء تتمثل في خلط أعمدة الشروط بين شيت "Forcast VS Actual" وشيت "DB" لهذا المعادلات مرة تجلب البيانات ومرة لا تعطي النتائج الصحيحة... وقد تم تصحيح الأخطاء في الملف المرفق... ويمكن حل المسألة بواسطة كود... أخوك بن علية Week 11 VS.rar

السلام عليكم ورحمة الله أخي الكريم، يمكن استعمال دالة الصفيف التالية: =INDEX($2:$2;SMALL(IF($A:$C=$G$6;COLUMN($A:$C));1)) ولا تنسى تأكيدها بالضغط على CTRL+SHIFT+ENTER أخوكم بن علية وتطبيق للمعادلة في الملف المرفق : TEST.rar

السلام عليكم ورحمة الله أخي الكريم، يمكنك استبدال المعادلات المكتوبة بمعادلة واحدة تضعها في الخلية H11 ثم يتم سحبها إلى الأسفل وإلى اليسار... والمعادلة هي : =IF(COLUMN(A$1)<=$G11;$F11/$G11;IF(COLUMN(A$1)<=3*$G11;$F11/(2*$G11);"")) وتطبيقها تجده في الملف المرفق.... أخوك بن علية توزيع.rar

السلام عليكم ورحمة الله أخي الكريم، إذا كنت تعمل في إكسيل 2007 أو 2010 فهتاك طريقة في ضغط الملفات وتقليص حجمها وذلك بحفظ الملفات بالامتداد xlsb.* ولا ارى طريقة أخرى إلا بحذف جميع التنسيقات في المصنف في جميع أوراقه ثم إعادة التنسيقات اللازمة فقط... وربما أيضا تبديل معادلات الصفيف إذا كانت كثيرة بمعادلات بسيطة تعمل عملها... أخةك بن علية

السلام عليكم ورحمة الله أخي الكريم، دائما لتعدد الحلول هذا كود آخر يمكن استعماله: Sub trheel2() R = Sheets("1").[B1500].End(xlUp).Row + 1 Table = Sheets("ورقة1").Range("C4:C9").Value Sheets("1").Cells(R, 2).Resize(1, UBound(Table)) = Application.WorksheetFunction.Transpose(Table) MsgBox "تم ترحيل البيانات بنجاح", vbInformation, "حالة الترحيل" End Sub أخوك بن علية

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

السلام عليكم ورحمة الله أخي الكريم، المشكلة الأولى كانت في التسمية "Criteria" سميتها بهذا الاسم في الكود وبالاسم "Criteres" في المستند والمشكلة الثانية في ارتفاع هذا النطاق فقد جعلته من سطرين ومن المفروض أن يكون كل الجدول... وقد تم في الملف المرفق تصحيح الأخطاء مع اعتبار ارتفاع النظاق Criteria ارتفاعا ديناميكيا (يأخذ البيانات غير الفارغة فقط)... إن شاء الله أكون قد وفقت في تصحيح الخطأ... أخوك بن علية Safety_Search.rar

السلام عليكم ورحمة الله أخي الكريم، يستحسن عند التعامل بالفراغات أو بالنصوص في الجمع والطرح أن نستعمل الدالة SUM فمثلا : B8 + H8 نكتبها : (SUM(B8;H8 وَ B8 - H8 نكتبها : (SUM(B8)-SUM(H8 حتى نتجنب الخطأ في النتيجة... وفي الملف المرفق تركت تقريبا كل المعادلات على حالها وقمت بتغيير المعادلة التي تظهر الخطأ... أخوك بن علية Empolyee Form.rar

السلام عليكم ورحمة الله أخي الكريم، إضافة إلى حلول إخوتي الأعزاء الجميلة، هذا حل آخر في الملف المرفق... أخوكم بن علية تحليل النتائج.rar

السلام عليكم ورحمة الله أخي الكريم، بالتأكيد كل ذلك ممكن ولكن باستعمال المعادلة التالية في الخلية B3 : =B$2*$A3 تلاحظ أخي أنه قد تم وضع العلامة $ أمام حرف A فقط في A3 $ (لتثبيت العمود A عند الانتقال أفقيا وتغيير السطر 3 عند الانتقال عموديا) وأمام الرقم 2 في B$2 (لتغيير العمود B عند الانتقال أفقيا وتثبيت السطر 2 عند الانتقال عموديا) المعادلة السابقة يتم سحبها إلى اليسار إلى آخر عمود في الجدول ثم إلى الأسفل إلى آخر سطر... وفي الملف المرفق تجد تطبيق كل ذلك... أخوك بن علية Book1لالالالالا.rar

السلام عليكم ورحمة الله أخي الكريم، يمكن أن يكون هذا عمل الدالة COUNTIF واستعمالها يكون (حسب مافهمت) كما يلي: =COUNTIF($A:$A,Number) حيث : Number يمثل رقم السجل أو عنوان الخلية التي تحوي هذا الرقم والله أعلم

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

السلام عليكم ورحمة الله أخي الكريم، إضافة إلى حل أخي الحبيب طارق حفظه الله إليك الكود التالي : Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 2 Then Exit Sub Target.Offset(0, -1).Value = Now End Sub الذي يضيف التاريخ والوقت الحليين في العمود A بمجرد إدخال أي معلومة في العمود B في السطر نفسه... أرجو أن يفي الكود بالغرض المطلوب... وتطبيق الكود على الملف الذي قدمه أخي الحبيب طارق في الملف المرفق... أخوكم بن علية تجميد الوقت في عمود حسب عمود آخر.rar

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

السلام عليكم ورحمة الله أخي الكريم، إن سبب عدم ظهور الأسماء الحديثة للقائمة (الاسم الأخير فقط) هو خطأ مني في معادلتي التسميتين "Base" و "العمال" في العبارة MAX(Base!$A:$A)-1 ولتصحيح الخطأ قم بتغيير هذه الصيغة إلى الصيغة التالية: (MAX(Base!$A:$A أي دون 1- لتشمل القائمة كل الأسماء وهي قائمة ديناميكية باستعمال الدالة OFFSET تتغير آليا حسب المدخلات... وتكون بالتالي معادلتي التسميتين "Base" و "العمال" بالشكل التالي: * معادلة التسمية Base : =OFFSET(Base!$A$2;;;MAX(Base!$A:$A);9) * معادلة التسمية "العمال" : =OFFSET(Base!$B$2;;;MAX(Base!$A:$A)) ولا تنسى عند إضافة أي بيانات جديدة أن تضع الترقيم التسلسلي في العمود A... والله أعلم

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

السلام عليكم ورحمة الله أخي الكريم، إضافة إلى الحل الذي قدمه أخي الحبيب طارق يمكن استعمال الدالة SUMPRODUCT في أي إصدار للأوفيس بالمعادلة: =SUMPRODUCT(((A1:A182>=F1)-(A1:A182>D1))*(B1:B182)) والله أعلم

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

السلام عليكم ورحمة الله أخي الكريم، إن الخلل في عدم ظهور نتيجة الدالة VLOOKUP في الخلية H9 هو أن تنسيق الخلية ليس تنسيق عدد إنما هي من تنسيق نص ولحل المشكلة يجب تغيير تنسيق الخلية إلى تنسيق الأعداد ثم إعادة تأكيد المعادلة أو إعادة نسخها ولصقها.... والمعادلة التي تريدها في الخلية H15 تكون من الشكل: =IF(E15="";"";DATE(YEAR(E15)+1;MONTH(E15);DAY(E15)-1)) وفي الملف المرفق تجد هذه التعديلات... والله أعلم عقد عمل.rar

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

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

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

السلام عليكم ورحمة الله أخي الكريم، إضافة إلى الكودين السابقين (كود أخي وحبيبي أبو أحمد والكود الذي قدمته في الملف السابق) يمكن أيضا استعمال الكود التالي في حدث ورقة العمل : Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.ScreenUpdating = False If Not Intersect(Target, [B4:E100]) Is Nothing Then Target.NumberFormat = Application.WorksheetFunction.Rept(0, Target.Column) End If Application.ScreenUpdating = True End Sub أخوك بن علية