كل الانشطه

السلام عليكم استاذ @ابوخليل ان شاء الله جاري العمل حسب توجيهاتك

سيدي الفاضل ، موضوعك جدا سهل ، ولو انك من البداية ارفقت ملف الـ pdf لحصلت على الجواب من زمان 🙂 انت لست بحاجة الى ملف pdf ، وانما بحاجة الى قالب المسميات ، حتى تضع البيانات في مكانها. 1. حولت ملف pdf الى صورة ، وارفقتها كخلفية للتقرير ، 2. اعدت ترتيب الحقول لمكانها الصحيح حسب الخلفية ، 3. الافضل حذف الخلفية (حتى يصبح البرنامج خفيفا) ، ولكن قبل الحذف ، اعمل مربعات تسمية لكل التسميات التي بالازرق ، وقد عملت لك نموذجا "شهادة عمل" ، فقم بنسخه وعمل بقية التسميات ، ووضعها في مكانها الصحيح. والان يمكنك تصدير التقرير كملف pdf . والنتيجة: DD1Testdb2025.mdb

تسلم ايدك بجد الله ينور

Option Explicit Option Compare Text Sub FilterContractorData() Dim CrWS As Worksheet, dest As Worksheet, c As Long, OnRng, ColArr, a(1 To 4) Const tmp1 = 3, tmp2 = 4, colDate = 1 Dim col As Range, dataRng As Range, lastCol As Long: lastCol = 25 Set CrWS = Sheets("يومية المقاولين") Set dest = Sheets("تقرير تفصيلى") Dim lastRow As Long: lastRow = dest.Rows.Count With Application .ScreenUpdating = False: .Calculation = xlCalculationManual With dest .Range("A11:Y" & lastRow).ClearContents .Range("A11:Y" & lastRow).Borders.LineStyle = xlNone End With OnRng = CrWS.Range("B8:Y" & CrWS.Cells(CrWS.Rows.Count, "B").End(xlUp).Row).Value a(1) = dest.[D3].Value: a(2) = dest.[E3].Value a(3) = dest.[C6].Value: a(4) = dest.[D6].Value ColArr = FiltreTbl(OnRng, a, tmp1, tmp2, colDate, _ Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24)) If Not IsEmpty(ColArr) Then dest.Range("B11").Resize(UBound(ColArr), UBound(ColArr, 2)).Value = ColArr With dest.Range("A11:A" & dest.Cells(dest.Rows.Count, "B").End(xlUp).Row) .Value = Evaluate("ROW(" & .Address & ")-10") End With Call ShFormat(dest, "A:Y") Set dataRng = dest.Range("A11:Y" & lastRow) For c = 1 To lastCol If Application.WorksheetFunction.CountA(dest.Range(dest.Cells(11, c), dest.Cells(lastRow, c))) = 0 Then dest.Columns(c).Hidden = True Else dest.Columns(c).Hidden = False End If Next c Else MsgBox "لا توجد بيانات تطابق الشروط المحددة", vbExclamation End If .ScreenUpdating = True: .Calculation = xlCalculationAutomatic End With End Sub v3-عمالة نظام 2025_2026.xlsm

DD1Testdb2025.mdb اريد ان تظهر صفحة pdf مكتوب عليها المعلومات المكتوبة بالأسود فقط لان المعلومات المكتوبة بالأزرق مكتوبة سابقا

ملغ فبل الاستدعاء Document1.pdf ملف بعد البحث عن الموDocument2.pdfظف واريد تمتلئ المعلومات المكتوبة بالأسود

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

وعليكم السلام اضف مربع النص هذا (تقدر تعمله مخفي)، في هذا القسم: ثم في حدث عند تنسيق Report Footer اكتب هذا الكود Private Sub Report_Footer_Format(Cancel As Integer, FormatCount As Integer) On Error GoTo err_Report_Footer_Format Me.p = DLookup("Page_lettre", "tab_Page", "num_page=" & Me.Pages) Exit_Report_Footer_Format: Exit Sub err_Report_Footer_Format: MsgBox Err.Number & vbCrLf & Err.Description Resume Exit_Report_Footer_Format End Sub 1626.BASE_P.accdb ماشاءالله عليك اخوي خليفة ، حبتين البهارات اللي اضفتها اعطت نتيجة احلى 🙂

