بن علية حاجي

السلام عليكم ورحمة الله أخي الكريم ، الخلل في المعادلة التي وضعتها في ملفك أنها لا تعتير الشروط المطلوبة إذ أن الجزء منها index(mohamed;2;4) يعطي دائما مضمون الخلية الموجودة في السطر الثاني والعمود الرابع من النطاق mohamed أي مضمون الخلية D6 الذي هو 10 باعتبار أن النطاق mohamed هو A5:Z25 من ورقة "مبيعات الفرع"... وقد تم في الملف المرفق تعديل في النطاق mohamed من A5:Z25 إلى A1:Z25 وتعديل المعادلة باستعمال الدالتين INDEX و MATCH وإن شاء الله تكون التعديلات مستوفاة للمطلوب... أخوك بن علية استدعاء بيانات بتاريخ معين.rar

السلام عليكم ورحمة الله أخي الكريم ، هذا حل أول باستعمال الدالة IF في الملف المرفق... أخوك بن علية المصنف1.rar

السلام عليكم ورحمة الله أخي الكريم، قم تم إضافة معادلة في العمود الأول (العمود A) من الورقة "التحضير اليومي" للترقيم التسلسلي التلقائي (ضروري لمعرفة عدد البيانات الفعلية) وباستعمال الكود التالي الذي يقوم بتغيير الأرقام في القائمة المنسدلة بالخلية B7 مع التحديث ثم الطباعة: Sub PRINT_ALL() Dim I As Integer Set xx = Application.WorksheetFunction mm = xx.Max(Sheets("التحضير اليومي").Range("A:A")) For I = 1 To mm If I <= mm Then [B7] = xx.Index(Sheets("التحضير اليومي").Range("B:B"), xx.Match(I, Sheets("التحضير اليومي").Range("A:A"), 0)) ActiveWindow.SelectedSheets.PrintOut Copies:=1 End If Next I End Sub أتمنى أن يكون في الملف المرفق كل المطلوب... أخوك بن علية PRINT111.rar

السلام عليكم ورحمة الله أخي الكريم تم تغيير المعادلات حسب المطلوب... أخوك بن علية جلب بيانات.rar

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

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

السلام عليكم ورحمة الله أخي الكريم ، جرب المعادلة التالية (تجدها في المرفق): =TEXT(C3;"[$-400C]mmm")&" ("&IF(DAY(C3)<=15;"1st Half)";"2nd Half)") أخوك بن علية Date_req.rar

السلام عليكم ورحمة الله أخي الكريم قمت بتفييرات على المعادلات في الملف المرفق... 12345.rar

السلام عليكم ورحمة الله أخي الكريم، إذا لم يكن هناك شروط أخرى للحساب في حالة الغياب ، يمكن استعمال المعادلة التالية: =SUM(A2;B2) أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم ما دمت تريد أن يكون تحديث آلي للقسط اليومي أي كلما مضى يوم يزيد مبلغ القسط اليومي الى خلية (المجموع اليومي للمصروفات) يجب فعلا أن تضيف خلية لتاريخ الكراء (وقد وضعته في الخلية الصفراء بالملف المرفق) والمعادلة المستعملة للتحديث الآلي تكون كما يلي: ثمن القسط الشهري + ثمن القسط اليومي * (تاريخ اليوم - تاريخ الكراء) أي أن المعادلة في الملف تكون: =G7+H7*(TODAY()-J7) حيث: G7 تحوي "ثمن القسط الشهري" ، H7 تحوي "ثمن القسط اليومي" و J7 تحوي "تاريخ الكراء" والله أعلم Classeur1.rar

السلام عليكم ورحمة الله أخي الكريم يمكن استعمال المعادلة التالية أيضا: بالفرنسية : =NB.SI($C:$C;"<5")-NB.SI($C:$C;"<4") أو بالإنجليزية: =COUNTIF($C:$C;"<5")-COUNTIF($C:$C;"<4") والله أعلم

السلام عليكم ورحمة الله أخي الكريم وضعت في الملف المرفق حلا آخر بالمعادلات (استعمال الدالتين IF و MATCH) ولعملهما بطريقة صحيحة يجب أن تكون الأسماء مكتوبة بالطريقة نفسها (وقد لاحظت أن بعض الأسماء في ملفك تختلف في كتابتها مثلا كلمة في همود مكتوبة بحروف معينة وفي العمود الآخر بالحروف نفسها ولكن مضاف إليها فراغ في الأخير)... والمعادلة التي وضعتها تبحث عن كل كلمة من العمود الأول في العمود الثاني فإن كانت غير موجودة (أو غير مطابقة) تترك الخلية فارغة وإن كانت موجودة تكتب في الخلية الكلمة الكلمة نفسها من العمود الأول في السطر نفسه... أخوك بن علية Question.rar

