أبوعيد

السلام عليكم هذا الموضوع هو إجابة لسؤال أحد الأعضاء هنا http://www.officena.net/ib/index.php?showtopic=52641&hl= وقد فضلت أن تكون المشاركة كموضوع جديد لتعم الفائدة ولكن هذا العمل لا يخلو من أخطأء لذلك اضع بين أيديكم هذه الفكرة لحماية الملف برقم عشوائي مع العلم أني استخدمها عمليا فقد عملت برنامجا لمستشفى المدينة عندنا وعند إقفال الملف يتم الإتصال بي لإعطائهم رقم الترخيص خطت العمل : عند تحميل الملف المرفق وتشغيله سيطلب منك رقم الترخيص لتثبيت البرنامج سيظهر عندك رقم في الفروم مكون من 6 خانات بناء على هذا الرقم يتم حساب رقم الترخيص فإذا كان الرقم 788520 فيكون رقم الترخيص هو 409760 الرقم 783330 فيكون رقم الترخيص هو 258390 الرقم 863999 فيكون رقم الترخيص هو 862137 طبعا هناك طريقة لحساب رقم الترخيص أترك لكم الإجابة على هذا السؤال بعد الإطلاع على المرفق كيف يتم حساب رقم التسجيل هنا ؟ ;كلمة المرور للفيجوال والأوراق هي 9 تقبلوا تحياتي حماية الملف برقم عشوائي.rar

السلام عليكم أنا معلم وأحتاج إلى فرز الطلاب حسب النتيجة (ناجح راسب) أو حسب الشعبة ( 1 , 2 ) وأريد التعديل على الكود حتى يناسب عملي (فرز حسب النتيجة أو الشعبة) تقبلوا تحياتي فرز الهمزة بحسب الشعبة والنتيجة.rar

السلام عليكم جرب هذا إذا فرضنا أن عندك 100 ورقة بالتمام Sub SS() Application.ScreenUpdating = False for i = 1 to 100 sheets(i).activate Range("A1:A7,A9:A11,A13:A19").Select Selection.SpecialCells(xlCellTypeBlanks).Select Selection.EntireRow.Delete Range("A1").Select Application.ScreenUpdating = True Application.ScreenUpdating = False Range("A1:B1").Select Selection.SpecialCells(xlCellTypeBlanks).Select Selection.EntireColumn.Delete Range("A1").Select Application.ScreenUpdating = True Application.ScreenUpdating = False For I = B To Z If I = Null Then Cells(I, 3).Value = "" End If Next I Range("B3:Z3").Select Selection.SpecialCells(xlCellTypeBlanks).Select Selection.EntireColumn.Delete Range("B3").Select next i Application.ScreenUpdating = True End Sub أضفت سطرين في الأعلى بعد هذا السطر Application.ScreenUpdating = False وهما (100 هي عدد الأوراق في الملف) for i = 1 to 100 sheets(i).activate وسطر واحد في الأسفل قبل هذا السطر Application.ScreenUpdating =True وهو next i

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

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

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

السلام عليكم تم إصلاح الخطأ سجل الدرجات العام 14معدل.rar

السلام عليكم شكرا أخي الخالدي وأقول ماشاء الله بصراحة كود عجيب وقصير ويحقق المطلوب بدقة شكرا على تفاعلك

لا يوجد ملف مرفق

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

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

السلام عليكم أواجه مشكلة في فرز الأسماء التي تبدأ بحرف الألف (أ - إ - آ - ا) اريد فرز الأسماء كما هو موضح في المرفق تقبلوا تحياتي الهمزة أول الاسم.rar

السلام عليكم أرفق الملف ليكون العمل عليه واضحا من المعلوم أن ميلغ الزكاة يتغير مع ارتفاع العملة وانخفاضها فهل طرأت هذه الفكرة على بالك ؟ إذا كان النصاب هذه السنة هو 81000 مثلا فقد يكون في السنة القاادمة أقل أو أكثر من ذلك

السلام عليكم تفضل مثال جدول المطابقة1.rar

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

السلام عليكم أخي أبوأحمد مطلوبك الأخير غير واضح يرجى التوضيح أكثر

السلام عليكم وهذا حل آخر بدون إجراء أي تعديلات على الأوراق ولكن بإضافة المعادلات والأكواد تحياتي Book155معندل.rar

السلام عليكم تفضل حساب الزكاة1.rar

السلام عليكم أخي العزيز لم يظهر لي أي خطأ فأنا استخدم أوفيس 2010 و 2007 والكود شغال بمجرد فتح الصفحة 2 تنتقل الأرقام إلى كافة الصفحات تحياتي

السلام عليكم تفضل BODEREAU DES DOSSIERS.rar

السلام عليكم تفضل A معدا.rar

السلام عليكم جرب المرفق بيانات المرحلة الابتدائية معدل.rar

عفوا Book1.rar

السلام عليكم تفضل

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