كل الانشطه

ولا يهمك اخي الكريم 😇

بارك الله فيك وشكرا على التوضيح فلم اخذ بالي

يسعدنا أنك حصلت على إجابتك الشافية التي حققت طلبك ، ولذا . نرجو منك تصويب إختيارك للإجابة الصحيحة وهي للأستاذ @عبدالله بشير عبدالله مشكوراً على جهوده والإخوة والأساتذة دون استثناء 💐 شكراً لاهتمامك ورحابة صدرك 😇

بارك الله فيك استاذنا / عبدالله بشير عبدالله

السلام عليكم كود طباعة وكود تحويل pdf Sub Print_Managers_Deputies() Dim wsData As Worksheet, wsReport As Worksheet Dim lastRow As Long, i As Long Dim idVal As String, roleVal As String Application.ScreenUpdating = False Application.EnableEvents = False Set wsData = ThisWorkbook.Sheets("data") Set wsReport = ThisWorkbook.Sheets("التقرير مدير وكيل") lastRow = wsData.Cells(wsData.Rows.Count, "A").End(xlUp).Row For i = 3 To lastRow idVal = wsData.Cells(i, "A").Value roleVal = wsData.Cells(i, "E").Value If (InStr(1, roleVal, "مدير", vbTextCompare) > 0) _ Or (InStr(1, roleVal, "وكيل", vbTextCompare) > 0) Then wsReport.Range("L2").Value = idVal wsReport.PrintOut wsReport.Range("L2").Value = 1 End If Next i MsgBox "تمت طباعة جميع المديرين والوكلاء.", vbInformation Application.ScreenUpdating = True Application.EnableEvents = True End Sub Sub sav_PDFall2() Dim wsData As Worksheet, wsReport As Worksheet Dim lastRow As Long, i As Long Dim roleVal As String Dim folderPath As String, pdfPath As String Dim safeName As String Application.ScreenUpdating = False Application.EnableEvents = False Set wsData = ThisWorkbook.Sheets("data") Set wsReport = ThisWorkbook.Sheets("التقرير مدير وكيل") wsReport.Unprotect password:="0" folderPath = ThisWorkbook.Path & "\التقرير مدير وكيل" If Dir(folderPath, vbDirectory) = "" Then MkDir folderPath lastRow = wsData.Cells(wsData.Rows.Count, "A").End(xlUp).Row For i = 3 To lastRow roleVal = wsData.Cells(i, "E").Value If (InStr(1, roleVal, "مدير", vbTextCompare) > 0) _ Or (InStr(1, roleVal, "وكيل", vbTextCompare) > 0) Then wsReport.Range("C9").Value = wsData.Cells(i, "B").Value safeName = wsReport.Range("C9").Value safeName = Replace(safeName, "/", "-") safeName = Replace(safeName, "\", "-") safeName = Replace(safeName, ":", "-") safeName = Replace(safeName, "*", "-") safeName = Replace(safeName, "?", "-") safeName = Replace(safeName, """", "-") safeName = Replace(safeName, "<", "-") safeName = Replace(safeName, ">", "-") safeName = Replace(safeName, "|", "-") pdfPath = folderPath & "\" & safeName & ".pdf" wsReport.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=pdfPath, _ Quality:=xlQualityMinimum, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=False End If Next i MsgBox "تم حفظ جميع ملفات PDF للمديرين والوكلاء في:" & vbCrLf & folderPath, vbInformation wsReport.Protect password:="0" Application.ScreenUpdating = True Application.EnableEvents = True End Sub الملف طباعة وظائف محددة.xlsm

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

تحديث واستكمــــــــــــــــال 1- امكانية عرض التقرير بتغير حجم النافذة 2- مع بعض التصحيحات 😇 =========================== 1- عرض معاينة المسحوبات مع التحكم والتصحيح 2- تفعيل عند تحريك عجلة المواس للتقليب بين الصفحات 3- تحسين في الواجهة مع بعض التصحيحات 😇 وسعة الموضوع من تحويل الملفات الى نافذة التقرير والتحكم 😂 من يقدر يشغلة من غير تقسيم حسب الطلب تحميل المرفق https://www.mediafire.com/file/72tbjuus7f5owu9/V_1_8_PDF_To_IMG_Trluoon.rar/file

الفيديو الثاني AL; Get and Post with JSON using Microsoft Access and VBA by Neil Sargent (+ theDBguy) (English_ASR).rar الفيديو الثاني.docx

اريد طباعة المدير والوكلاء فقط من الأسماء اي لوحدهم لأنهم نموذج ٣ والباقي معلمين لوحدهم لأنهم نموذج ١ وكل ورقة من الملف تخص نوع وهذا على سبيل المثال لان هناك اوراق أخرى مثل نموذج ٣ و ٤ و٥ نقويم أداء.xlsm

المطلوب الأول هو من جنس المطلوب الثاني ولا داعي لتكرار الجداول المعادلات المستخدمة هي من نوع الصفيف وليست معادلات عادية تفضل example1.xlsx

الاخوه الأفاضل @Foksh @منتصر الانسي كل الشكر والتقدير لكم وبارك الله بكم وبعلمكم

أهلا وسهلا اخي ابو خليل لا سوف أتطلع عليه .. بس اعتقد لايوجد

شكرا جزيلا لك أخي الكريم عبد الله بشير عبد الله وربنا يبارك في حضرتك

الله يعطيك العافيه اخي منتصر اضافتك ممتازه شكرا لك استاذي وبارك الله فيك🌹

إثراؤك للموضوع أثار إعجابي ، وأشكرك نيابة عن صاحب الموضوع لما أثريت

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

فعلاً كلامك صحيح 100% ، وانا اعتمدت على ان الفكرة لن يكون بها تكرار - بسبب بنية الجدول - ، ففي القطعة الواحدة لن يكون لها مثلاً = كوي مكررة ، وهذا ما دعاني لعدم التطرق لفكرة دمج التكرار

اقتراح جميل - لكن أعتقد ان الافضل ان يتم ارفاق الترجمة مع كل ملف فيديو يكون أفضل و أحسن - بحيث عندما يشغل الاعضاء الملف يكون عندهم مترجم لذلك سأرفق هنا ان شاء الله برنامج يمكن من خلاله تحميل ملف الفيديو من موقع يوتيوب - مفتوح المصدر و مجاني - و هذا البرنامج يمكنه ايضا تحميل الترجمة الانجليزية للحوار لكني سأضع هنا ان شاء الله ترجمات الفيدوهات السابقة و التالية باذن الله و جزاكم الله خيرا برنامج التحميل مفتوح المصدر : https://jdownloader.org/

بعد إذن الأخ @Foksh قمت بتعديل المثالين لدمج القيم بدون تكرار قد يكون هذا التعديل غير ملائم لصاحب السؤال ولكني رأيت وضعه لإثراء الموضوع (وقد يحتاجه أحد الأعضاء مستقبلاً) تحياتي at_aziz.rar

لدي ورقة امتحان مكتوبة أريد طباعتها بأرقام اللجان لكل ورقة رقم خاص بها وكل لجنة بعدد الطلاب التي بها ولدي جدول به اكواد اللجان وإعداد الطلاب بها فمثلا لجنة رقم ١ بها عدد ٢٠٠ طالب فيتم طباعتها ٢٠٠ نسخة ولجنة ٢ بها ٤٠٠ طالب يتم طباعة ٤٠٠ نسخة

شكرا اخي الفاضل كثيرا لمتابعة وجاري التجربة

فى الملف المرفق ، يرجى عمل دالة تحديد عدد العناصر التى دخلت و خرجت من مخزن الفاكهة خلال توقيت معين و كذلك مجموع كميات الأصناف فى فترة أخرى بفلتر اخر - مرفق الملف و صورة منه و لكم جزيل الشكر example.xlsx

بالسلامة أخي الكريم .. خذ وقتك

وعليكم السلام ورخمة الله وبركاته ربما تفصد اخفاء الاعمدة وليس الخذف كما ورد في طلبك الكود يخفى العمود كله فارغ أو كله قيمه تساوي (0 أو 0%) → يخفي العمود بالكامل. الكود في البداية يظهر كل الأعمدة ثم يعيد إخفاء المناسب تم ربط الكود مع امر الفلترة اظافة التسطير لناتج الفلترة هذا خسب فهمى لطلبكم الكود Sub فلترة_اخفاء() Dim wsSrc As Worksheet, wsDst As Worksheet Dim lastRow As Long Dim rng As Range, col As Range, c As Range Dim hideCol As Boolean Dim rngOut As Range Application.ScreenUpdating = False Set wsSrc = ThisWorkbook.Sheets("المجمع") Set wsDst = ThisWorkbook.Sheets("1") lastRow = wsDst.Cells(wsDst.Rows.Count, "A").End(xlUp).Row If lastRow >= 5 Then wsDst.Rows("5:" & lastRow).ClearContents wsDst.Rows("5:" & lastRow).ClearFormats End If wsDst.Columns("A:W").Hidden = False lastRow = wsSrc.Cells(wsSrc.Rows.Count, "E").End(xlUp).Row If lastRow < 2 Then Exit Sub wsSrc.Range("E1:W" & lastRow).AdvancedFilter _ Action:=xlFilterCopy, _ CriteriaRange:=wsDst.Range("Criteria"), _ CopyToRange:=wsDst.Range("Extract"), _ Unique:=False lastRow = wsDst.Cells(wsDst.Rows.Count, "A").End(xlUp).Row If lastRow < 5 Then GoTo Done Set rngOut = wsDst.Range("A5:W" & lastRow) With rngOut.Borders .LineStyle = xlContinuous .Color = vbBlack .Weight = xlThin End With rngOut.EntireColumn.Hidden = False For Each col In rngOut.Columns hideCol = True For Each c In col.Cells If Not (isEmpty(c.Value) Or c.Value = 0 Or c.Text = "0%") Then hideCol = False Exit For End If Next c If hideCol Then col.EntireColumn.Hidden = True Next col Done: Application.ScreenUpdating = True End Sub الملف W1.xlsm تحياتي

جزاك الله خيرا وبارك الله فيك اخي @Foksh كوني جاءني سفر غير مبرمج. وليس لدي جهاز كمبيوتر لأجرب وانا اتابع من الهاتف حاليا عندما اعود يوم الأحد مساءا سأجرب الملف وأوافيك بالنتيجة ألف شكر مرة أخرى