بن علية حاجي

السلام عليكم ورحمة الله أخي الكريم بوعلام، يمكنك استعمال المعادلة التالية (وقد تم تطبيقها في الملف المرفق): =IF(COUNTIF(M9:N9;"معفى")>0;"معفي";B9) وبالفرنسية =SI(NB.SI(M9:N9;"معفى")>0;"معفي";B9) أخوك بن علية الحراسة تجريبي.rar

السلام عليكم ورحمة الله أخي الكريم لم أجد طريقة للشرح إلا بملف فلاشي (والنسخة المستعملة هي أوفيس 2003 بالعربية)، أتركك مع الملف وخطوات إنشاء هذا النوع من الأزرار... أخوك بن علية hben2.rar

السلام عليكم ورحمة الله أخي الكريم، هذا الكود يسمح بتغيير قيمة الخلية M1 بقيمة الخلية J6 إذا تم تغيير مضمون الخلية الموجودة في تقاطع السطر (ROW) رقم 7 والعمود (COLUMN) رقم 10 وأقصد بها الخلية J7 (الخلية التي تحوي رقم الجلوس). بالنسبة للكود يمكن أن يكون من الشكل: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells = Cells(7, 10) Then Range("M1") = Range("J6") End Sub أو Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells = ٌRange("J7") Then Range("M1") = Range("J6") End Sub أو Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells = [J7] Then [M1] = [J6] End Sub ملاحظات (نسيت أن أذكرها في الملفات المرفقة السابقة): 1- تم إضافة معادلات في العمود الأول من الشيت الأول Sheet1 تقوم بتغيير الرقم التسلسلي تلقائيا حسب مضمون الخلية في العمود B المقابلة لها في كل سطر (صف)... 2- تم إضافة معادلات في الخلايا الموجودة تحت زر "طباعة الكل" واحدة مضمونها 1 والأخرى القيمة الكبرى Max للعمود A من Sheet1 ومعادلة أخرى تحت زر "طباعة رقم الجلوس" تقوم بجلب الرقم التسلسلي من العمود A في Sheet1 حسب "رقم الجلوس" في الخلية J7 (وهذه المعادلات كلها مهمة فلا ينبغي مسحها) أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، يمكن أيضا إضافة الكود البسيط التالي إلى كود الورقة Sheet2 حتى يتم تحديث الشهادة تلقائيا حسب رقم الجلوس الذي تم إدخاله في الخلية J7... Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 7 And Target.Column = 10 Then Range("M1") = Range("J6") End Sub وقد وضعته في الملف المرفق... أخوك بن علية 5.rar

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

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

السلام عليكم ورحمة الله أخي الكريم، هذه محاولة أخرى في الملف المرفق الذي تجد فيه الورقتين Contract sheet التي تحوي قاعدة البيانات، وورقة Daily sheet التي تجد فيها حركة السلع، وقد قمت بتلوين ثلاث أعمدة باللون الأحمر (الكتابة) وهي الأعمدة التي يتم إدخال المعلومات بها: IN ، OUT ، Date والورقة هي من تنسيق القائمة List والتي تقوم بتمديد الصفوف مع المعادلات... بالنسبة لاستخراج نموذج "ورقة الاستهلاك اليومية" يمكن تحضير نموذج تلقائي يتم فيه إدراج حركة السلع حسب التاريخ... وإذا كان معك نموذج قمت بتحضيره مسبقا فأرفقه في رد آخر وسنحاول تنظيمه حسب المطلوب... وتجدني إن شاء الله رهن إشارتك في أي شيء أعرفه... أخوك بن علية inventory22_1.rar

السلام عليكم ورحمة الله أخي الكريم، هذه محاولة أخرى مع الدالة SUMPRODUCT ودوال أخرى... إن شاء الله يكون هذا المطلوب... أخوك بن علية hben1.rar

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

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

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

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

السلام عليكم ورحمة الله أخي الكريم، تم تغيير طفيف جدا على الكود في السطر If ce = x Or x = 0 Then GoTo 10 إلى السطر If x = 0 Then GoTo 10 وفي الملف المرفق إن شاء الله تجد المطلوب... أخوك بن علية الحراسة 1.rar

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

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

السلام عليكم ورحمة الله أخي الكريم، بالنسبة للدالة IFERROR فهي فعلا غير موجودة في النسخ السابقة لنسخة 2007، ولكن يمكن استبدالها بالدالة IF مع ISERROR ويمكن استغلال التقويم في نسخة 2003 والمعادلة الوحيدة التي بها هذه الحالة هي المعادلة الموجودة في الورقة "ورقة1(2)" في الخلية P3 (على ما أعتقد) والمعادلة هي: =IFERROR(VLOOKUP(AD2;$A$70:$B$1204;2;0);"") ويمكن استبدالها بالمعادلة (أطول قليلا من سابقتها): =IF(ISERROR(VLOOKUP(AD2;$A$70:$B$1204;2;0));"";VLOOKUP(AD2;$A$70:$B$1204;2;0)) والله أعلم ملاحظة: بالنسبة لملاحظتك الأخيرة (قد لوّنتها بالأحمر في الاقتباس) لم أفهم ما تقصده... أخوك بن علية

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

السلام عليكم ورحمة الله أخي الكريم كيماس لقد جربت هذه الفكرة في الكود الذي وضعته سابقا دون جدوى قبل أن أستقر عند الكود الأخير... واستعملت الكود الذي قمتَ بتغييره واستبدلت الكود الذي كان عندي وبقي المشكل على حاله، بعد قص الصفوف التي تتحقق عليها الشروط المطلوبة يبقي الكود هذه الصفوف فارغة ولكنها لا تحذف... لست أدري إن كان المشكل في جهازي ؟ (وقد جربت تنفيذ الكود في نسخة أوفيس 2007 والمشكل هو هو)... أنتظر ردك وشرح سبب عدم عمل الكود معي بصورة صحيحة ... الذي أعرفه أن أمري CUT و PASTE يقومان بهذه العملية (حذف الصف ولصقه في مكان آخر) بالطرقة التي ذكرتها في شيت واحد، بينما الأمر يختلف من شيت لآخر (فالصفوف المقصوصة من شيت أول يتم لصقها في شيت ثان ولكن مكانها يبقى فارغا (وأقصد هنا الصفوف الداخلية لجدول) ... والله أعلى وأعلم أخوك بن علية

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

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

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

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

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

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

السلام عليكم ورحمة الله أخي الكريم هذه فكرة أخرى في حل هذه المسألة، تم إضافة عمودين في الورقة 1 وعمود في الورقة 2 بمعادلات بحث وترقيم (الأعمدة ملونة بالأصفر)، وهذا الترقيم تم استعماله في الأوراق 3 ، 4 ، 5 لترحيل البيانات المطلوبة بوساطة الدالتين INDEX و MATCH والكل تجده في الملف المرفق (وقد وضعت ملفين أحدهما لنسخة إكسيل 2003 والآخر لنسخة إكسيل 2007 أو 2010 ليستفيد الإخوة منهما)... أخوك بن علية Book1.rar