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

أستاذي عبدالله بشير عبدالله بارك الله فيك وفي مالك وجميع أحبابك الله يديمك

السلام عليكم ورحمة الله وبركاته أرجو المساعدة في كتابة كود برمجي للترحيل من شيت اكسل الى ملف وورد اسم الشيت الذي ارغب بكتابة الكود فيه هو شيت قائمة الأسماء والترحيل يكون من الخلية c1 الى العمود e علما ان الجدول مطاطي اي قابل للزيادة والنقصان في عدد بياناته اي يمكن ان اضيف اليه بيانات مستقبلا او انقص منه بيانات وارغب بان يكون اسم ملف الوررد بناء على البيانات الموجودة في الخلية e4 علما ان الدخول عبر واجهة البرنامج بدون كلمة مرور اما كلمة المرور هي دارفشيان لاضافة مديول جديد بالضغط على Alt+ f11 علما ان هذا البرنامج مجاني اخدم به الاف المعلمين من مدرسي الطلاب اللاجئين الفلسطينيين في الاردن موزع الطلاب الجدد للصف الأول2.xlsm

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

بارك الله فيك وفي مالك وعيالك، اخي الكريم عند التجريب وجدت ان الكود يعمل عند ربطه بزر هل يمكن وضع الكود ليعمل تلقائيا دون ربطه بزر ويكون للشيت رقم 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 ملاحظة : تم اعادة رفع الملف فى مشاركة لاحقة