البحث في الموقع

انا اسف والله بس حضرتك صاحب الملف واكثر واحد معرفة به اخر طلب والملف يكون شامل ورقة (Lists) قوائم الفصول لا تقبل اكثر من الفصل الخامس المطلوب توسيع عدد الفصول بها علشان تقبل اكثر من 5 فصول للمرحلة يعنى تقبل 1 - 6 مثلا ودى صورة للتوضيح اكثر

السلام عليكم اساتذتي ،،، اطرح موضوعي وكلي امل بالمشرفين والاعضاء بالرد على سؤالي عندي مدرسة بها 900 طالب موزعين على 29 فصل ويوم السبت عندنا بداية الاختبارات النهائية فطلب مني المدير اعمل ستيكرات ( ورق لاصق ) للطلاب على الطاولات بحيث الاستيكر يوضح على كل طاولة :- 1- اسم الطالب 2- الفصل مثلا ( خامس - أول ) 3- رقم المسلسل الحين انا عندي قوائم كل الفصول ( كل فصل يحتوي تقريبا على 35 طالب ) وعندي ستيكر ( ورق لاصق ) بحجم ورقة A4 فأريد اعبي ورقة اللاصق بطلاب الفصل خامس اول مثلا مرتبين ابجدي يعني (اريد تظهر في الورقة طلاب الصف خامس اول مثلا والورقة الثانية تظهر عليها طلاب الصف خامس ثاني لحد ما اوصل الى الصف عاشر خامس) فما هي الطريقة المناسبة لربط طلاب الفصل بالاستيكر ان اعرف طريقة ربط الورد بالاكسل بس ما تضبط لانه في كل ورقة تظهر اسم طالب واحد من الصف والطالب الثاني لنفس الصف يظهر في الصفحة الثانية مع العلم انا متوسط في التعامل مع الورد والاكسل ومبتدئ في الاكسس

استاذي الفاضل هذا هو الملف جاهز للعمل ارجو استكماله في صفحة القوائم لاختيار القائمة المراد طباعتها علما بأنني جعلت القائمة 90 تلميذ لان الكثافات مرتفعة جدا لدينا في القري ووضعت الصفوف من الاول الي السادس ووجعلت الفصول تتسع لعشرة فصول في الصف الواحد ولسيادتكم جزيل الشكر والعرفان قوائم الفصول.rar

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

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

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

السلام عليكم ورحمة الله بركاته 1 ) تم عمل المطلوب ولكن على قوائم فصول اولى ابتدائي فقط والسبب انني لم اجد في ملفك الا بيانات الفصول لهذه المرحلة فقط !! ( اولى ابتدائي ) او انني لم افهم من اين اخذ بيانات قوائم الفصول لجميع المراحل الثلاثة التي طلبتها !! http://www.gulfup.com/?DX6nAd

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

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

الاخ الكريم اليك ملف يقوم بطبع قوائم الفصول واستخدمات اخرى من الرابط التالى https://up.top4top.net/downloadf-659hunoe1-rar.html ولو محتاج لمساعدة انا معك

