عبدالله باقشير

السلام عليكم الاخ الفاضل /حسن محمد سليم عبد الحميد _______حفظه الله الاخ الفاضل /القومي _______________________حفظه الله ما تفضلتم به سنجيب عليه في مشاريع الملفات لاحقا بارك الله فيكم وشهر مبارك وكل عام وانتم بخير تقبلوا تحياتي وشكري

السلام عليكم الاخ / قصي الغاية ممكن تستخدم اي معادلة لايجاد تسلسل الفصول مثلا: =INT(ROW()/43)+1 حيث الرقم 43 هو عدد الصفوف الكلي للكشف

السلام عليكم الاخ الحبيب قصي _______حفظه الله هذه لمعرفة تسلسل الفصول الرقم 4 هو رقم الصف الذي توجد فيه المعادلة الاولى الرقم 43 هو عدد صفوف الكشف الرقم 1 هو الصف الدراسي في حالة تغيير صف المعادلة عدل الرقم 4 في حالة تغيير عدد صفوف الكشف عدل الرقم 43 في حالة تغيير الصف الدراسي عدل الرقم 1 بارك الله فيك وشهر مبارك وكل عام وانتم بخير تقبل تحياتي وشكري

السلام عليكم الاخ الحبيب نادر _______حفظه الله اذن سنجعل الملفات الجديدة بنفس آلية هذا الملف بارك الله فيك وشهر مبارك وكل عام وانتم بخير تقبل تحياتي وشكري

السلام عليكم الملف الثاني هو نفس آلية عمل الملف الاول ما عدى انه يوضع الكشوفات في نفس الملف في صفحة جديدة تسمى MyShClass لا يتم تكرارها اثناء الاعادة انما يتم حذفها واعادة اضافتها من جديد توزيع على الفصول م2.rar

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

السلام عليكم الاخ الحبيب يحياوي _______حفظه الله بارك الله فيك وشهر مبارك وكل عام وانتم بخير تقبل تحياتي وشكري

لسلام عليكم الاخ الفاضل نور انور _______حفظه الله الاخ الفاضل ابو الحسن والحسين _______حفظه الله بارك الله فيكم وشهر مبارك وكل عام وانتم بخير تقبلوا تحياتي وشكري

السلام عليكم ممكن تستخدم هذا الكود في حدث الورقة المعنية Private Sub Worksheet_Activate() Dim MyRng As Range Dim Col As Range Range("C16:C515").EntireRow.Hidden = False For Each Col In Range("C16:C515") If CStr(Col) = "" Or Col.Value = 0 Then If MyRng Is Nothing Then Set MyRng = Col Else _ Set MyRng = Union(MyRng, Col) End If Next If Not MyRng Is Nothing Then MyRng.EntireRow.Hidden = True End Sub

السلام عليكم الاخ الفاضل / معتصم محمد اذا كنت تستخدم اكسل 2007 الغرض هذا Application.FileSearch يعطيك رسالة خطا هذا والله اعلم

======================== الاخ الحبيب/ احمد فضيله ======================== و

هل تقصد بالتابع وهو ما تم تحديده باللون الأحمر Sub FormulaToValue(she As Worksheet) نعم وهل عملية تعريف التابع هي عمبلية تعريف متغير بواسطة الكلمة DIM اعتذر للإطالة بجانب اسم الاجرائية FormulaToValue التابع

السلام عليكم الاخ الحبيب يوسف عطا _______حفظه الله بارك الله فيك وشهر مبارك وكل عام وانتم بخير تقبل تحياتي وشكري

السلام عليكم الاخ الحبيب / معتصم محمد شهر مبارك وكل عام وانتم بخير اي كود له تابع لن تجده بالطريقة هذه لانه يجب تعريف التابع في كود منفصل في حالة ان الكود موجود في حدث الورقة مثل كودنا هذا ممكن الوصول اليه باضافة كود في موديل جديد او موديل الورقة Sub vv() ورقة2.FormulaToValue ActiveSheet End Sub اذا كان الكود موجود بموديل مثلا Module1 Sub vv() Module1.FormulaToValue ActiveSheet End Sub او Sub vv() FormulaToValue ActiveSheet End Sub انت اخي الكريم شديد الملاحظة وسؤالك يدل على ذكاء وتركيز ملحوظ لقد اوردت سابقا: Private Const MyCount As Integer = 30 معناه ان الكشف مجهز ليسع 30 صف *2 60 طالب وهذه الزيادة التي تراها للفصل 32 انا عملتها قاصدا ذلك وجربت الكود وتحصلت على رسالة خطأ وصححت الكود باضافة If N > (MyCount * 2) Then Exit For علشان اوقف الكود عند هذا العدد المجهز له للاستيعاب ولا يعطيك رسالة خطأ ويوقف التنفيذ ------------------------ حاول ان تجهز كشف آخر يستوعب مثلا 40 وغير ذلك في المعطيات وشاهد ماذا سيعمل الكود ارجو ان يكون شرحي مفهوما تقبل تحياتي وشكري

