كل الانشطه

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

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

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

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

السلام عليكم كود طباعة وكود تحويل 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

اريد طباعة المدير والوكلاء فقط من الأسماء اي لوحدهم لأنهم نموذج ٣ والباقي معلمين لوحدهم لأنهم نموذج ١ وكل ورقة من الملف تخص نوع وهذا على سبيل المثال لان هناك اوراق أخرى مثل نموذج ٣ و ٤ و٥ نقويم أداء.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 كوني جاءني سفر غير مبرمج. وليس لدي جهاز كمبيوتر لأجرب وانا اتابع من الهاتف حاليا عندما اعود يوم الأحد مساءا سأجرب الملف وأوافيك بالنتيجة ألف شكر مرة أخرى

#مركز_الفرسان_الدولي_للتدريب #Alforssan International Training Center بسم الله الرحمن الرحيم مركزالفرسان الدولي للتدريب AL-Forssan يقدم دورات فى التخطيط وإدارة المشروعات يمكنكم التسجيل او الاستفسارعلى الدورة الان ......................... يحصل المتدرب على شهادة معتمدة من مركز الفرسان الدولي للتدريب للتواصل والإستفسار وطلب المحتوي العلمى يرجى التواصل بـ الاستاذة : نادين عز Mob/what’s app : 002 01200571999 Email. info@alforssan.com Website: www.alforssan.com دورة إدارة المشاريع الرشيقة دورة إدارة المشاريع الحديثة دورة شاملة في PLC دورة إدارة تنفيذ المشروعات الإنشائية PMP دورة مكتب إدارة المشاريع (PMO) دورة شهادة مدير المشروع المعتمد دورة إدارة المشاريع بإستخدام Ms project دورة دراسة الجدوى الإقتصادية للمشروعات دورة الجودة الشاملة فى إدارة المشاريع دورة التحليل المالى وتقييم أداء المشاريع دورة الإدارة الفعّالة لمشاريع تقنية المعلومات دورة مهارات إدارة المشاريع دورة الإعداد لشهادة أخصائي إدارة المشاريع (PMP) دورة إدارة أصحاب المصلحة للمشروع دورة الإعداد لشهادة أخصائي إدارة مخاطر المشاريع (RMP)® دورة إدارة محافظ المشاريع دورة موازنة المشاريع وتقدير التكاليف و تقنيات توفيرها دورة الإعداد لشهادة الممارس المعتمد في إدارة المشاريع الرشيقة (PMI-ACP)® دورة إتقان مكتب إدارة المشاريع PMO من التأسيس وحتى مؤشرات الأداء الرئيسية ولوحات المراقبة دورة الأتجاهات الحديثة والمتقدمة فى التمويل والأستثمار دورة شهادة في الإدارة المتقدمة للمشاريع دورة التخطيط والجدولة وضبط المشاريع بإستخدام بريمافيرا دورة إدارة إتصالات ومخاطر وتوريدات المشاريع دورة تخطيط وتطبيق مكاتب إدارة المشاريع والتحضير لشهادة مدير مشاريع محترف دورة إدارة وبرمجة وتخطيط وجدولة وضبط المشاريع بإستخدام الحاسب الالي MS Project و بريمافيرا دورة الإحتراف في إدارة المشاريع وحل المشاكل وإتخاذ القرارات دورة تخطيط وجدولة وضبط المشاريع دورة إجادة الجدولة والتحكم بالمشاريع وإكتساب المهارات الإدارية دورة إدارة المشاريع والإشراف على الإستشاريين والمقاولين دورة البرنامج التأسيسي في إدارة المشاريع دورة إدارة مشاريع تكنولوجيا المعلومات دورة الإدارة المتكاملة ونطاق العمل وإدارة الوقت والجودة والموارد البشرية و التدريب والتكلفة للمشروع دورة تقنيات بدء المشروع وتخطيطه وتنفيذه دورة المهنية والتخصص والإحتراف في إدارة المشاريع– البرنامج الأصلي للتحضير لشهادة مدير مشروع محترف دورة التحضير لشهادة مدير مشاريع معتمد وإكتساب المهارات الشخصية والإدارية دورة الإحتراف في إدارة المشاريع وتطوير المهارات الإدارية والقيادية دورة الإحتراف في إدارة مخاطر المشاريع دورة الإحتراف في إدارة المشاريع وتجنب المخاطر وفن التفاوض والمهارات القيادية وبناء فرق العمل دورة البرنامج الأول في إدارة المشاريع لمجالات المعرفة التسعة وفقاً للمقياس العالمي الموحد دورة تقنيات إدارة المشاريع المعتمدة وإكتساب مهارات الإدارة الإستراتيجية دورة مجموعة العمليات المتكاملة لإدارة المشروعات وفقاً للمقياس العالمي الموحد دورة إدارة برامج مشاريع – دورة تحضيرية لشهادة إستشاري PMP دورة برنامج إدارة المشاريع الشامل - التخصص في إدارة المشاريع والتخطيط والجدولة والتحكم دورة التخصص في إدارة المشاريع والتعامل الفعال مع المتغيرات الإدارية دورة تقنيات التفاوض والقيادة الفعالة وبناء فرق عمل إدارة المشاريع دورة تخطيط وجدولة وضبط المشاريع – برنامج تحضيري لشهادة PSP دورة الإحتراف في إتخاذ القرارات وإدارة المخاطر دورة التحضير لشهادة إدارة برامج ومكتب مشاريع دورة الإحتراف في إدارة المشاريع والتخطيط الإستراتيجي والقيادة المتميزة دورة مهارات إدارة المشروعات الهندسية دورة مواضيع متقدمة في إدارة المشاريع ، ومهارات القيادة والتفاوض والتعاقد وبناء فرق العمل الفعالة دورة أساسيات إدارة المشاريع دورة إدارة المشاريع ورشة عمل متقدمة في التحكم وإدارة المشاريع والأدوات التعاقدية الناجحة دورة القائد الماستر - مهارات إدارة المشاريع والإدارة دورة الإدارة المتكاملة لمراحل ونطاق سير المشروع وإدارة الوقت دورة البرنامج المتقدم الإحتراف في إدارة المشاريع دورة إدارة الجودة والموارد البشرية و التدريب وتكاليف وإتصالات ومخاطر وتوريدات المشاريع …………………………… للتواصل والإستفسار ومعرفة المحتوي العلمى يرجى الاتصال بـ الاستاذة : نادين عز Mob/what’s app : 002 01200571999 Email. info@alforssan.com Website: www.alforssan.com ولكم جزيل الشكر والإحترام كما يعقد مركز الفرسان الدولي للتدريب الدورات التالية بالتخصصات المذكورة ( دورات الإدارة والقيادة - دورات الموارد البشرية والتدريب - دورات الجودة والأنتاجية - دورات المشتريات والمخازن اللوجستية - دورات إدارة الإمن - دورات السلامة والصحة والبيئة - دورات التسويق والمبيعات وخدمة العملاء - دورات الأعلام والعلاقات العامة - دورات المحاسبة والخدمات المالية - دورات القانون والعقود - دورات البنوك والخدمات المالية - دورات التخطيط وإدارة المشروعات - دورات التأمينات - دورات النفط والغاز - دورات التجارة الخارجية ودراسة الجدوي - دورات تخطيط أعمال الصيانة - دورات الهندسة المدنية وأعمال البناء - دورات الطاقة الكهربائية - دورات الجمارك والموانيء - دورات الخدمات الطبية - دورات السكرتارية وإدارة المكاتب ) ………………………………. إسلوب إعداد البرنامج التدريبى : المحاضرات: ينفذ الدورات مجموعة من الخبراء المتخصصون في مجالات التدريب المختلفة المادة العلمية: وهي مكتوبة على شرائح تعليمية باستخدام برنامج Power Point كوسائل مساعدة الحالات والتطبيقات العملية الحوارات والنقاشات الموجهة تمثيل ولعب الادوار ورش العمل ومشاركة المتدربين نموذج استطلاع الراي قاعات التدريب بفنادق 5 نجوم تناول الوجبات الخفيفة والمشروبات اثناء البرنامج ………………………………………… يوفر مركز الفرسان الدولي للتدريب مزايا كثيرة ضمن برنامج الدورات التدريبية تتضمن : * خصومات خاصة للمجموعات * خصومات خاصة للتسجيل المبكر * الدورات التدريبية تنفذ باللغتين : العربية أو الإنجليزية حسب تفضيلكم * القاعة التدريبية على مستوى فندقي 5 نجوم * خصومات في العديد من الفنادق و تسهيلات في السكن * وغيرها من المزايا ......... * الشهادات : يحصل المتدرب على شهادة معتمده دوليا من مركز الفرسان الدولي للتدريب لمزيد من المعلومات عن الدورات والمحتوى العلمى والتكلفة والمواعيد يرجى التواصل على الارقام الاتية للتواصل والإستفسار ومعرفة المحتوي العلمى يرجى الاتصال بـ الاستاذة : نادين عز Mob/what’s app : 002 01200571999 Email. info@alforssan.com Website: www.alforssan.com ولكم جزيل الشكر والإحترام