كل الانشطه

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

شكرا جزيلا أخي الفاضل وبارك الله فيك

اذا كان المقصود من كلام أخونا صاحب الموضوع هو الكتابة على ملف PDF يستعمله كقالب !!!! فهذه نقطة لا ولم ولن يتم تطبيقها من خلال اكسيس إلا بإنشاء تقرير ثم تصديره كملف Pdf . غير ذلك فلن تحصل على إختراع يلبي حاجتك وفكرتك.

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

نرجوا من الإخوة مساعدتي

الموضوع بالإنجليزية ملف PDF يكون صفحته فارعة يوجد به معلومات اساسية مثل الرقم اللقب الاسم تاريخ الميلاد وبعد البحث عن الموظف يمتلئ صفحة PDF مثلا الموظف الرقم 1001 اللقب ALI الاسم Hassan تاريخ الميلاد 01/01/1999 PDF Report.rar

اي علاقة الديانة لم تدرج في الاستعلامات من الأساس تفضل التقرير شامل تحليلي النصفين لجميع الصفوف .. Data13.rar

جزاك الله خير - تمام 100 % ممكن اضافة فقرة اخرى - في عمود l اسم الشركة - ليكون التقرير حسب الشهر واسم الشركة الشهر والشركة.xlsm

الموضوع بالإنجليزية

عند اختيار مكان الشغل او اسم المقاول بين التاريخين يتم استدعاء البيانات من شيت يومية المقاولين عمالة نظام جديد.xlsm

تفضل ازالة علامة.xlsx

المطلوب ازاله الكومة من خلف الرقم او امام الرقم ازالة علامة.xlsx

ابخصوص الاستعلام الاول لا تاخذ به انا نسيت ان ازيله

السلام عليكم ورحمة الله وبركاته استاذنا العزيز kkhalifa1960 في هذا المثال تم تحديد مكان تصدير التقرير في مكان وجود قاعدة البيانات والذي هو CurrentProject.Path طيب انا حاولت انه عند تصدير التقرير , المستخدم يحدد مكان تصدير التقرير عن طريق مربع الحوار application.fileDialog ولكن لم استطيع تنفيذ هذا الامر ! هل من الممكن المساعدة في هذا الموضوع ؟ MergMic.rar

شكرا على المجهود لكن التقصير مني لم اوصلكلك الفكرة بشكل واضح ان واضع شرط لازم يكون الجمع بنفس nemeroimp وبفس السنة anneeimpo ارفق لك ملف اكسيل يوضح الموضع بشكل جيد oool1.xlsx

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

تفضل استاذ @alloui79 المرفق بعد التعديل بطلبك حسب مافهمت بالاستعلام 2 . ووافني بالرد . Database9-2.rar

أخي الفاضل أبو خليل بعد سلام الله عليكم ورحمة الله وبركاته مرسل لحضرتك مرفق وبه تقرير إحصاء بالصفوف الأولي والصف الثالث ولكن صادفتني مشكلة في إحصاء الدين مش عارف أحلها ( موجود بالمرفق جدول الديانة ) أنا أطن لازم نعمل علاقة بين جدول الديانة و الاستعلام qry_Temp بس مش عارف اعمله لو تكرمت انظر للمرفق Data12.rar

السلام عليكم ورحمة الله وبركاته اليك ما طلبت جدول التفريغ22.xlsm

والنعم منك استاذي تقضل الملف مرفق به جدول معلومات المعلمين وبه جدول الخلاصة التي اريدها ان تضهر تلقائي ......... ملاحظات إضافية أحتاج مكان اكتب بها القاعات الامتحانية مثلا لدي 10 قاعات امتحانية وكذلك أحتاج مكان اكتب به ايام المراقبة مثلا من السبت - الأحد - الاثنين- الثلاثاء - الأربعاء - الخميس جدول مراقبة المعلمي.rar

ممتاز أخي @Foksh بارك الله فيك وحزاك كل الخير ان شاء الله

اين بدايتك انت ... جداولك .... حتى نرى ما المطلوب ... ابدأ وسوف تجد الاجابات من مرتادي المنتدى ... ابشر

وعليكم السلام ورحمة الله تعالى وبركاته جرب هدا Sub test() Dim dest As Worksheet, WS As Worksheet Dim m As String, a As Variant, k As Variant Dim d As Object: Set d = CreateObject("Scripting.Dictionary") Dim ShArr As Variant: ShArr = Array("aaa", "bbb") Dim i As Long, lr As Long, r As Long: r = 2 With Application .ScreenUpdating = False: .EnableEvents = False: .Calculation = xlCalculationManual On Error Resume Next Set dest = Sheets("التقرير") If dest Is Nothing Then Set dest = Sheets.Add: dest.Name = "التقرير" Else dest.Range("A:E").ClearContents On Error GoTo 0 dest.Range("A1").Resize(1, 5).Value _ = Array("الشهر", "عدد النقلات", "مجموع المبلغ للسائق", "مجموع مبلغ العقد", "مجموع الكمية (طن)") For Each WS In Sheets(ShArr) lr = WS.Cells(WS.Rows.Count, "M").End(xlUp).Row For i = 2 To lr m = Trim(WS.Cells(i, "M").Text) If m <> "" Then If Not d.exists(m) Then d(m) = Array(0, 0, 0, 0) a = d(m) a(0) = a(0) + 1: a(1) = a(1) + tmp(WS.Cells(i, "S").Value) a(2) = a(2) + tmp(WS.Cells(i, "U").Value): a(3) = a(3) + tmp(WS.Cells(i, "F").Value) d(m) = a End If Next i Next WS For Each k In d.Keys a = d(k) dest.Cells(r, 1).Resize(1, 5).Value = Array(k, a(0), a(1), a(2), a(3)) r = r + 1 Next k .ScreenUpdating = True: .EnableEvents = True: .Calculation = xlCalculationAutomatic End With MsgBox "تم إعداد التقرير بنجاح", vbInformation End Sub Private Function tmp(x As Variant) As Double tmp = IIf(IsNumeric(x), x, 0) End Function تقرير من شيتين v2.xlsm

up

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