بن علية حاجي

السلام عليكم ورحمة الله حلول جميلة جدا من إخوة أجمل وأروع... لكن أريد أن أستفسر لماذا استعمل الرقم 9.99999999999999E+307 في الصيغتين: =INDEX(D:D;MATCH(9,99999999999999E+307;D:D)) و =LOOKUP(9.99999999999999E+307;D2:D11000) ألم يكن كافيا أن نأخذ مكانه الرقم 1 (لنسبة 100 %) أو الرقم 2 (لنسبة 200 %) أو الرقم 3 (لنسبة 300 %) وهكذا... أخوكم بن علية

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

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

السلام عليكم ورحمة الله أخي الكريم صفوان هذا الذي كنت قد قلته سابقا وكل هذه الحالات وجدتها وأنا أعمل على الكود وقلت لك إني استغربت أن الكود قد عمل معك جيدا ... ولإيجاد الحل لهذه المشكلة وأعتقد أنها المشكلة الوحيدة المتبقية أود أن أعرف منك أنواع فترات التسديد التي تستعملها في ملفك وطريقة تسديدها مثلا من 15/01/2010 إلى 15/03/2011 هل تجعلها كالتالي: القسط الأول من 15/01/2010 إلى 31/01/2010 وقسط أخير من 01/03/2011 إلى 15/03/2011 والباقي يقسم على الأشهر 02/2010، 03/2010، 04/2010 ... 02/2011 أي على 13 شهر أم كيف تتم العملية؟؟؟ والحالات الأخرى... أنتظر ردك وأعدك أني سأعمل على ملفك وعلى الكود بما أستطيع ليعمل بشكل جيد بمجرد الحصول على هذه المعلومات... أخوك بن علية

السلام عليكم رحمة الله أخي الكريم حسن علي بارك الله فيك وجزاك الله ألف خير وخير... أنت تعرف أن لا حرج بيننا وكل هذه المداخلات هي لنا فائدة وإذا كثرت الردود والأفكار عمّت الفائدة... أخوك دائما بن علية

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

السلام عليكم ورحمة الله أخي الكريم EngMoh يمكنك القيام بذلك باستعمال مثلا الدالة TRUNC وبوضع هذه الدالة في عمود مجاور للعمود الذي يحوي هذه القيم على الشكل التالي (إذا فرضنا أن القيم موجودة في العمود A بداية من الخلية A2): =TRUNC(B2;2) ثم نقوم بسحب الصيغة إلى الأسفل... والله أعلم

السلام عليكم ورحمة الله أخي الكريم صفوان إني أعمل على تحسين الكود وجعله يعمل بطريقة سليمة... يمكنك كتغيير أول أن تقوم بتبديل السطر: If Cells(Target.Row, 6) = "" And Cells(Target.Row, 7) = "" Then بالسطر If Cells(Target.Row, 6) = "" Or Cells(Target.Row, 7) = "" Then وفيه قمت بتغيير كلمة And بكلمة Or فقط (يمكن تصحيحها مباشرة دون تبديل كل السطر)... وللقيام بتصحيح الخلل (الذي يظهر بعد تغيير تاريخ بداية أو نهاية فترة التسديد مباشرة) يجب مسع مضمون أي خلية من هاتين الخليتين كل مرة قبل وضع التاريخ الجديد فيها ولا نغير هذا التاريخ مباشرة... وسأبعث لك كل مرة أي تصحيح جديد للكود إن لم يقم أحد الإخوة الكرام بهذا التصحيح... أخوك دائما "بن علية"

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

