بن علية حاجي

السلام عليكم ورحمة الله أخي الكريم، اعذرني أيضا لعدم الاتصال قبل اليوم وقد ذكرت لك أن عندي مشكل في النت بالبيت ورغم تقديم شكوى للمصالح المعنية لم يتم تصحيح الخلل حتى هذه اللحظة، وقد عدت إلى الطريقة القديمة وهي الاتصال عن طريق مودم عادي وأنا الآن متصل بسرعة 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

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

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

السلام عليكم ورحمة الله ألا تقصد بكلامك " وعند اختيار 3 من الثانية يوجد 3 فقط فى الثالثة" هو "وعند اختيار 3 من الثانية يوجد 2 فقط فى الثالثة"؟؟ والذي معناه : الاختيار الذي يكون في A لا يكون موجودا لا في B ولا في C والذي يكون في B لا يكون موجودا في C... إذا كان كذلك فانظر إلى الملف المرفق.. أخوك بن علية قوائم منسدلة مرتبطة_1.rar

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

السلام عليكم ورحمة الله أخي الكريم أقدم لك الملف المرفق فيه المطلوب إن كنت قد فهمتُهُ... أخوك بن علية قوائم منسدلة مرتبطة.rar

السلام عليكم ورحمة الله أخي الكريم جزانا الله وإياكم ووفقك أخي الكريم لكل خير... بالنسبة للخلية L10 فهي تحوي مجموع خلايا النطاق I10:K10 كما هو موجود في المعادلة المكتوبة بهذه الخلية (أي هي مجموع علامات مادة الكيمياء) ويمكنك استحداث عمود جديد تضع فيه المجموع العام لكل المواد (عربية بـ24، إنجليزي بـ20، فرنساوي بـ12، تاريخ بـ20، وكمياء بـ20 على ما أعتقد، وعلامة المجموع 96) ويكون الملف (حسب رأيي) كما وضعته في الملف المرفق... وإن شاء الله لا حرج بيننا فتجدني في الخدمة في كل وقت ما دمت أعرف وموجودا بالمنتدى... أخوك بن علية Book2_3.rar

السلام عليكم ورحمة الله أخي الكريم أبو محمد، الكود موجود في الملف ويعمل جيدا وهو مسجل في Module1... وهو كما يلي: Sub KH_START() Dim R As Integer, M As Integer, N As Integer, O As Integer Sheets("محمود").Range("A5:ap1000").ClearContents Sheets("منير").Range("A5:ap1000").ClearContents Sheets("خالد").Range("A5:ap1000").ClearContents M = 5: N = 5: O = 5 Application.ScreenUpdating = False For R = 1 To 1000 If Cells(R, 4) = "محمود" Then Range("A" & R).Resize(1, 5).Copy Sheets("محمود").Range("A" & M).PasteSpecial xlPasteValues Application.CutCopyMode = False M = M + 1 ElseIf Cells(R, 4) = "منير" Then Range("A" & R).Resize(1, 5).Copy Sheets("منير").Range("A" & N).PasteSpecial xlPasteValues Application.CutCopyMode = False N = N + 1 ElseIf Cells(R, 4) = "خالد" Then Range("A" & R).Resize(1, 5).Copy Sheets("خالد").Range("A" & O).PasteSpecial xlPasteValues Application.CutCopyMode = False O = O + 1 End If Next MsgBox ("الحمد لله عملية الترحيل تمت بنجاح...") Application.ScreenUpdating = True End Sub وتجده أيضا في ملف "الترحيل" (الملف المرفق) في ورقة "شرح" يمكنك نسخه من هناك انطلاقا من الخلية التي تحوي الأمر Sub KH_START إلى الخلية التي تحوي End Sub ولصقه في ملفك على شكل Module (ماكرو)... ولكن الكود لا يعمل إلا مع الثلاثة (محمود-منير-خالد)... أخوك بن علية ترحيل.rar

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

السلام عليكم ورحمة الله أخي الكريم جلال، لم أفهم عليك الطلب الجديد الذي قلت فيه : "ممكن زيادة شرط علي الكود لكى بأن يضع دائرة علي مجموع الطالب اللذى لم يحصل علي ربع الدرجة كما في المثال" والسؤال على "ربع الدرجة كما في المثال" هل تقصد بها ربع 20 أي 5 أم غيره؟ أرجو شرحا لذلك... أخوك بن علية

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

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