هذه فصول المدرسة كلها 1/1 2/1 1/2 2/2 ......... إلى 1/6 و 2/6 ومكتوب أمام كل مجموعه تلاميذ فصلها( 1/1 2/1 1/2 2/2 .... وهكذا ...... والمطلوب عمل قائمة منسدلة فى شيت القوائم تحتوى على الفصول كلها ( 1/1و 2/1 و 1/2 و 2/2 و 1/3و2/3و1/4و2/4و3/4و1/5و2/5 و 1/6 و 2/6) وعند إختيار الفصل من القائمة المنسدلة يظهر فى جدول القوائم أسماء تلاميذ الفصل وبياناتهم...... قوائم salim.rar

الاخ الفاضل جزاك الله خيرا فمن قال لخية جزاك الله خيرا فقد اجزل لة العطاء بارك الله لك في صحتك واولادك واعمي عنك الاشرار الظالمين في كل مكان ف كل مكان الاستاذ ياسر كنت قد عملت تجربة وهي عمل قوائم للمدرسة التي اعمل بها وكنت قد جربت الكود الذي ارسلتة لي سابقا وهو طباعة عدد من الصفوف عن طريق page break ولكن للاسف الكود لا يعمل وتخرج لي رسالة لا افهمها فالرجاء النظر لهذا الملف وابداء الراي والتصحيح علما بان :- 1- كل المعادلات والاكواد اخذتها من هذا المنتدى الكريم ماعدا كود واحد سوف تجدة في الملف المرفق وان كان من اختصار لة فلك جزيل الشكر 2- الرجاء ما هي الاخطاء التي وقعت فيها في العمل ككل 3- الرجاء ايضا ان يكون المسيحيون في نهاية القائمة في شيت 3 وبعدهم الباقيات وهل يمكن عمل ذلك بالمعادلةقوائم الفصول.rar لك من كل الاحترام وصق رسول الله صلى الله علية وسلم حين قال من علمني حرفا اخلصت له ودا جمعني الله واياك في لفردوس الاعلى والملمين جميعاقوائم الفصول.rar

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

للأسف لم يفلح معى ربما الخطأ من عندى سأرفع لكم الملف كامل والمطلوب فضلا لا أمرا فى صفحة بيانات الطلاب فى خانة الفصل المطلوب عدم تكرار رقم الفصل 1 لأكثر من 50 مرة لأن الحد الأقصى لطلاب الفصل هو 50 وكذلك بالنسبة للفصل 2 وحتى الفصل 10لأن العدد الأقصى لطلاب الفرقة 500 طالب بفرض أنه سيتم توزيعهم على 10 فصول فبكون الحد الأقصى لكل فصل 50 طالب أرجو أن تكون قد وصلت الفكرة إليكم الملف كامل فى المرفقات برنامج قوائم الفصول.rar

الاستاذ ياسر كنت قد عملت تجربة وهي عمل قوائم للمدرسة التي اعمل بها وكنت قد جربت الكود الذي ارسلتة لي سابقا وهو طباعة عدد من الصفوف عن طريق page break ولكن للاسف الكود لا يعمل وتخرج لي رسالة لا افهمها فالرجاء النظر لهذا الملف وابداء الراي والتصحيح علما بان :- 1- كل المعادلات والاكواد اخذتها من هذا المنتدى الكريم ماعدا كود واحد سوف تجدة في الملف المرفق وان كان من اختصار لة فلك جزيل الشكر 2- الرجاء ما هي الاخطاء التي وقعت فيها في العمل ككل 3- الرجاء ايضا ان يكون المسيحيون في نهاية القائمة في شيت 3 وبعدهم الباقيات وهل يمكن عمل ذلك بالمعادلة[ لك من كل الاحترام وصق رسول الله صلى الله علية وسلم حين قال من علمني حرفا اخلصت له ودا جمعني الله واياك في لفردوس الاعلى والملمين جميعا قوائم الفصول.rar 97.08كيلو 1 عدد مرات التحميل

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

تم تعديل الكود وشكرا على المتابعة المستمرة برنامج قوائم الفصول.rar

تم إضافة زر للحفظ التلقائى والخروج مباشرة برنامج قوائم الفصول.rar

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

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

'https://www.officena.net/ib/topic/71642-* '========================================= Sub Classes_Lists() 'Author : YasserKhalil 'Release : 07 - 09 - 2016 '------------------------ Dim shSource As Worksheet Dim shTarget As Worksheet Dim rList As Range Dim rListA As Range Dim rListB As Range Dim strCrit As Range Dim colNum As Integer Dim Lr As Long Dim hCount As Long Dim tCount As Long '=========================================================== 'رقم أول صف للبيانات وهو صف العناوين Const firstRow As Integer = 1 '[A] رقم أول عمود للبيانات ، الرقم 1 يمثل العمود الأول Const colFirst As Integer = 1 '[D] رقم آخر عمود للبيانات ، الرقم 4 يمثل العمود الرابع Const colLast As Integer = 4 '[A:D] رقم الحقل المراد فلترته داخل النطاق ، فالرقم 4 يمثل الحقل الرابع في النطاق Const iCol As Integer = 4 'الورقة المصدر التي تحتوي على البيانات Set shSource = Sheets("ورقة1") 'الورقة الهدف التي ستوضع فيها النتائج Set shTarget = Sheets("ورقة2") 'عنوان أول خلية ستوضع فيها النتائج في الورقة الهدف Set rListA = shTarget.Range("A2") 'الخلية التي تحتوي على شرط الفلترة للبيانات Set strCrit = shTarget.Range("J1") '=========================================================== If IsEmpty(strCrit) Then MsgBox "The Criteria Cell Is Empty", vbExclamation: Exit Sub colNum = (colLast - colFirst) + 1 Set rListB = rListA.Offset(, colNum) SpeedUp shSource.Copy After:=Sheets(Sheets.Count) ActiveSheet.Name = "Temp" Set shSource = Sheets("Temp") With shSource shTarget.Range(shTarget.Columns(colFirst), shTarget.Columns(colLast)).Resize(, colNum * 2).Clear .Range(.Cells(firstRow, colFirst), .Cells(firstRow, colLast)).Copy rListA.Offset(-1) .Range(.Cells(firstRow, colFirst), .Cells(firstRow, colLast)).Copy rListA.Offset(-1, colNum) .Range(.Cells(firstRow, colFirst), .Cells(firstRow, colLast)).AutoFilter Field:=iCol, Criteria1:=strCrit .Range(.Columns(colFirst), .Columns(colLast)).Copy .Cells(firstRow, colLast + 5) .AutoFilterMode = False Lr = .Cells(Rows.Count, colLast + 5).End(xlUp).Row .Range(.Cells(firstRow + 1, colLast + 5), .Cells(Lr, colLast + 5)).Formula = "=ROW()-" & firstRow & "" Set rList = .Range(.Cells(firstRow + 1, colLast + 5), .Cells(Lr, colLast + 5)) tCount = rList.Cells.Count hCount = Application.RoundUp(tCount / 2, 0) rListA.Resize(Rows.Count - (rListA.Row), (colNum * 2)).ClearContents rListA.Resize(hCount, colNum).Value = Range(rList(1).Address(External:=True) & ":" & rList(hCount).Address(External:=True)).Resize(hCount, colNum).Value rListB.Resize(tCount - hCount, colNum).Value = Range(rList(hCount + 1).Address(External:=True) & ":" & rList(tCount).Address(External:=True)).Resize(hCount, colNum).Value .Delete End With With rListA.Offset(-1).CurrentRegion .ReadingOrder = xlRTL .Font.Name = "Arial" .Font.Size = 11 .HorizontalAlignment = xlCenter: .VerticalAlignment = xlCenter .RowHeight = 19 .Borders.Value = 1 End With With rListA.Offset(-1).Resize(, colNum * 2) .Font.Size = 14: .Interior.Color = vbCyan: .RowHeight = 25 End With Application.Goto strCrit SpeedDown End Sub Function SpeedUp() With Application .DisplayAlerts = False .Calculation = xlManual .ScreenUpdating = False .DisplayStatusBar = False .EnableEvents = False End With End Function Function SpeedDown() With Application .CutCopyMode = False .DisplayAlerts = True .Calculation = xlAutomatic .ScreenUpdating = True .DisplayStatusBar = True .EnableEvents = True End With End Function '************************************************************** 'يوضع الكود التالي في حدث ورقة العمل التي ستظهر فيها النتائج 'وهي ورقة العمل المخصصة لتجهيز قوائم الفصول '------------------------------------------------------------ Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$J$1" Then Call Classes_Lists End If End Sub جزاك الله كل خير استاذ ياسر خليل الكود يعمل جيدا على اكسبل 2010 ولكن نريد ترك عده صفوف راس وتحتها 3 صفوف لتاخذ بعض المعلومات مثل شؤن طلاب ... رئيس شئون طلاب ... مدير المدرسه لو تم تفعيله على هذا الملف سيكون سريعا جدا ورائعا كتبه الله في كفة حسناتك استاذ ياسر ========== سأرفق ملفا ان شاء الله

الاخ الفاضل جزاك الله خيرا فمن قال لخية جزاك الله خيرا فقد اجزل لة العطاء بارك الله لك في صحتك واولادك واعمي عنك الاشرار الظالمين في كل مكان ف كل مكان الاستاذ ياسر كنت قد عملت تجربة وهي عمل قوائم للمدرسة التي اعمل بها وكنت قد جربت الكود الذي ارسلتة لي سابقا وهو طباعة عدد من الصفوف عن طريق page break ولكن للاسف الكود لا يعمل وتخرج لي رسالة لا افهمها فالرجاء النظر لهذا الملف وابداء الراي والتصحيح علما بان :- 1- كل المعادلات والاكواد اخذتها من هذا المنتدى الكريم ماعدا كود واحد سوف تجدة في الملف المرفق وان كان من اختصار لة فلك جزيل الشكر 2- الرجاء ما هي الاخطاء التي وقعت فيها في العمل ككل 3- الرجاء ايضا ان يكون المسيحيون في نهاية القائمة في شيت 3 وبعدهم الباقيات وهل يمكن عمل ذلك بالمعادلة[ لك من كل الاحترام وصق رسول الله صلى الله علية وسلم حين قال من علمني حرفا اخلصت له ودا جمعني الله واياك في لفردوس الاعلى والملمين جميعا قوائم الفصول.rar

السلام عليكم الأخ الفاضل مصطفي كمال أرسلت لي ملف قوائم الفصول ولكني أطمع في كرمك وياريت تشرح كيف خطوة خطوة كيف تم عمل قوائم الفصول وتشرح الدالة أيضا وياريت يكون في ملف ورد منفصل حتي يكون الشرح وافي وشكراً قوائم.rar

السلام عليكم ورحمة الله وبركاته نظرا لقلة خبرتى فى الأكسيل أريد فضلا لا أمرا كود الترحيل المناسب لهذا الملف وهو عباره عن قوائم الفصول بحيث يذهب كل طالب إلى الفصل المناسب تبعا للإختيار من القائمة المنسدلة على ألا يزيد عدد الطلاب عن 50 طالب لكل فصل وتم تعديل الملف ليكون مناسب لعدد 500 طالب للفرقة الواحدة مقسمة على 10 فصول ثم يتم ترتيب الطلاب حسب القواعد الآتية أنثى - مسلمة - مستجدة أنثى - مسيحية - مستجدة أنثى - مسلمة - باقية أنثى - مسيحية - باقية ذكر - مسلم - مستجد ذكر - مسيحي - مستجد ذكر - مسلم - باق ذكر - مسيحي - باقي ومن عيوب هذا الملف أنه يصلح لفرقة واحدة فقط أى أنى بعد ذلك سوف أقوم بنسخه على حسب عدد الفرق لدى فى المرحلة الإعدادية يجب وجود 3 نسخ من هذا الملف الصف الأول - الصف الثانى - الصف الثالث طبعا مع تعديل بعض البيانات داخل الملف المهم الآن كود الترحيل فأنا لقلة الخبرة لم أستطع التعديل على أكواد التعديل فى المنتدى برغم كثرتها إليكم الملف وفى انتظار الرد Book2.rar

السلام عليكم ورحمة الله وبركاته .... تعديل الملفات وإضافة الدور الثانى أوتوماتيكيا تحديث روابط ملفات اعمال الامتحانات والمرتبات بتاريخ اليوم الثلاثاء: 25/01/2015م رقم إصدار البرامج: 15.3 مع أطيب تمنياتي للجميع بالتوفيق 01062507977 – 01091553661 – 01270384484 الروابط على مركز الخليج تمكين الماكرو .... http://www.gulfup.com/?6whkzt سجلات ومستندات الكنترول ... http://www.gulfup.com/?WLXVNL قوائم إكسيل 2003 ..... http://www.gulfup.com/?oGOatC قوائم الفصول 15.2 ..... http://www.gulfup.com/?xHGLCT كشوف الملاحظة 15.2 .. http://www.gulfup.com/?W7pMB8 كشوف المرتبات 15.2 ... http://www.gulfup.com/?RIXIP4 كنترول الابتدائي 1 15.3 ..... http://www.gulfup.com/?FtCrLh كنترول الابتدائي 2 15.3 .... http://www.gulfup.com/?Q84Ezc كنترول الإعدادي 15.3 .... http://www.gulfup.com/?23g8mh كنترول التجاري 15.3 .... http://www.gulfup.com/?1m80DJ كنترول الصناعى 15.3 .... http://www.gulfup.com/?ecD649 كنترول اولى ثانوي 15.3 ... http://www.gulfup.com/?gvD4x7 كنترول ثانية ثانوي 15.3 .... http://www.gulfup.com/?1Up1dX ملف التقويمات 15.2 .... http://www.gulfup.com/?6YtDCl