تفضل استاذ @moho58 طلبك حسب مافهمت . ووافني بالرد . BASE_P-1.rar

dest.Range("A11:T" & Lr).ClearContents =========> dest.Range("A11:Y" & Lr).ClearContents Private Sub ShFormat(ByRef dest As Worksheet, ByVal Col As String) Dim lastRow As Long lastRow = dest.Cells(dest.Rows.Count, "A").End(xlUp).Row With dest.Range("A11:Y" & lastRow).Borders .LineStyle = xlDash: .Weight = xlThin: .ColorIndex = xlAutomatic End With End Sub Dim Lr As Long: Lr = dest.Rows.Count With dest.Range("A11:Y" & Lr) .ClearContents: .Borders.LineStyle = xlNone End With عمالة نظام 2025_2026.xlsm

اذ اردت معلومات التقرير تظهر كاملة، احذف الكائن الذي داخل الدائرة الحمراء. . وكما طلب منك الاخوة سابقا ، رجاء ارفق لنا هذا الملف ، حتى نستطيع التحكم فيه وادخال البيانات من البرنامج

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

السلام عليكم الإخوة الأفاضل في هذا المنتدى الجميل في موضوعي هذا اريد كتابة عدد الصفحات في تقرير (بالحروف) وهذا بناء على الجدول tab_page إذا كان عدد صفحات التقرير هو : 1 يكتب في المكان المخصص في التقرير : يحتوي هذا التقرير على :صفحة واحدة إذا كان عدد صفحات التقرير هو : 2يكتب في المكان المخصص في التقرير : يحتوي هذا التقرير على :صفحتين (2) وهكذا .... الرجاء المساعدة والتوجيه وبارك الله فيكم BASE_P.accdb

بارك الله فيك وزادك من علمة وفضلة

ملاحظة القاعدة المرفقة لديك لم يتم التحميل ...... عملت لك قاعدة وفيها بيانات راجع جدول التوزيع هل تم بالشكل المطلوب ام لا ............... NA_1.accdb

السبلام عليكم انا مبتدئ وارجوا المساعدة الان قمت بارفاق الملف علما عندما اضغط غلى زر Aperçu état بقوم بإستدعاء ملف PDF الذي خارج قاعدة البيانات اكسس الذي عبارة عن وضيقة رسمية مكتوبة عليها معلومات رسمية وعند اختيار الموظف فأن معلوماته نجدها مباشرة على وثيقة PDF . DD1Testdb2.mdb

لم افهم ما المقصود بالتنسيق وان كنت تقصد العمود الاخير M غير ظاهر في ملف PDF فاستبدل في الكود نطاق البيانات Range("A1:L" & lastRow).ExportAsFixedFormat _ بهذا المدى Range("A1:M" & lastRow).ExportAsFixedFormat _ يعتى بدل العمود L يصبح M عمالة نظام جديد2025_2026.xlsm

فيه مشكلة 1- تكرار قيمة الواصل فى كل التقرير 2- التنسيقات الجداول 3- عند اختيار المقاول احمد شبل لا يمسح التقرير عمالة نظام 2025_2026.xlsm

على ورقة التقرير التفصيلى

جزاك الله خيرا لكن التنسيق عايز ايزبط وده من فضلك وليس امر

السلام عليكم ورحمة الله وبركاته اليك ما طلبت عمالة نظام جديد3.36.xlsm

تمام - الكود شغال - والامور حيل طيبة تسلم - سهلت عليه العمل

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

من فضلكم محتاج اعمل الغاء كلمة سر ملف اكسل للاهمية حد يقدر يساعدنى حسابات الاعلاف.xlsx