كل الانشطه

تفضل استاذ @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

أخي الفاضل ( أبو خليل ) بعد سلام الله عليكم ورحمة الله وبركاته مرفق لكم ملف ومحتاج عمل هذا النموذج frm_degree_Veiw الذي كان موجودا في البرنامج القديم Data15.rar

حفظ التقرير بصغية PDFويتم الحفظ فى فولدرباسم تقارير فى بارتشن E بالاسم بدلالة التاريخ من الى واسم بدلالة اسم المقاول او بدلالة مكان الشعل مثلا يكون الاسم ( تقرير الفترة من تاريخ / / /2025م الى تاريخ / / / 2025م اسم المقاول " على حسب اسم D3 ) او يكون الاسم ( تقرير الفترة من تاريخ / / /2025م الى تاريخ / / / 2025م اسم المقاول " على حسب اسم E3 ) عمالة نظام جديد3.36.xlsm

عايز كود اخفاء تلفائى للصفوف والاعمدة على اساس التاريخ من و الى واظهار البيانات فقط

وعليكم السلام ورحمة الله وبركاته أخي @ابو نبأ الأمر بسيط جدا وسأشرح لك خطوة بخطوة كيف تضيف شرطا جديدا (مثل: موقع التحميل في العمود k) إلى الكود بحيث يمكنك لاحقا تعديل أو إضافة أي شرط بنفس الطريقة 1) التحقق من أن العمود الجديد (k) ليس فارغا If Trim(WS.Cells(i, "M").Text) <> "" And _ Trim(WS.Cells(i, "L").Text) <> "" And _ Trim(WS.Cells(i, "K").Text) <> "" And _ <===== (موقع التحميل) العمود الجديد 2) تعديل المفتاح M ليشمل القيمة الجديدة m = Trim(WS.Cells(i, "M").Text) & "|" & Trim(WS.Cells(i, "L").Text) & "|" & Trim(WS.Cells(i, "K").Text) 3) تعديل إخراج البيانات المفككة من المفتاح f = Split(k, "|") a = d(k) dest.Cells(r, 1).Resize(1, 7).Value = Array(f(0), f(1), f(2), a(0), a(1), a(2), a(3)) 4) لا تنسى تعديل رؤوس الأعمدة في الصف الأول لتتناسب مع التغيير dest.Range("A1").Resize(1, 7).Value _ = Array("الشهر", "اسم الشركة", "الموقع", "عدد النقلات", "مجموع المبلغ للسائق", "مجموع مبلغ العقد", "مجموع الكمية (طن)") ليكون الكود النهائي بعد إظافة عمود موقع التحميل على الشكل التالي Option Explicit Sub TEST2() Dim dest As Worksheet, WS As Worksheet Dim m As String, a As Variant, k As Variant, f 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 With dest.Range("A:G") .ClearContents .Borders.LineStyle = xlNone End With End If On Error GoTo 0 dest.Range("A1").Resize(1, 7).Value _ = Array("الشهر", "اسم الشركة", "الموقع", "عدد النقلات", "مجموع المبلغ للسائق", "مجموع مبلغ العقد", "مجموع الكمية (طن)") For Each WS In Sheets(ShArr) If WS.AutoFilterMode Then WS.AutoFilterMode = False lr = WS.Cells(WS.Rows.Count, "M").End(xlUp).Row For i = 2 To lr If Trim(WS.Cells(i, "M").Text) <> "" And Trim(WS.Cells(i, "L").Text) <> "" And Trim(WS.Cells(i, "K").Text) <> "" Then m = Trim(WS.Cells(i, "M").Text) & "|" & Trim(WS.Cells(i, "L").Text) & "|" & Trim(WS.Cells(i, "K").Text) If Not d.exists(m) Then d(m) = Array(0, 0, 0, 0) d(m) = Array(d(m)(0) + 1, d(m)(1) + tmp(WS.Cells(i, "S").Value), d(m)(2) + tmp(WS.Cells(i, "U").Value), d(m)(3) + tmp(WS.Cells(i, "F").Value)) End If Next i Next WS For Each k In d.Keys f = Split(k, "|") a = d(k) dest.Cells(r, 1).Resize(1, 7).Value = Array(f(0), f(1), f(2), a(0), a(1), a(2), a(3)) r = r + 1 Next k Call ShFormat(dest, "A:G") .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 '======================================= Private Sub ShFormat(ByRef WS As Worksheet, ByVal Col As String) With WS .Activate Dim lastRow As Long lastRow = WS.Cells(WS.Rows.Count, "A").End(xlUp).Row With WS.Range("A1:G" & lastRow).Borders .LineStyle = xlDash: .Weight = xlThin: .ColorIndex = xlAutomatic End With .DisplayRightToLeft = True .Columns(Col).EntireColumn.AutoFit .Columns(Col).HorizontalAlignment = xlCenter .Columns(Col).VerticalAlignment = xlBottom .Range("E:G").NumberFormat = "0" End With End Sub ملاحظة : يمكنك تعطيل تنسيق الجدول النهائي بحذف أو تعليق هذا السطر أو تعديله ليشمل أعمدة أكثر إذا زادت الأعمدة لاحقا Call ShFormat(dest, "A:G") تقرير - حسب - الشهر - والشركة -الموقعV2 .xlsm

السلام عليكم وفق الله الاستاذ الخبير محمد هشام - على مساعدتي في اعداد الكود وعندي اضافة وحبيت ان تكون في مشاركة جديدة - حسب توجيهات المنتدى الطلب هو اضافة شرط اخر على الكود وهو (الموقع) في شيت اسمه (تقرير منفصل) كما في الملف المرفق تقرير - حسب - الشهر - والشركة.xlsm

الأعمدة عندك ثابثة لغاية عمود Y ممكن تخفيها يدويا عادي أما الصفوف مادا تقصد هل الغاء تنسيق الأعمدة الغير مستخدمة كحدف التسطير او اخفائها نهائيا

تسلم 100 % - الكود شغال وحسب ما مطلوب جزيت خيرا

السلام عليكم هل هذا ملف pdf اللي تريده؟ استعنت ببرنامج اخوي خليفة 🙂 جعفر DD1Testdb2.mdb rpt_ST_Information.pdf