بن علية حاجي

السلام عليكم ورحمة الله أخي الكريم، تم إضافة معادلة في H18 للضريبة حسب جدول القيم الذي وضعتَه في ردك السابق مع إضافة شرط "إذا كانت قيمة الخلية H16 أقل من 50 فإن قيمة الخصم تساوي 0" حتى لا تعطي المعادلة خطأ في هذه الحالة... يجب ملاحظة أن كل عبارة من الشكل (مثلا) "من 50 إلى 250" هي مجال من الشكل [250،50[ وهذا يعني أن القيمة 50 هي قيمة من هذا المجال بينما القيمة 250 ليست من هذا المجال وتدخل في المجال الذي يليه وهكذا... أرجو أني وُفقت في تقريب المفهوم واستيفاء المطلوب... أخوك بن علية مفردات المرتب1.rar

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

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

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

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

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

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

السلام عليكم ورحمة الله أخي الحبيب محمود، والله لا مشكلة في ذلك وقد كنت تحضر ردك في الوقت نفسه مثلما حدث معي في رد أخينا الحبيب عبد الله، فجازاكما الله خيرا، ثم إن تنوع الحلول يعطي الموضوع نكهة جميلة جدا... بالإضافة إلى حلك بالمعادلات يمكن استعمال المعادلة التالية (في الخلية J2 من مرفقك ثم سحبها إلى اليسار ثم إلى الأسفل) : =IF(MIN($A2:$F2)=A2;"";A2) أخوك بن علية

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

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

السلام عليكم ورحمة الله أخي الكريم، تم التعديل على المعادلات التي فيها خطأ (ظهور النتيجة بالسالب)... أخوك بن علية مفردات المرتب--++_3.rar

السلام عليكم ورحمة الله أخي الكريم، تم تعديل بعض المعادلات في الملف (في الخلايا الملونة بالأخضر) ولست أدري إن كان هذا المطلوب لأني لم أتابع الموضوع جيدا ووجدت هذا الرد الذي فيه مطلوب لتصحيح خطأ بعض المعادلات... أخوك بن علية مفردات المرتب--++.rar

السلام عليكم ورحمة الله أخي الكريم إبراهيم، باعتبار أن آخر يوم من كل سنة هو 31 من الشهر 12 حضرت لك الكود البسيط التالي (حسب ملفك) والذي يوضع في حدت الورقة: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect([C2], Range("C:C")) Is Nothing Then [C4].Value = "12/31/" & [C2] - 1: [C6] = [C2] - 1: [D6].Value = 12: [E6].Value = 31 End If End Sub وتجد تطبيقه في الملف المرفق التالي : السنه+.rar أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم إيهاب، وضعت في الخلية A11 والخلية B11 معادلات شرطية حسب مجموع النطاق A4:A8 (نطاق قيم القروش) في الملف المرفق. ويمكن حجز المعادلات نفسها حسب نطاقات المختلفة للقروش في الجدول.... أرجو أن يكون العمل مقبولا ومستوفيا المطلوب... أخوك بن علية Desktop.rar

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

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

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

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

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

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

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

السلام عليكم ورحمة الله أخي الكريم إبراهيم، لم تبين لنا التاريخ (من ... إلى ...) يكون حسب ماذا؟ وفي الملف المرفق اعتمدت أن يكون التاريخ (من... إلى...) يكون حسب العمودين C و D من شيت Hotel ... أرجو أن يكون اجتهادي في محله.... أخوك بن علية Copy of HOT(1).rar

السلام عليكم ورحمة الله أخي الكريم إبراهيم، طلبك ممكن جدا ولكن الطريقة التي تم جلب البيانات بها (بداية من السطر رقم 10 لكل رقم من السطر الخامس -رقم Hotel-) لا تُمكِّن من جلب بيانات العمودين C و D بالطريقة الصحيحة -أنظر إلى المرفق وسترى الخلل في البيانات (فيما يخص البيانات التي تم استعداؤها من العمودين C و D مع البيانات الأخرى)... حسب رأيي يجب التفكير في طريقة أخرى لاستدعاء البيانات... أخوك بن علية Copy of HOT.rar

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

السلام عليكم ورحمة الله أهلا بك أخي "أبو حنين" افتقدك المنتدى كثيرا وشكر على الكود الجميل الذي وضعته... هذا حل آخر بالمعادلة على أساس أن البيانات في العمود A من الورقة Sheet1 : =INDEX(Sheet1!A:A;MATCH("zzz";Sheet1!A:A;1)) بطبيعة الحال هذا إن لم يكن أحد المستعملين اسمه "zzz" وأن تكون الأسماء نصية... أخوكم بن علية