ياسر خليل أبو البراء

يرجى وضع عناوين مناسبة للموضوعات (أجد في المنتدى أكثر من موضوع بنفس العنوان لأكثر من عضو) الرجاء الالتزام بالتوجيهات

صراحة الطلب غير مفهوم ..كيف تتوقع النتائج ؟؟ يمكن استخدام معادلة بهذا الشكل في العمود الثالث مثلاً =IF(EXACT(A1,B1),"","Not Equal") ولكن لا أعتقد أن هذا سيفي بالغرض بالنسبة لك .. يرجى إرفاق شكل النتائج المتوقعة ليسهل تقديم المساعدة

إذاً ضع الكود في حدث المصنف مع تغيير سطر البداية إلى Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

أخي الكريم جمال الخطيب إليك الفيديو المصور التالي يوضح الطريقة .. كنت أفضل الشرح بالصور ولكن الوقت لا يسعفني الخطوات على السريع : إنشاء ملف إكسيل جديد ، ثم ضغط الملف ببرنامج الوينرار ثم فتح الملف المضغوط .. وكليك يمين على اسم الملف ثم View File افتح المجلد المسمى xl ستجد ملف باسم Styles.xml فك ضغط هذا الملف إلى سطح المكتب مثلاً .. وهذا الملف ستقوم باستبداله بالملف الموجود في ملفك قم بفتح الملف المضغوط الذي يحتوي على ملفك المطلوب معالجته ، ثم نفس الخطوات كليك يمين ثم View File ثم اذهب للمجلد xl ومن على سطح المكتب قم بسحب الملف المسمى Styles.xml الموجود على سطح المكتب وضعه في هذا المجلد (هذا يعتبر استبدال للملف القديم) .. ستظهر رسائل اختر منها Yes .. وأخيراً فك الضغط عن ملفك وستظهر بعض رسائل الأخطاء وهذا طبيعي .. وفي النهاية ستتخلص من كافة الأنماط الموجودة تقبل تحياتي Watch.rar

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

أخي الكريم بومتعب إليك الملف التالي عله يفي بالغرض إن شاء الله اضغط Alt + F8 من لوحة المفاتيح ، واختر الإجراء الفرعي المسمى Collect_Data ثم انقر على Run لتنفيذ الكود حمل الملف من هنا

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

يمكن وضع الكود في حدث المصنف مع إجراء بعض التعديلات عليه .. ولكن السؤال هل العمل سيكون على عمود الـ F فقط في أي ورقة عمل ضمن المصنف؟

وحتي المتقدم ...أعتبر دا تحدي!!؟؟ مفيش حاجة مستحيلة يا أخي العزيز أنس

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

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

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

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

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

الحمد لله أن تم المطلوب على خير الموضوع الآخر المكرر تم حذفه .. تقبل تحياتي

أخي الكريم طلبك غير واضح يرجى إرفاق ملف لتوضيح المسألة مع إرفاق النتائج المتوقعة إذا لزم الأمر

يمكن حفظ السيريال نمبر في متغير ويتم التعرف عليه في كود حدث فتح المصنف ثم يمكن استخدامه بشكل عادي ..

أخي الكريم أين الملف المرفق الذي تتحدث عنه ويظهر فيه اسم أخونا عبد الباري ..قمت بتحميل الملفين في الموضوع ولم أجد ما تتحدث عنه ؟ مجرد احتمال أن يكون اسم عبد الباري موجود في أحد الليبلات الموجودة بالفورم ويكون مخفي ويظهر عند تشغيل الفورم !!

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

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

جرب الكود التالي وإن كنت لا أدري شكل النتائج المتوقعة Private Sub CommandButton1_Click() With ورقة1 .Range("d10") = TextBox9.Value .Range("f10") = TextBox10.Value .Range("d13") = TextBox1.Value .Range("d14") = TextBox2.Value .Range("d15") = TextBox3.Value .Range("d16") = TextBox4.Value .Range("d17") = TextBox5.Value .Range("d18") = TextBox6.Value .Range("d19") = TextBox7.Value .Range("d20") = TextBox8.Value .Activate .PrintOut From:=1, To:=1, Copies:=2, Collate:=True, IgnorePrintAreas:=False End With Sheets("يناير").Activate x = Cells(6, 10).End(xlToLeft).Column Cells(6, x + 1).Offset(0, 1).Value = TextBox1.Value Cells(7, x + 1).Offset(0, 3).Value = TextBox2.Value Cells(8, x + 1).Offset(0, 5).Value = TextBox3.Value Cells(9, x + 1).Offset(0, 7).Value = TextBox4.Value TextBox1.Value = "" TextBox2.Value = "" TextBox3.Value = "" TextBox4.Value = "" TextBox5.Value = "" TextBox6.Value = "" TextBox7.Value = "" TextBox8.Value = "" TextBox9.Value = "" TextBox10.Value = "" End Sub إذا لم يؤدي الكود الغرض يرجى إرفاق الملف مرة أخرى وبه شكل النتائج المتوقعة ليسهل تقديم المساعدة من قبل إخوانك بالمنتدى تقبل تحياتي

أخي الكريم محمد جرب الملف التالي عله يفي بالغرض الرابط من هنا

وعليكم السلام أخي الكريم عبد الله يرجى إرفاق ملف معبر عن الطلب .. كفكرة مبدئية يمكنك الفلترة على أكثر من سطر ..أي قم بالفلترة على الشرطين الأول والثاني ثم في السطر التالي قم بالفلترة على الشرط الثالث .. أو قم بتسجيل ماكرو لترى كيفية التعامل مع أكثر من شرط

وعليكم السلام أخي الكريم ضع ملف مرفق كما يرجى وضع الأكواد داخل أقواس الكود لتظهر بشكل منضبط

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