بن علية حاجي

السلام عليكم ورحمة ورحمة الله أخي الكريم، هذا مثال في الملف المرفق لتحديد ناحية الطباعة أوتوماتيكيا باستعمال التسميات بواسطة المعادلات، وناحية الطباعة (في المثال) تتحدد بداية من الخلية A1 إلى آخر خلية مملوءة في العمود A (طولا) وآخر خلية مملوءة في السطر الأول (عرضا)... يمكن تحديد ناحية الطباعة باستعمال الأكواد... الملف المرفق : ناحية الطباعة تلقائية.rar أخوك بن علية

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

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

السلام عليكم ورحمة الله أخي الكريم حسام، كنت قد حضرت الملف وبه التعديل قبل طلبك والآن أرسله لك بالملف المرفق بالرابط التالي: الرابط : http://www.gulfup.com/?XIp9cC أخوك بن علية

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

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

السلام عليكم ورحمة الله أخي الكريم، هذه نسخة معدلة أخرى للملف حيث تم إضافة شرط لاختيار عمود المبلغ حسب رقم الشهر، في الخلية O6 يتم اختيار رقم الشهر حسب ترتيب الشهور ثم النقر بيمين الفأرة على الاسم المراد ترحيله مع مبلغ الشهر الذي تم تحديده... لا تحذف المعادلة التي تم حجزها في الخلية P6 وهي التي تحدد رقم عمود في الجدول للشهر الذي تم تحديده في الخلية O5... أرجو أن يعجبك هذا التعديل.... أخوك بن علية رابط الملف المعدل : http://www.gulfup.com/?Nln6lq

السلام عليكم ورحمة الله أخي الكريم، إن ما تطلبه غير ممكن بالكود الذي وضعته في حدث الورقة باستعمال خاصية Worksheet_SelectionChange لذا تم تبديل الكود إلى الخاصية Worksheet_BeforeRightClick وهذه المرة لترحيل البيانات يجب النقر Clic على الفأرة Mouse باليمين على خلية الاسم في العمود D... وباستعمال هذه الخاصية في الكود يمكنك تحديد عمود الأسماء D وحده لعملية البحث... ملاحظة : الاسم هو "بن علية" وليس "بن حاجي" رابط الملف المرفق : http://www.gulfup.com/?4t9MUr أخوك بن علية حاجي

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

السلام عليكم ورحمة الله أخي الكريم قنديل الصياد، لست أدري ما علاقة فتح ملف إكسيل بإصدار الويندوز، لأن في جهازي أعمل على النسختين ولم أر أي مشكل بفتح الملف في النسختين وعند الفتح يطالبني دائما باسم المستخدم وكلمة المرور ولا يسمح لك بفتح الملف دونهما... ربما تقصد نسخ الأوفيس 2003 وأكبر (في جهازي أعمل بنسختي إكسيل 2003 و 2010 في كل ويندوز)... في هذه الحالة عند فتح الملف بنسخة 2010 (بعد إدخال اسم المسنخدم وكلمة المرور -ضروريان-) وبعد حفظ الملف وغلقه لا يفتحه إكسيل 2003 (عندي) إلا بعد عملية الاسترداد وفي هذه الحالة تضيع كل الأكواد والفورمات ولا يبقى إلا البيانات... لذا قمت بحفظ الملف بنسختين واحدة للإكسيل 2003 والأخرى للإكسيل 2010 (أو 2007) في الملف المرفق... ملاحظة: قمت بتعديل (حل آخر) لمعادلة التقديرات... أخوك بن علية الملف المرفق : كنترول نصف العام.rar

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

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

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

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

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

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

السلام عليكم ورحمة الله أخي الكريم، لست أدري إن كنت قد فهمت المطلوب، انظر إلى الملف المرفق الذي تم فيه نعديل على الكود حسب المطلوب الذي فهمته... أخوك بن علية الملف المرفق على الرابط التالي: http://www.mediafire.com/?bhapttt5a4ysx54

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

السلام عليكم ورحمة الله أخي الكريم حسام، جرب الكود التالي في حدث الورقة 1: Private Sub Worksheet_SelectionChange(ByVal Target As Range) LRow1 = Sheets("æÑÞÉ1").Range("A65000").End(xlUp).Row LRow2 = Sheets("æÑÞÉ2").Range("A65000").End(xlUp).Row + 1 If Not Intersect(Target, Range("A2:A" & LRow1)) Is Nothing Then With Sheets("æÑÞÉ1") .Range(.Cells(Target.Row, 1), .Cells(Target.Row, 2)).Copy Sheets("æÑÞÉ2").Range("A" & LRow2) End With End If End Sub العبارة "æÑÞÉ" في الكود معناه "ورقة" وقد تم تطبيقه على ملفك في المرفق: hosam.rar أخوك بن علية

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

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

السلام عليكم ورحمة الله أخي الكريم إبراهيم، المشكل كله يكمن في السطر من الكود الذي ذكرت أنه "عندما يصل الكود إليه يعطي الخطأ" وهو Workbooks(Fname).Close True لذا أقترح عليك استبداله بالجزء التالي : For Each Wbk In Excel.Workbooks If Wbk.Name <> ThisWorkbook.Name Then Wbk.Close End If Next دون أن تنسى الإعلان في بداية الكود بالمتغير Wbk باستعمال العبارة Wbk As Excel.Workbook وقد وضعت الكود كاملا في الملف المرفق التالي: test.rar أخوك بن علية

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

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

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