بن علية حاجي

السلام عليكم ورحمة الله أخي الكريم ما دمت تريد أن يكون تحديث آلي للقسط اليومي أي كلما مضى يوم يزيد مبلغ القسط اليومي الى خلية (المجموع اليومي للمصروفات) يجب فعلا أن تضيف خلية لتاريخ الكراء (وقد وضعته في الخلية الصفراء بالملف المرفق) والمعادلة المستعملة للتحديث الآلي تكون كما يلي: ثمن القسط الشهري + ثمن القسط اليومي * (تاريخ اليوم - تاريخ الكراء) أي أن المعادلة في الملف تكون: =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 تعطلت عندي ولا أجد الوقت الكافي لتصليحها اليوم... والله أعلم

السلام عليكم ورحمة الله أخي الكريم يمكن أيضا ذلك دون الدخول إلى اسم عضويتك وذلك بوضع (دون Click) مؤشر الفأرة Mouse على اسم عضويتك في إحدى مشاركاتك فتظهر علبة بها بعض المعلومات الخاصة بك وفي أسفل العلبة على اليمين تجد الاختيار FIND CONTENTS وبه تجد مطلوبك... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم هذه الميزة موجودة يكفي أن تدخل على اسم عضويتك ثم من الأعلى على اليسار تختار الخاصية FIND CONTENTS وتعرض عليك كل المواضيع التي شاركت بها (Topics and Posts) ويمكن اختيار من اليمين في القائمة المنسدلة الخاصية Only Topics للمواضيع التي فتحتها فقط أو الخاصية Only Posts لمشاركاتك في المواضيع (الردود)... والله اعلى وأعلم أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم وهذا حل آخر باستعمال الدوال DATE و TIME و RIGHT و LEFT في الملف المرفق... أخوكم بن علية Date and Time.rar

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

السلام عليكم ورحمة الله أخي الكريم، إذا أردت أن تأخذ الدالة القيم من Sheet1!A7 بالخطوة 7 وبدأت من A1 في الشيت Sheet2 فيكن ببساطة استعمال المعادلة البسيطة في الخلية A1: =INDIRECT("Sheet1!A"&7*ROW()) أنظر الملف المرفق... أخوك بن علية مثال2.rar

السلام عليكم ورحمة الله أخي الكريم، وإضافة إلى حل أخي الحبيب عبد الله "أبو أحمد" أقدم لك الملف المرفق مع بعض التغييرات وإضافة دوال صفيف تم المطلوب... أخوك بن علية suppliers required.rar

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

السلام عليكم ورحمة الله أخي الكريم، وجدت لك الكود التالي (دالة مستحدثة): Function Inverse(StartString) As String Dim i As Integer, LenString As Integer Inverse = "" LenString = Len(StartString) For i = LenString To 1 Step -1 Inverse = Inverse & Mid(StartString, i, 1) Next i End Function وتطبيقة في الملف المرفق... أخوك بن علية عكس نص الخلية.rar

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