أبوعيد

السلام عليكم جرب المرفق 1 datamastar.rar

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

اهلا بك 1/ تم التعديل بإضافة فاتورة الشراء 2/ تم التخلص من الرسالة التي تظهر عند الحفظ 3/ يمكن دمج الكودين مع بعضهما ولكن يجب أن أعرف مهمة كود البحث يعني ما هي مهمة كود البحث ؟ الرجاء إرفاق الملف وبه كود البحث مع الشرح مولد السريال المعدل.rar

تفضل جرب المرفق Export Workbooks Using Filter Method V2.rar

وعليكم السلام ورحمة الله وبركاته الرجاء مطالعة هذا الموضوع منع المستخدم من فك حماية الشيت http://www.officena.net/ib/topic/63306-منع-المستخدم-من-فك-حماية-الشيت/?do=findComment&comment=411097

إذا كان كذلك فلا داعي لخانة (مدة العقد) لأنها ستكون سنة واحدة دائما ماذا بعد هذه الخطوة ؟

كلامك صحيح إذا كان مدة العقد سنة كاملة ولكن إذا زادت المدة عن سنة فسيختلف الأمر أهلا بك

هل تعلم أن عدد الخلايا في الشيت الواحد لإكسل يساوي (تقريبا) ضعف سكان العالم

السلام عليكم تم وضع المعادلة في الخلية C4 فقط وبواسطة الكود يتم تطبيقها على كامل العمود C جرب المرفق توليد سريال3.rar

ما معنى تاريخ الحلول ؟ جرب المرفق متابعة الايجار2.rar

نعم يمكن الاستغناء عن vlookup ويمكن تحويلها إلى كود جاري العمل على ملفك

جرب المرفق add - Copie2.rar

إن شاء الله يكون هذا هو المطلوب جرب المرفق توليد سريال2.rar

لازال هناك شيء من العموض لاحظ المرفق وبين لي أين الخطأ توليد سريال1.rar

السلام عليكم بعد أذنكم يا أخوة تفضل المرفق Customers New Only End1.rar

وعليكم السلام جرب المرفق add - Copie1.rar

وعليكم السلام ورحمة الله وبركاته لدي سؤالان 1/ هل يوجد خطأ في الخليتين D24 , D25 ؟ 2/ أين تريد وضع المعادلة ؟ هل في العمود C حتى تعطي الأرقام التي كتبتها ؟ أم في عمود آخر ؟ تحياتي

في ورقة 1 ذكرت مثالا لبيانات مستأجر واحد فقط وكتبتها في العمود D أين سيتم إدخال بيانات المستأجر الثاني والثالث والرابع ...... ؟ هل في الأعمدة E , F , G ...... ؟ أم في مكان آخر ؟

السلام عليكم أخي ياسر أفكر في كود يمنع من فك حماية الفيجوال حماية للملكية فهل مر عليك من سابق ؟ يعني هل توجد طريقة تمنع فك حماية الفيجوال ؟

السلام عليكم أهلا بأبي سليمان العزيز عملت تعديل على طريقة العرض أرى من الأفضل أن تكون البيانات كما في الورقة 2 ما رأيك ؟ متابعة الايجار1.rar

أخي ياسر , شكرا على الإضافة الجميلة التي أضفتها على الكود رائع جدا ويخدم المطلوب والمجال مفتوح للأخوة الأعضاء لإضافة ما يرونه مناسبا أربع أيام أفكر كيف سأخبر السيد إكسل إن الحماية تم فكها إلى أن وجدت الطريقة هذا السطر Range("XFD1") = "x" مع أنه بسيط ولكنه القشة التي قصمت ظهر البعير بارك الله فيك كن ذا همة تصل للقمة تم التعديل على الملف abo eed file1.rar

اضغط ترحيل ولاحظ النتيجة جرب المرفق أستخلاص بيانات1.rar

آمين وأنت كذلك الأخ عبدالعزيز أسعدني مرورك تحياتي لك ولأهل بسكرة ألف شكر

سيتم حذف اوراق العمل وإغلاق الملف إذا تم فك الحماية تفضل حذف أوراق عمل1.rar راجع أيضا موضوعي هنا http://www.officena.net/ib/topic/63306-منع-المستخدم-من-فك-حماية-الشيت/?do=findComment&comment=411097

السلام عليكم هذا الكود يمكن ان أسميه فخ أو لغم من المعلوم أن هناك برامج لفك حماية الشيتات لا نستطيع مقاومتها أومنعها من كسر الحماية والمستخدم يقوم بكسر حماية الشيت للحصول على المعلومات السرية داخل البرنامج (معادلات ـ أعمدة مخفية .....الخ) إذا منعنا المستخدم من الحصول على هذه المعلومات السرية فنكون قد حققنا الهدف يبدأ عمل الكود من حدث الصفحة SELLECTION CHANGE ثم ينتقل إلى الإجراء booom وهو يقوم بحذف أوراق محددة عندما يتم فك حماية الورقة (الشيت) والنقر على أي خليه فيها ولكن انتبه : فيمكن أن يكون المبرمج نفسه هو ضحية لهذا الكود (كما حصل لي شخصيا أثناء العمل على هذا المرفق) إذا عاود المبرمج فك حماية الصفحة لتعديل أي معادلة مثلا وتحديد أي خلية سينفجر اللغم وتحذف الأوراق تلقائيا ويقفل البرنامج لذا بعد الانتهاء من عمل أي برنامج وبعد حماية الصفحات يتم وضع هذا الكود فإذا اراد المبرمج في وقت لاحق فك الحماية على الصفحة للتعديل عليها فيجب قبل ذلك الذهاب لمحرر الفيجوال والدخول على الماكرو booom وتعليق السطر الآتي ' Sheets(Array(1, 3, 4)).Delete لأنه المسؤول عن حذف الأوراق (الأولى والثالثة والرابعة) تفضلوا المرفق والشرح داخل الكود abo eed file.rar