محمود_الشريف

أخى الكريم مجهود رائع مشكور عليه شرح الكود بإختصار يبدأ بتحديد المدى الذى سينقل إليه البيانات ويقوم بمسحه من أى بيانات به تحديد السطر رقم 13 وهو سطر بدء استدعاء البيانات إليه حلقة تكرارية تبدأ من السطر 13 من الشيت المصدر بالعمود E حتى آخر صف تم تحديده ( 10000 ) عمود التاريخ جملة شرطية فى حاله الخلية D8 بها بيانات اذهب إلى A لتدوير الحلقة التكرارية بين الشرطين و D9 والخاصيين بالتاريخ الموجود بالعمود E فى كلا الشيتين ( أى أن العمود E فى الشيت 1 والشيت 2 بهم الشرط وهو التاريخ )

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

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

ولإثراء الموضوع وبعد اذن الأستاذ الكبير // سليم حاصبيا اليكم طريقة أخري بالكود مع تغيير طفيف شكل الشيت الكود بحدث Sheet2 يعمل تلقائيا بمجرد ادخال التاريخين جلب بيانات بين تاريخين _ 1.rar

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

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

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

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

الإخوة الكرام بوركتم وجزيتم عنى خيرا فيما يختص بالصور التى لا تظهر لأنها كانت مرفوعة على موقع آخر وهذا الموقع تم إغلاقه والصور موجوده بكل ملف مرفق وتقبلوا منى وافر الاحترام والتقدير

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

أخى الكريم النطاق MyTopColmnRnge لم يتم تعريفه عندك بالملف وهو مذكور فى حدث Initialize قم بحذف هذا السطر من الحدث والفورم سيعمل بشكل طبيعى والله أعلم والسطر المطلوب حذفه أو تعريف هذا النطاق بالملف هو .Column = Range(MyTopColmnRng).Value والكود الموجود بداخله هذا السطر كما ذكرت لك سابقا هو Private Sub UserForm_Initialize() With Me.ComboBox1 .List = ListData("F") If .ListCount Then .ListIndex = 0 End With ''''''''''''''''''''' With Me.ComboBox2 .List = ListData("E") If .ListCount Then .ListIndex = 0 Me.ComboBox3.List = .List Me.ComboBox3.ListIndex = .ListCount - 1 End If End With ''''''''''''''''''''' With Me.ComboSort .Column = Range(MyTopColmnRng).Value If .ListCount Then .ListIndex = 0 .Visible = Me.CheckBox1.Value End With End Sub

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

اختنا فى الله رجاء عند كتابة التعليق مسح الكتابة ال موجوده داخل الصندوق الأبيض ،، وبعد كده اكتبى تعليقك الجديد لأنه يتم الاحتفاظ بكل تعليق فبيظهر فى التعليق الجديد اليكم الملف بالمرفقات بعد تظبيط الدوال وليس داله وتقبلوا منى وافر الاحترام والتقدير برنامج الكنترول المدرسي2017_5.rar

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

أخى الكريم ضع هذا السطر بعد السطر الثالث قبل المتغيرات If MsgBox("هل ترغب فى ارسال الملف الى مالية القاهرة أم لا ?", vbYesNo, "Confirm") = vbYes Then ولا تنسى اغلاق الجملة الشرطية قبل نهاية الكود ضع End IF وتقبل منى وافر الاحترام والتقدير

الأخ الكريم // محمود امام الملف المرفق من قبلكم لا يعمل برجاء توضيح كيفية عمله

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

أخى الكريم بوركتم وجزيتم عنى خير الخير شاكرا لكم دعاؤكم الطيب لي ولى رأى خاص بخصوص الطباعه ( الطباعه من الفورم تكون رائعة وجميلة ولكن مكلفة جدا لأنها تستهلك حبر أكثر & بخلاف أنها لن ترقى الى المستوى المطلوب لشكل الشهادة وتكون مرهقة للقائم عليها ، فهى تصلح لطباعه مستندات بنكية أو أمور ادارية لشركات وما شابه ذلك ) اما الصفحة عندما تقوم بتصميمها سيتم الطباعه فورا دون رؤية الصفحة هذا فى حاله طباعه شهاده ، شهاده وستستغلها فى حاله طباعه جميع الشهادات فيما بعد ، يعنى ( 2 * 1 ) أما لشرح الكود المستخدم فى البحث لا يوجد بالفورم غير ثلاث اكواد ورساله كود يقول ان combox1 = combox2 كود يقول ان combox ( محور الفورم كله ) سطور الكود واضحة جدا ليس فيها أى تعقيد بل تعمدت الى كتابة الكود بشكل مبسط ليسهل فهمه من مجرد قرائته قم بتنشيط الشيت المطلوب ( بتحديده ) ورقة8 active على ما اتذكر أهم ما فيه ان معيار البحث وهو رقم الجلوس يساوى فى الكود ( 0 , 0) والعمود الذى يليه يعتبر رقم 1 أما textbox الخاص بالصف الدراسي فتم كتابته مباشرة بتعريف موقع الخليه واسمها ويكتب بين قوسين مميزين [ ] هكذا وكود زر مسح الفورم ، وكود زر الاغلاق وأى استفسار لديك قم بنشره ،، والله المستعان وتقبل منى وافر الاحترام والتقدير

اختنا فى الله اليكم الملف بالمرفقات يوجد عمود مساعد وهو عمود M لأن الكود لا يعرف اللغة العربية به ارقام بديلة عن الصف الأول ( 1 ) والصف الثاني ( 2 ) وهكذا وتقبلوا منى وافر الاحترام والتقدير برنامج الكنترول المدرسي2017_4.rar

اختنا فى الله اليكم الملف بالمرفقات أعتذر للتأخير ولكن لكل انسان له ظروفه ، بخلاف النت فصل فترة ورجاء عند كتابة تعليق مسح ما يظهر داخل صندوق التعليق وكتابة تعليقكم الجديد لأنه بكل مرة يظهر الجزئية الخاصة بالطباعة فيهيأ لى أن هناك مشكلة بكود الطباعه بالنسبة لطلبك الأخير الفرز حسب النوع والفصل تم والحمد لله بالمرفقات ، بعد مسح معادلة النوع لأنها لا تعمل بشكل جيد مع الكود نطاق الفرز يبدأ من عمود الاسم وما بعده حتى عمود K لأنى أكتشفت ان رقم الجلوس مرتبط بمعادلة تتبع الخليه على ما اتذكر اول رقم جلوس C8 عند الضغط على زر الفرز حسب النوع يرجى بعده الضغط على زر حسب الفصل لكى يعود الترتيب حسب الفصول من الأول للخامس تجدين زر ضبط الهجاء ، وزر الذكور أولا ، وزر الاناث أولا ، وزر حسب الفصل ، وزر حسب القيد وتقبلوا منى وافر الاحترام والتقدير برنامج الكنترول المدرسي2017_4.rar

أخى الكريم اليكم الملف بالمرفقات اطلع عليه جيدا وجرب كيفما تشاء نتيجة نصف العام _1.rar

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

انا لم اغير سطر الكود وعامه اليكم الملف بعد تغيير سطر الكود برنامج الكنترول المدرسي2017_3.rar

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

إليكم المطلوب تم اضافة كود الطباعه بعد اختياركم للصف قم بالضغط على زر طباعه وتقبلوا منى وافر الاحترام والتقدير برنامج الكنترول المدرسي2017_1.rar