السلام عليكم ورحمة الله أخي الكريم، اعذرني أيضا لعدم الاتصال قبل اليوم وقد ذكرت لك أن عندي مشكل في النت بالبيت ورغم تقديم شكوى للمصالح المعنية لم يتم تصحيح الخلل حتى هذه اللحظة، وقد عدت إلى الطريقة القديمة وهي الاتصال عن طريق مودم عادي وأنا الآن متصل بسرعة 31 كيلوبايت/ثانية فقط (وخطي الحقيقي هو ADSL بـ 1 ميغابايت/ثانية)، المهم أني متصل على الأقل أقوم بالرد على بعض المواضيع وأقوم بتحديث بعض البرامج مثل مضاد الفيروسات... بالنسبة لملفك أعتقد أن به بعض الأخطاء لم أستطع أن أسألك على بعض الأمور من بينها ما يخص تاريخي بداية فترة التسديد ونهايتها... وعند قولك إنه يشتغل جيدا استغربت الأمر... بالنسبة لتشغيل البرنامج في إكسيل 2007 تجد فيه المشكل الذي ذكرته وأعتقد أن حله هو إضافة السطرين التاليين بعد كل أمر IF مباشرة في الكود إن لم يكونا موجودين، السطران هما: Application.EnableEvents = False Application.ScreenUpdating = False والكود يكون بعد تغييره على الشكل التالي: Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Integer Dim j As Integer On Error GoTo 1 If Cells(Target.Row, 6) = "" And Cells(Target.Row, 7) = "" Then Application.EnableEvents = False Application.ScreenUpdating = False Range(Cells(Target.Row, 24), Cells(Target.Row, 59)).Value = "" Application.EnableEvents = True Application.ScreenUpdating = True End If If Cells(Target.Row, 6) <> "" And Cells(Target.Row, 7) <> "" Then Application.EnableEvents = False Application.ScreenUpdating = False x = Cells(Target.Row, 21) y = Cells(Target.Row, 23) i = Month(Cells(Target.Row, 6)) j = Cells(Target.Row, 9) + i - 1 If x = 0 And y = 0 Then Application.EnableEvents = False Application.ScreenUpdating = False Range(Cells(Target.Row, i + 23), Cells(Target.Row, j + 25)).Value = Cells(Target.Row, 22) Application.EnableEvents = True Application.ScreenUpdating = True End If If x <> 0 And y = 0 Then Application.EnableEvents = False Application.ScreenUpdating = False Cells(Target.Row, i + 23) = x Range(Cells(Target.Row, i + 24), Cells(Target.Row, j + 24)).Value = Cells(Target.Row, 22) Application.EnableEvents = True Application.ScreenUpdating = True End If If x = 0 And y <> 0 Then Application.EnableEvents = False Application.ScreenUpdating = False Cells(Target.Row, j + 24) = y Range(Cells(Target.Row, i + 23), Cells(Target.Row, j + 23)).Value = Cells(Target.Row, 22) Application.EnableEvents = True Application.ScreenUpdating = True End If If x <> 0 And y <> 0 Then Application.EnableEvents = False Application.ScreenUpdating = False Cells(Target.Row, i + 23) = x Cells(Target.Row, j + 24) = y Range(Cells(Target.Row, i + 24), Cells(Target.Row, j + 23)).Value = Cells(Target.Row, 22) Application.EnableEvents = True Application.ScreenUpdating = True End If Application.EnableEvents = True Application.ScreenUpdating = True End If 1 End Sub واعذرني إن لم يكن التنظيم جيدا وخاصة للأكواد.... والله أعلم

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

السلام عليكم ورحمة الله أخي الكريم mselmy إن ما تطلبه ممكن جدا وقد تناوله الأخ "ابن المدينة" في موضوع سابق وإليك رابطه، اطّلع عليه وإن شاء الله ستجد فيه ضالتك وطلبك... http://www.officena.net/ib/index.php?showtopic=31663&st=0&p=161347&fromsearch=1&#entry161347 وإذا لم يفدك الموضوع سأعود إليك إن شاء الله أو أحد الإخوة الكرام... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم قمت بالعملية باستعمال دالتين الأولى وضعها أخي وحبيبي هشام في موضوع سابق EXTRACTNUMBER والثانية هي الدالة SUBSTITUTE وتلاحظ استعمالهما في الملف المرفق مع الشرح لعملية الفرز... إن شاء الله يكون هذا المطلوب... أخوك بن علية الصنف1.rar

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

السلام عليكم ورحمة الله أخي الكريم سليم العملية الحسابية للمطلوب تكون كما يلي: زيادة 25 % : 22000 × 1.25 حسم 25 % : 22000 × 0.75 والله أعلم

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

السلام عليكم ورحمة الله أخي الكريم ، أعتقد أنك قمت بتوظيف خاصية"متابعة التغييرات" من قائمة "أدوات" أو قمت بالضغط على CTRL+SHIFT+R، ما عليك إلا أن تلغي هذه الخاصية ويعود الأمر إلى طبيعته... إلغاء الأمر يكون بلبحث عن الخاصية في قائمة الأوامر وإلغائها أو ببساطة قم بالضغط على CTRL+SHIFT+R إن كنتُ قد فهمتُ المشكل فإن شاء الله تجد الحل بما قلته لك... والله أعلم

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

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

السلام عليكم ورحمة الله لقد ظهر معي هذا الخلل... قم بتبديل الدالة ROUNDUP بالدالة ROUND قي الصيغة وإن شاء الله تجد حلا للمسألة... وفي الملف المرفق قمت بالعملية في كل الصيغ... والله أعلم جدول محصلات2.rar

السلام عليكم ورحمة اله لم أجد عندي هذا الخلل، رجاء أرفق المثال الذي به هذه الحالة...

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

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

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

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