الاخ الحبيب/ معتصم محمد __________حفظه الله الاخ الحبيب/ عبد الله المجرب__________حفظه الله الاخ الحبيب/ نادر__________حفظه الله الاخ الحبيب/ ياسر الحافظ__________حفظه الله الاخ الحبيب/ محمدي __________حفظه الله الاخ الحبيب/ كيماس__________حفظه الله الاخ الحبيب/ قصي __________حفظه الله الاخ الحبيب/ khhanna__________حفظه الله جزاكم الله خيراً تقبلوا تحياتي وشكري خبور خير

السلام عليكم شهر مبارك وكل عام وانتم بخير سنبدا هنا موضوع توزيع الطلبة على الفصول وسيكون عبارة عن مشروع يتكون من عدة ملفات كل ملف له آلية عمل تختلف عن الاخرى سنبدا الموضوع وهو مثل ملف الاستاذ نور وهو اذا كان الملف عندك جاهز وعارف المعطيات وستقوم بوضعها بداية الكود هذه المرة الكشوفات ستكون في ملف جديد منفصل على الملف الاساسي وجاهزة للطباعة المطلوب منك اعداد الكشف الاول في الملف الاساسي ومنه ستضع معطياتك بداية الكود الكود حيكون في حدث الورقة اللي فيها نسخة الكشف الاول علشان يتم نقلها مباشرة الى ملفك بمعية اكواده هذه المعطيات المطلوبة بداية الكود '============================================================ '============================================================ ' نطاق البيانات اما ان يكون اسم لنطاق ' او عنوان النطاق مع اسم الورقة Private Const My_Date As String = "MyRng" '============================================================ ' اول صف في الجدول لوضع البيانات Private Const FirstRow As Integer = 9 ' عدد صفوف البيانات المنقولة في الكشف Private Const MyCount As Integer = 30 ' عدد صفوف التذييل Private Const MyCountEndRow As Integer = 5 ' عدد اعمدة الكشف بداية من العمود 1 Private Const MyPagColumn As Integer = 6 ' عدد الفصول Private Const MyCountClass As Integer = 32 '============================================================ '============================================================ وهذا المرفق ملف اكسل 2003 توزيع على الفصول م1.rar

السلام عليكم شهر مبارك وكل عام وانتم بخير حسب ما فهمت والله اعلم استخدم الكود هذا في حدث الورقة اذاكانت قيمةالخلية C5 بدون معادلة Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("C5").Address Then If Target.Value = 0 Then Target.RowHeight = 0 Else Target.RowHeight = 15 End If End If If Target.Address = Range("A1").Address Then Range("C5").Value = Target.Value End If End Sub في حالة ارتفاع الصف يساوي صفر ضع القيمة في الخلية A1 او اي خلية تختارها انت وغير عنوانها في الكود ========================================= اذاكانت الخلية C5 فيها معادلة استخدم الكود التالي Private Sub Worksheet_Calculate() With Range("C5") If .Value = 0 Then .RowHeight = 0 Else .RowHeight = 15 End If End With End Sub

======================== الاخ الحبيب/ دغيدي ======================== و =================================== شهر مبارك وكل عام وانتم بخير ===================================

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

السلام عليكم شوف كده على السريع ده يعمل 40 طالب في الشق الاول والباقي في الثاني وممكن تغير الابعاد من الكود شاهد المرفق توزيع على الفصول.rar

السلام عليكم الاخ الحبيب كيماس -----حفظه الله لم اشاهد ردك هذا اثناء ردي السابق جزاك ربي خيرا وشهر مبارك وكل عام وانتم بخير تقبل تحياتي وشكري

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

اللهم يسر أمورهم و انصرهم

======================== الاخ الحبيب/ يحياوي ======================== و =================================== شهر مبارك وكل عام وانتم بخير ===================================

السلام عليكم الشكر لكل المشاركين حفظهم الله ولائراء الموضوع شاهد الرابط http://www.officena.net/ib/index.php?showtopic=37853