السلام عليكم ورحمة الله أخي الكريم، لقد ذكرت لك أنه يجب وجود الملفين معا في الدليل نفسه سواء استعملت خاصية الاستبدال أو الكود وإلا سيطالبك بالملف (الجديد) عند كل خلية كما حدث لك وفي نهاية الاستبدال تجد أن في كل خلية خطأ !REF# وهذا لسبب أن الملف غير موجود (أو أن الاسم غير مطابق) أو أن الورقة المعنية في الملف غير موجودة (أو اسم الورقة غير مطابق).... والله أعلم أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، لتغيير اسم الملف في مراجع الخلايا من Atrees Account إلى Ali Account يجب أن يكون الملفان موجودان معا في الدليل نفسه (مهم جدا وإلا ستكون العملية شاقا ثم في النهاية -بعد الاستبدال- تحصل على الخطا !REF#) ثم عن طريق الخاصية "استبدال" تقوم بالعملية بكل سهولة. يمكن أيضا استعمال كود (يمكنك إنشاؤه) يقوم مقام خاصية الاستبدال مثل الكود التالي: Sub Replacement() Cells.Select Selection.Replace What:=Range("B1"), Replacement:=Range("C1"), _ LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _ False, ReplaceFormat:=False End Sub حيث تضع الكلمة Atrees Account في الخلية B1 والكلمة Ali Account في الخلية C1 وتنفذ الكود... بالنسبة لتغيير الدليل فهذا يمكن بتحويل الدليل كله (بمحتواه) عن طريق قص/لصق من السواقة E إلى السواقة F ثم فتح الملفات وبطريقة تلقائية يتم التحديث (وقد جربت ذلك في جهازي)... ويمكنك أيضا استعمال الطريقة السابقة... والله أعلم

السلام عليكم ورحمة الله أشكر أخانا جمال على الدرر التي يتحفنا بها وبارك الله فيه وجزاه الله عنا ألف خير.. وأستسمحه في المشاركة معه وأقوم بتبسيط طفيف على المعادلة الثانية التي تعطي آخر يوم من الشهر : =TEXT(DATE(YEAR(A5);MONTH(A5)+1;0);"dddd") أخوكم بن علية

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

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

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

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

السلام عليكم ورحمة الله أخي الكريم، بارك الله لأخينا عبد الله وجزاه الله عنا خير الجزاء.... الكود الذي وضعه في الملف السابق لا يعمل في نسخة أوفيس 2003 لذا قمت باستبدال الجزء من الكود : With ActiveWorkbook.Worksheets("ورقة1").Sort .SetRange Range("I12:J100") .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With بالجزء التالي: Range("I11:J32").Sort Key1:=Range("I12"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal إن شاء الله تعالى سيعمل الكود مع هذه النسخة... (أنظر الملف المرفق) أخوك بن علية ترتيب الاسماء على حسب الارقام.rar

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

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

السلام عليكم ورحمة الله أخي الكريم، باستعمال معادلات الصفيف تم المطلوب باستعمال معادلة بالصيغة نفسها تقريبا إحداهما باستعمال الدالة SUMPRODUCT: =SUMPRODUCT(IF(Sheet2!$A$1:$A$10000=$A2;Sheet2!$B$1:$C$10000)) والأخرى باستعمال الدالة SUM =SUM(IF(Sheet2!$A$1:$A$10000=$A2;Sheet2!$B$1:$C$10000)) أنظر الملف المرفق أخوك بن علية sum vlookup.rar

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

السلام عليكم ورحمة الله أخي الكريم إذا أردت التنقل بين خلايا معينة في ورقة محمية نستعمل الزر TAB (مفتاح الجدول) وقبل هذا نقوم بما يلي: 1- نقوم بتحديد الخلايا المعنية بالتنقل باستعمل الفأرة ومفتاح Ctrl حسب ترتيب التنقل ثم نزيل الحماية على هذه الخلايا 2- نقوم بحماية الورقة وباستعمال المفتاح TAB يكون التنقل من خلية إلى خلية أخرى حسب ترتيب الخلايا (ترتيب التحديد) أرجو أن يكون الشرح مفهوما وكنت أود أن أقوم بالعملية على ملفك ولكن نسخة أوفيس 2007 تعطلت عندي ولا أجد الوقت الكافي لتصليحها اليوم... والله أعلم