بن علية حاجي

السلام عليكم ورحمة الله أخي الكريم، الدالة هي نفسها من السطر 1 إلى السطر 85، فالصيغة الأولى نتيجتها محدودة بالنطاق 85:1 بينماالصيغة الثانية ليست محدودة فهي تبحث عن قيمة Q1 في كل خلاياالعمود'R'!A:A وتعطي النتيجة المقابلة من العمود'R'!BW:BW والله أعلى وأعلم أخوك بن علية

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

السلام عليكم ورحمة الله أخي الكريم، هذا حل آخر باستعمال دالة IF مرة واحدة ودالة INDEX مع MATCH وبإضافة جدول للتقديرات يُعتمد عليه في إعطاء التقدير المناسب... أخوك بن علية التقديرات3.rar

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

السلام عليكم ورحمة الله أخي الكريم هذا الكود كنت قد حضرته سابقا لاستعمالاتي الشخصية في كتابة البحوث والمذكرات وقد وضعته في المنتدى في موضوع آخر على شكل قالب Normal.dot وأضعه بين أيديكم للاستفادة منه ولم أستعمله إلا في أوفيس 2003 ولست أدري إن كان يصلح للنسخ الأخرى... والكود كما يلي: Public Sub MAIN() WordBasic.Insert "()" WordBasic.CharLeft 1 WordBasic.NoteOptions FootnotesAt:=0, FootNumberAs:=0, FootStartingNum:="1", FootRestartNum:=2, EndnotesAt:=1, EndNumberAs:=5, EndStartingNum:="1", EndRestartNum:=0 WordBasic.InsertFootnote Reference:="", NoteType:=0 WordBasic.Insert "- " WordBasic.StartOfLine WordBasic.Insert "(" WordBasic.CharRight 1 WordBasic.Insert ")" WordBasic.CharLeft 3, 1 WordBasic.FormatFont PointsBi:="14", ColorBi:=0, DiacColor:=0, Points:="10", Color:=0, StrikeThrough:=0, Superscript:=1, Subscript:=0, Hidden:=0, SmallCaps:=0, AllCaps:=0, Underline:=0, Spacing:="0 pt", Position:="0 pt", Kerning:=0, KerningMin:="", Tab:="1", Font:="Times New Roman", FontNameBi:="Traditional Arabic", Bold:=0, Italic:=0, BoldBi:=0, ItalicBi:=0 WordBasic.ViewFootnoteArea WordBasic.CharRight 2 WordBasic.Insert " " WordBasic.CharLeft 4 WordBasic.CharRight 3, 1 WordBasic.FormatFont PointsBi:="16", ColorBi:=0, DiacColor:=0, Points:="12", Color:=0, StrikeThrough:=0, Superscript:=1, Subscript:=0, Hidden:=0, SmallCaps:=0, AllCaps:=0, Underline:=0, Spacing:="0 pt", Position:="0 pt", Kerning:=0, KerningMin:="", Tab:="1", Font:="Times New Roman", FontNameBi:="Traditional Arabic", Bold:=0, Italic:=0, BoldBi:=0, ItalicBi:=0 WordBasic.CharRight 2 End Sub ويمكن التغيير فيه مثل حجم الخط في الهامش وحجم الخط في الصلب... أخوكم بن علية

السلام عليكم ورحمة الله أخي الكريم، إن الدالة CONCATENATE لا تقبل أكثر من 30 وسيط، وفي مثالك قد تجاوزت هذا الحد بين IF و " " لهذا ينبغي استعمال هذه الدالة أكثر من مرة للوصول إلى المبتغى... وفي الملف المرفق تجدني قد وصلت إلى عدد الشروط (18 شرط) التي تريد الوصول إليها مع إضافة دالة IF في بداية الصيغة في حالة ما إذا كان مجموع كل المواد يساوي 0 فتترك خلية "مواد الرسوب" خالية... وتأكد من الشروط التي أضفتها على الصيغة حتى تتماشى والمطلوب... أخوك بن علية داله محيرة_1.rar

السلام عليكم ورحمة الله إضافة إلى حل أخي الحبيب كمال هذا حل آخر بطريقة أخرى مع إضافة تنسيقات شرطية وتحقق من الصحة... أخوكم بن علية 1_1.rar

السلام عليكم ورحمة الله أخي الكريم جرب المعادلة التالية : =VLOOKUP(B6;LIST!$1:$1048576;2;FALSE) لأن ورقة LIST موجودة أصلا بالمصنف (الملف) وتقوم باستبدال العبارة 'L:\123\[PSSWORD.xlsx]LIST'! بالعبارة LIST! في كل المعادلات الأخرى وبإذن الله يتم المطلوب... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، قمت بإضافات كثيرة على الملف وتعديلات على المعادلات وعلي الخصوص في قائمة الحراس المعنية بالحراسة في كل فترة (في مثالنا 5 فترات)... يبقى المشكل الوحيد (وهذه لا تُعمل إلا يدويا) وهو أن يتناسب عدد الحراس في كل فترة مع العدد المطلوب في كل القاعات (عدد الحراس في كل قاعة × عدد القاعات) وللقيام بذلك يتم إعفاء حراس آخرين (ليكون أيضا العدل في الحراسة والإعفاءات) إذا كان عدد الحراس أكبر من العدد المطلوب، أو يتم الترخيص للحراس المعفيين (بسبب المادة) للحراسة في الفترة التي يكون فيها عدد الحراس أقل من العدد المطلوب... والله أعلم أخوكم بن علية الحراسة تجريبي_2.rar

السلام عليكم ورحمة الله أخي الكريم بوعلام، يمكنك استعمال المعادلة التالية (وقد تم تطبيقها في الملف المرفق): =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)) والله أعلم ملاحظة: بالنسبة لملاحظتك الأخيرة (قد لوّنتها بالأحمر في الاقتباس) لم أفهم ما تقصده... أخوك بن علية