بن علية حاجي

السلام عليكم ورحمة الله أخي الكريم إن التعامل مع الوقت في الإكسيل بالمعادلات فيه بعض الصعوبة، تقول إن ما قدمه أخي هشام وما قدمته فيه خطأ وقد قمت بتصحيحه باعتبار التوقيت 24 ساعة، ولكن جرّّب في ملفك المرفق أن تغير تاريخ النهاية في السطر 5 من ص 12:00 إلى ص 09:00 وانظر ماذا يحدث؟ إن معادلتك التي وضعتها في الحالة الثانية (الشرط الثاني للدالة If) ليس لها علاقة بتوقيت النهاية البتة... ولذلك فالنتيجة ستكون حتما خاطئة... ولتصحيح الأخطاء يجب اعتماد التوقيت مع التاريخ لأنه (مثلا) إذا كان توقيت البداية هو ص 10:00 وتوقيت النهاية هو ص 09:00 فإن هذا التوقيت (ص 09:00) يعني توقيت يوم آخر غير يوم توقيت البداية (يمكن أن يكون الموالي مباشرة أو يوم آخر) وهنا يمكن أن يكون الفرق بين التوقيتين كبيرا... والله أعلم أخوك بن علية

السلام عليكم ورحمة الله للتحويل من النظام العشري إلى النظام الثنائي نستعمل الدالة()DECBIN أو ()DEC2BIN وللتحويل من النظام العشري إلى النظام الثماني نستعمل الدالة ()DECOCT أو ()DEC2OCT ويجب أن تكون خاصية Analysis ToolPak قد تم تفعيلها من خاصية "وظائف إظافية Complementary macro" في قائمة TOOLS أخوكم بن علية

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

السلام عليكم ورحمة الله أخي الكريم ربما لم أفهم المطلوب بالضبط ولكني أقترح الصيغة التالية : =ABS(A1-A2) إذا فرضنا أن A1 و A2 تحويان التوقيتين 10:45 و 01:30... أخوك بن علية

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

السلام عليكم ورحمة الله أعرف أن إخواني لم يبخلوا بما عندهم من فوائد... وأقدم أيضا عملا بواسطة كود يقوم بنسخ كل القائمة (الموجودة في العمود A) في العمود B ثم يرتبها ترتيبا تصاعديا وبعدها يقوم بحذف كل الأسماء المكررة في هذا العمود ثم يعاود الترتيب التصاعدي للأسماء التي بقيت وباستعمال الخاصية "التحقق من الصحة" واستعمال الدالة OFFSET فيها نقوم بتشكيل القائمة المنسدلة من العمود B انطلاقا من السطر 5... وإليكم المثال في الملف المرفق (وهو يعمل على 2007 و على 2003)... أخوكم بن علية قائمة منسدلة دون تكرار.rar

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

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

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

السلام عليكم ورحمة الله حلول جميلة جدا من إخوة أجمل وأروع... لكن أريد أن أستفسر لماذا استعمل الرقم 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 والله أعلم

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