الميزار

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

السلام عليكم ورحمة الله وبركاته يوجد لدي جدول به بيانات الطلاب ومن ضمنها رقم لجنة الاختبار ، وجدول ثاني به اللجان المقترحة لتوزيع الطلاب ، ما أريده هو كيف يتم اعطاء طالب رقم اللجنة حسب الترتيب المقترح ( ابجديا أو حسب الفصل ) بعد ترتيب الطلاب يتم توزيع الطلاب حسب الترتيب وحسب عدد الطلاب في كل لجنة يعني يوجد لدي 20 طالب مرتبين ابجديا ، اريد بغطة زر يعطي كل طالب رقم اللجنة حسب توزيعي للطلاب في اللجان ، ففي اللجنة الاولي طالبين فيكون الطالب الاول والثاني حسب الترتيب رقم اللجنة 1 أما اللجنة الثانية فيوجد بها طالب واحد فيعطي الطالب الثالث رقم اللجنة 2 أما اللجنة الثالث لا يوجد بها طلاب فلا يوزيع بها طلاب اللجنة الرابع بها ثلاثة طلاب فيعطي الطالب الرابع والخامس والسادس رقم اللجنة 4 وهكذا حتة ينتهي توزيع الطلاب والسلام ختام مرفق Database3.rar

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

السلام عليكم ورحمة الله وبركاته عملت برنامج يقوم بنحضير الطلاب وبعد الانتهاء من التحضير يتم تغييب الطلاب الذيم لم يحضروا في هذا اليوم ثم تصدير تقدير باسماء الطلاب الغائبون في هذا اليوم على صورة اكسل و pdf وحتى لا يشكل علي في ملفات الغياب جعلت البرنامج يعطي الملف بعد التصدير اسم تاريخ اليوم وبهذا يكون لدينا ملفات الاكسل بعدد ايام الغياب وبهذا يكون ملف الاكسل أو pdf بهذه الصورة 24-09-1436 . المشلكة هي: في برنامج من الاخ ........... محمد صالح ..... وهو ارسال البريد من الاكسس مباشرة ، المشلكة عند الضغط على رز الارسال للارسال وتحميل ملف الاكسل أو pdf ، لا يتعرف البرنامج على الملف حيت يعطي أن الملف غير موجود في المسار المحدد كود تصدير التقرير الى اكسل و pdf وحفظهم في ملف باسم saleh Private Sub ÃãÑ2_Click() Dim MyFiLeName As String MyFiLeName = "C:\saleh\saleh\" & Format(Date, "yyyy-mm-dd") & ".xls" DoCmd.OutputTo acOutputReport, "tbl_hdoor_t", acFormatXLS, MyFiLeName, True, acExportQualityPrint End Sub وهذا كود مسار الملف المراد تحميلة مع البريد في حالة الارسال .AddAttachment CurrentProject.Path & "\saleh\" & (Date) & ".xls" والسلام ختام

بارك الله في الجميع ولا حرمكم الله الاجر يعطيك العافية أخي العزيز أبوعيد كانت المشكلة في الكود أنه تم تحديد عدد أوراق العمل وهذا قد يعمل مشكلة لدي . أخي الكريم سليم بارك الله فيك أما هنا كانت المشكلة حذف الصفوف فقط وكان في الكود حذف صفوف وأعمدة وعند جمع الكودين من الأخوين الكريم خرجت بالكود التالي وهو قد حل المشلكة Sub ss() Application.ScreenUpdating = False x = Worksheets.Count For g = 1 To x Sheets(g).Activate Range("A1:A7,A9:A11,A13:A19").Select Selection.SpecialCells(xlCellTypeBlanks).Select Selection.EntireRow.Delete Range("A1").Select Range("A1:B1").Select Selection.SpecialCells(xlCellTypeBlanks).Select Selection.EntireColumn.Delete Range("A1").Select 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 g Application.ScreenUpdating = True End Sub فإذا كان هناك من تعديل أو حل آخر مع العلم أن الكود قام بالمطلووووووووووووووب والسلام ختام

السلام عليكم ورحمة الله وبركاته أخواني الكران أرجوا أن تتحملوني في هذا المنتدى الشامج برجالاته ، فأخوكم مبتدء في الاكواد في الأكسل ولاول مرة استخدمها يوجد لدي ملف اكسل به أكثر من 100 ورقة عمل في بعض الاحيان وأريد أن احذف بعض الأعمدة والصفوف فبعد جهد وتعلم من كتابات أستاتيذي الكرام قمت بإنشاء هذا الكود Sub SS() Application.ScreenUpdating = False 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 Application.ScreenUpdating = True End Sub ولا أدري هل هو صحيح في الاصل أو لا ولكن عند تطبيقه قام بالعمل المراد ببالصورة المطلوبة ولكن المشكلة أني أقوم بفتح كل ورقة عمل وتطبيق الماكرو عليها ما اريده عند تنفيذ هذا الماكرو يقوم بالنتفيذ على جيمع أوراق العمل والسلام ختام