محمد مصطفى درويش

بارك الله فيك استاذنا

بارك الله فيك وفي مالك وعيالك، اخي الكريم عند التجريب وجدت ان الكود يعمل عند ربطه بزر هل يمكن وضع الكود ليعمل تلقائيا دون ربطه بزر ويكون للشيت رقم 1 وهل يمكن التعديل عليه لينفذ الامر في الخلية bk23 فقط بدلا من اي خلية في العمود A شاكرا جهودك

السلام عليكم ورحمة الله وبركاته اخواني هل تستطيعوا مساعدتي في كتابة كود برمجي في العمود a وفي اي خلية في العمود اذا كان النص بالخلية بدون فراغ فاريد تنسيق النص shring to fit ( احتواء مناسب) واذا كان النص بالخلية بفراغ بكون التنسيق wrap text (التفاف النص ) بمعنى اذا كان النص في اي خلية بالعمود a يتكون من كلمة واحدة يكون التنسيق shring to fit ( احتواء مناسب) واذا كان النص في اي خلية بالعمود a يتكون من كلمتين فأكثر بكون التنسيق wrap text (التفاف النص ) شاكرا جهودكم مرفق ملف العمل الجديد لتوضيح الفكرة ملف العمل.xlsx

استاذي هل تستطيع مساعدتي في كتابة كود برمجي اخر في العمود a وفي اي خلية في العمود اذا كان النص بالخلية بدون فراغ فاريد تنسيق النص shring to fit ( احتواء مناسب) واذا كان النص بالخلية بفراغ بكون التنسيق wrap text (التفاف النص ) بمعنى اذا كان النص في اي خلية بالعمود a يتكون من كلمة واحدة يكون التنسيق shring to fit ( احتواء مناسب) واذا كان النص في اي خلية بالعمود a يتكون من كلمتين فأكثر بكون التنسيق wrap text (التفاف النص ) شاكرا جهودك استاذنا . مرفق ملف العمل الجديد لتوضيح الفكرة ملف العمل.xlsx

بارك الله في عمرك ومالك وجميع احبابك ، لقد تفضلت علي بعطائك استاذنا

بارك الله فيك اشكرك على جهودك ، ربنا يديم عليك الصحة والعافية ويرزقك الجنة في الاخرة ❤️

السلام عليكم اخواني أرجو المساعدة بايجاد كود برمجي او حل لهذه المشكلة التي تواجهني مرفق في ملف العمل العمود A في كل صف من العمود المذكور يوجد نص طول هذا النص يختلف من صف الى صف تحت العمود A فأحيانا صف يوجد فيه 4 كلمات واحيانا صف يوجد فيه كلمة واحيانا صف فيه كلمتان واحيانا فيه 3 كلمات وانا اعرف خاصية الاحتواء المناسب للنص داخل الخلية ولكن اريد ان يبقى عرض العمود كما هو والخلية التي تحتوي على كلمة واحدة يتغير حجم خطها ليصبح كبير وتكون الكلمة واضحة والعمود التي فيه كلمتان يتغير حجم الخط ليناسب الكلمتين وهكذا علما ان الخلايا منسقة بخاصية التفاف النص ملف العمل.xlsx

بارك الله في عمرك يا اخي الكريم اشكرك من كل قلبي وجزاك الله عمن أخدمهم بهذا البرنامج ، لك اجرهم كصدقة جارية ان شاء الله

