الميزار

جزاك الله خير وبارك الله فيك ولكن للاسف لا يعمل

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

بارك الله فيك

السلام عليكم ورحمة الله وبركاته عملت برنامج و اضقت قائمة منسدلة في التقرير عن طريقة الماكرو يظهر فيها طباعة و تصدير pdf و..... اريد اضيف مع هذه القائمة امر عند الضغط عليه يفتح نافذة اعدادات الصفحة للتقرير وشكرا Database5.accdb

الف مليون تريلون شكر بارك الله فيك استاذ : جعفر ولا حرمك أجر هذا العمل الرائع

يعجز اللسان عن الشكر لك استاذ :: جعفر بارك الله فيك

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

بعد اذن صاحبك الموضوع استاذ // جعفر كرما لا امر ممكن تشوف هذا الرابط

ارجوا ان يكون المطلوب sa-كشف حساب.accdb

بعد اذن الاستاذ جعفر لعل هذا المطلوب برنامج متابعة غياب طلاب الفراغات.rar

شكرا استاذ عصام على تجاوبك وبارك الله فيك تم استبدال ملف الاكسل ولم يكن هناك تغير انا لا اريد العمل على ملف الاكسل ( لاني عامل على ملف الاكسل مسابقا والامور تماما ) اريد التطور قليلا اريد ان يتعامل ملف الاكسس مع ملف الاكسل مباشر دون تعديل على ملف الاكسل ولعلي اوصح المطلوب مرة اخري في جدول Degrees اريد اضافة حلقين يتم استيراد بياناتهم من ملف الاكسل مباشر مثل الاسم والرقم الاكاديمي ورقم ورقة الاكسيل يعني اسم الطالب رقم الاكاديمي رقم رقة الاكسيل المادة الشعبة ( طبعا المادة والشعبة تكون لجميع الطلاب في ورقة الاكسل مثل محمد 35225 88 كيمياء1 الشعبة 2 وليد 35201 88 كيمياء1 الشعبة 2 عبدالله 35235 88 كيمياء1 الشعبة 2 صالح 35105 88 كيمياء1 الشعبة 2 عبدالحميد 35301 88 كيمياء1 الشعبة 2 ارجوا ان يكون المطلوب واضج

السلام عليكم ورحمة الله وبركاته عند البحث وحدت هذا البرنامج مع عمل الاستاذ : جعفر حفظه الله هذا البرنامج يقوم باستيراد صفحات الاكسل صفحة تلو الاخرى والحاقها بالجدول الاساسي بحيث يكون الجدول فيه اسم الطالب ، رقم الاكاديمي ، رقم صفحة الاكسل ما اريده هو اضافة في نفس الجدول الاساسي حقلي ( المادة والشعبة ) بحيث تكون أمام كل طالب مثل رقم الصفحة يوجد مع الرفق ملف الاكسل المراد استيراد البيانات منه 299.ImportDegrees.accdb.rar

بارك الله فيك يعجز اللسان عن الشكر واذا ممكن تشرح كفية عمل الوحدة النمطية انا مبتدئ في الاكسس

السلام عليكم ورحمة الله وبركاته يوجد لدي ملف اكسل بيه بيانات الطلاب ولكن البيانات في صفين الاول بالعربي والثاني بالانجليزي وعند استيراد الملف الى برنامج الاكسس تظهر فقط بيانات الطالب بالعربي في صف والانجليزي في صف اريد ان تكون بيانات الطالب العربي والانجليزي في صف واحد السؤال الثاني ملف اكسل به اسماء الطلاب لكل مادة وشعبة وعند استيراد جميع الصفحات ( sheets ) يظهر اسم المادة والشعبة في الاعلى وتحته اسماء الطلاب اريد كود يقوم بنسخ اسم المادة والشعبة امام كل طالب في نفس المادة والشعبة لجيمع المواد والشعب في الملف المرفق جدولين الاول به بيانات الطلاب باسم sheet والثاني به اسماء الطلاب موادهم وشعبهم باسم sheet1 تعليم.accdb

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

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

سلام عليكم ورحمة الله وبركاته 1- يوجد لدي جدول فيه بيانات الطلاب العربية في صف والانجليزية في صف في الجدول (1) الموجودة فيه بيانات الطلاب عند استيراده من ملف الاكسل مباشرة يعطي صفين الاول اسم الطالب بالعربي وبياناته والصف الثاني فيه بيانات الطلاب بالانجليزي اريد نقل بيانات الطلاب الانجليزية بجانب البيانات العربية ويكون بالكود . 2- يوجد لدي جدول فيه اسماء الطلاب وارقامهم الاكاديمية وفي الاعلى اسم المادة وتحتها الشعبة لمواد مختلفه يعني ان يتم نسخ المادة الشعبة ووضعها امام الطلاب في الجدول (2) حسب توزع الطلابي في الشعب لكل مادة كل ذلك بالكود مثال موجود ملفات الاكسل موجودة قاعدة بيانات2.mdb 1.xls 2.xls

شكرا أخي أحمد ولا حرمك الله الاجر ....

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

السلام عليكم ورحمة الله وبركاته يوجد لدي جدول به بيانات الطلاب ومن ضمنها رقم لجنة الاختبار ، وجدول ثاني به اللجان المقترحة لتوزيع الطلاب ، ما أريده هو كيف يتم اعطاء طالب رقم اللجنة حسب الترتيب المقترح ( ابجديا أو حسب الفصل ) بعد ترتيب الطلاب يتم توزيع الطلاب حسب الترتيب وحسب عدد الطلاب في كل لجنة يعني يوجد لدي 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 ولا أدري هل هو صحيح في الاصل أو لا ولكن عند تطبيقه قام بالعمل المراد ببالصورة المطلوبة ولكن المشكلة أني أقوم بفتح كل ورقة عمل وتطبيق الماكرو عليها ما اريده عند تنفيذ هذا الماكرو يقوم بالنتفيذ على جيمع أوراق العمل والسلام ختام