كل الانشطه

استاذي 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

Database9-1.accdboool.xlsxاريد ان يكون tva و irtva في نفس السطر في ملف اكسس كما هو مبين في ملف اكسيل ولذلك مجموعهما

السلام عليكم انشاء جدول يتم توزيعه تقائيا بمجرد إدخال المعلومات التالية في برنامج الاكسل جدول بالاعمدة التالية اسم المعلم / القاعة الامتحانية / فئة المعلم / يوم المراقبة/ يوم امتحان مادة المعلم التي يدرسها / لجنة التصحيح وأيضا ان يراعي الشروط التالية الشرط الأول / ان يضع في كل قاعة معلم من فئة a, ومعلم من فئة b في نفس القاعة ونفس اليوم يعني كل قاعة فيها اثنين معلمين الشرط الثاني / اذا كان للمعلم امتحان للمادة التي يدرسها لا يضعه بالمراقبة يعني اذا كان اسم المعلم في عمود ( يوم امتحان مادة المعلم التي يدرسها ) لا يضع بالمراقبة في نفس اليوم الشرط الثالث / اذا كان اسم المعلم موجود في عمود لجنة التصحيح لا يضعه مراقبة

السلام عليكم انشاء جدول يتم توزيعه تقائيا بمجرد إدخال المعلومات التالية في برنامج الاكسس جدول بالاعمدة التالية اسم المعلم /القاعة الامتحانية / فئة المعلم/ يوم المراقبة/ يوم امتحان مادة المعلم التي يدرسها / لجنة التصحيح وأيضا ان يراعي الشروط التالية الشرط الأول / ان يضع في كل قاعة معلم من فئة a, ومعلم من فئة b في نفس القاعة ونفس اليوم يعني كل قاعة فيها اثنين معلمين الشرط الثاني / اذا كان للمعلم امتحان للمادة التي يدرسها لا يضعه بالمراقبة يعني اذا كان اسم المعلم في عمود ( يوم امتحان مادة المعلم التي يدرسها ) لا يضع بالمراقبة في نفس اليوم الشرط الثالث / اذا كان اسم المعلم موجود في عمود لجنة التصحيح لا يضعه مراقبة