السلام عليكم ورحمة الله تفضل احد الأخوة على هذا المنتدى المبارك بكتابة كود يطبع لي شيتات الاكسل ابتداء من الشيت بطاقة 1 الى بطاقة60 كما هو موضح بالملف المرفق رقم 1 حيث انني بعد فترة من العمل قمت بالتعديل على ملف العمل الاكسل واريد تعديل الكود ليطبع الملفات كما في الملف المرفق رقم 2 وهذا هو الكود المراد تعديله Sub Test() ExportAsPDF "ÇáÈØÇÞÇÊ" End Sub Public Sub ExportAsPDF(ByVal sOut As String) Dim ws As Worksheet, s As String For Each ws In ThisWorkbook.Worksheets If InStr(ws.Name, Chr(199) & Chr(225) & Chr(200) & Chr(216) & Chr(199) & Chr(222) & Chr(201)) Then s = s & IIf(s <> Empty, ",", Empty) & ws.Name Next ws PrintToPDF Split(s, ","), ThisWorkbook.Path & "\" & sOut & ".pdf" End Sub Public Sub PrintToPDF(arr, sFileName As String, Optional vQuality = xlQualityStandard, Optional vIncDocProperties = True, Optional vIgnorePrintAreas = False, Optional vOpenAferPublish = False) ThisWorkbook.Sheets(arr).Select ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sFileName, Quality:=vQuality, IncludeDocProperties:=vIncDocProperties, IgnorePrintAreas:=vIgnorePrintAreas, OpenAfterPublish:=vOpenAferPublish ActiveSheet.Select End Sub وعلى هذا الرابط تجدون الملفات علما ان زر طباعة PDF موجود في شيت مسمى الصفحة 1 ولفك حماية الماكرو للتعديل على الكود هو 12310 شاكرا جهودكم https://drive.google.com/drive/folders/1jPQGWqw-994KYYoJpeA1QBylm5bg9pVa?usp=sharing

بارك الله في علمك وعملك ووفقك الله أخي الكريم ، اعذرني أخي الكريم لعلي لم أفهم قصدك بردك السابق (هل تريد حفظ الشيتات بصيغة Pdf في مكان معين وطباعتها في نفس الوقت او الحفظ فقط) انما كل ما اريده ان يقوم الكود بحفظها بهذا الشكل ان أمكن شاكرا تعبك معي في هذه الايام الفضيلة كما في الملف المرفق التالي بطاقات الصف الثاني.pdf

حياك الله اخي الكريم محمد جميع حدود الشيتات منسقة ومحدد ناحية الطباعة لجميع الشيتات اريد حفظ الشيتات بصيغة PDF في نفس المجلد الموجود فيه الشيتات وشاكرا جهودك 😍

بارك الله في جهودك استاذ محمد عرفة هناك شيتات لا ارغب في طباعتها والا لكنت اخترت هذا الامر الذي ذكرت ، ارفق اليك ملف العمل دون ضغط ملف شاكرا جهودا يمكنك تجميل الملف من هذا الرابط https://drive.google.com/drive/folders/1jPQGWqw-994KYYoJpeA1QBylm5bg9pVa?usp=sharing

السلام عليكم اخواني مرفق ملف العمل اكسل اريد كتابة كود طباعة كل الشيتات ابتداء من الشيت المسمى البطاقة1 وانتهاء بالشيت المسمى الصف الثاني60 علما ان عدد الشيتات المراد طباعتها بصيغة PDF عددها 120 شيت شاكرا جهودكم علما ان كود حماية الماكرو هو 12310 ملاحظة : تم اعادة رفع الملف فى مشاركة لاحقة

السلام عليكم اخوتي قمت بتصميم برنامج لملف الطلاب على اكسل وهو مرفق فيه شيت عدد 2 اسم الشيت الأول البطاقة1 والشيت الثاني اسمه الصف الثاني1 كل منهما يحتويان على بيانات تمثل ملف للطالب ارغب بطباعة الشيتين على ورقة a3 دوبلكس فقمت بتحديد الشيتين وذهبت الى امر طباعة واخترت الامر طباعة على الوجهين ولكن الوجه الاخر يظهر معكوس فاخترت الامر الاخر طباعة وجهين من الناحية القصيرة ولكنه لم يطبع كلا الوجهين عللى صفحة واحدة بل على صفحتين حاولت مرارا فلم اجد حلا وبحثت في اليوتيوب ولم اجد حل ارجو المساعدة ملف الطالب اكسل.xlsx

اشكرك استاذ lionheart على الكود هل بالامكان التعديل عليه بحيث لا يطبع كافة البطاقات فان هناك بطاقات في النهاية فارغة ولست بحاجة الى طباعتها والامر مختلف من شعبة الى اخرى واذا كان من الممكن ان توجه الشيتات الى الطابعة مباشرة بحيث لا تحول الى pdf الفكرة التي كانت لدي ولم استطع تنفيذ الكود الخاص بها هي ان اختار خليتين في اكسل فاكتب مثلا في الاولى الرقم 1 وفي الثانية الرقم 42 فيقوم الكود بطباعة الشيتات من 1 الى 42 وهذا الرقم يختلف في كل مرة مثلا في المرة الثانية يطبع من 1 الى 38 وهكذا شاكرا جهودك