أبوعيد

السلام عليكم الرجاء إرفاق ملف للتعديل عليه تحياتي

السلام عليكم أكتب مدة التأخير وسيظهر لك الخصم تحياتي المصنف1.rar

السلام عليكم حل هذه المشكلة هنا http://www.officena.net/ib/index.php?showtopic=53564&p=337282 يعنى عند وضع هذا الكود لن يعمل المف ولن تظهر شاشة الإكسل إذا كانت وحدات الماكرو معطلة

السلام عليكم هذه محاولة سريعة تفضل المصنف1معدل.rar

السلام عليكم [أحسنت يا أستاذ سليم ما شاء الله لقد أخرجت لنا كنزا من كنوز الإكسل المدفونة

السلام عليكم أخي ياريت لو تضع أرقاما (كمثال)في الجدول بدل علامة الاستفهام حتى يسهل فهم المطلوب تحياتي

السلام عليكم الرجاء إرفاق ملف حتى يتم التطبيق عليه شكرا

السلام عليكم هذا ما طلبته بالضبط تفضل dateمعدل.rar

السلام عليكم ما فهمت طلبك لأني لا أعرف معنى تسطيب هل تقصد SET UP أي تثبيت ؟ أرجو التوضيح

السلام عليكم شكرا أخواني على مروركم الأخ ابراهيم أبوليله عرفت السر وهو ضرب الثلاثة أرقام الأولى في الثلاثة الثانية للحصول على رقم الترخيص في مثالنا السابق وعموما : تلجأ غالب الشركات إلى تعقيد رقم التسجيل حتى لا يمكن لأي شخص معرفته تعتمد عملية رقم الترخيص على عدد الخانات (في مثالنا هنا 6) وعدد الأقسام ( في مثالنا هنا 2) وقد تعتمد على أشياء أخرى كلما زاد واحد منهم كانت عملية تخمين الرقم أصعب وأصعب لاحظوا معي : لو كان لدينا الرقم 123456 وقمنا بتقسيمه إلى ثلاث أقسام هكذا 12 34 56 فنستطيع أن نجعل رقم الترخيص هو ( 12*34)+ (34*56) أو ( 12*34 )*(34*56) أو ........... فهناك كثير من العلاقات التي يمكن إنشاءها ويصعب على المستخدم تخمينها أو الوصول إليها المهم في الأمر أن الرقم المتحصل عليه لا يمكن أن يحوي كسورا عشرية أو رقم سالب أي يكون رقما صحيحا موجبا وكلما زادت خاناته كلما صعب تخمينه أو معرفته وعلى هذا الاساس يمكن أن أستخرج رقم الهارد أو البارتشن ونقوم بتقسيمه للخروج بصيغة مناسبة إذن إذا تم أقفال البرنامج فيمكن أن يتصل بك المستخدم ويعطيك الرقم الذي يظهر في الفورم وأنت تقوم بإعطائه رقم الترخيص ولكن لا تستعجل في إعطائه رقم الترخيص لأنه ربما يكذب عليك , يدعي بأن البرنامج تم إقفاله وهو في الواقع يريد تشغيل البرنامج على جهاز آخر وبعض المستخدمين قد يكون ذكيا ويحسب أن الرقم ثابت فيقوم بتسجيل الرقم الذي أخذه منك على ورقة حتى لو تم إقفال البرنامج مرة أخرى فيحاول فتحه به ولكنه لا يستطيع . لا حظ أن الملف المحمي بالطريقة السابقة حساس للمسار الذي يوضع فيه فكلما غيرت مكانه (في سطح المكتب أو في مجلد التنزيلات أو في مجلد الصور .أو أو ...) سيطالبك بالتسجيل . وفي الختام لا يخلو هذا العمل من أخطاء , فمن وجد فيه شيئا فلا يبخل علينا بتوجيهاته تقبلوا تحياتي

الأخ زاكي تفضل بالإطلاع على موضوعي هذا http://www.officena.net/ib/index.php?showtopic=53564

السلام عليكم هذا الموضوع هو إجابة لسؤال أحد الأعضاء هنا 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