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

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

السلام عليكم ورحمة الله وبركاته أرجو المساعدة في كتابة كود برمجي للترحيل من شيت اكسل الى ملف وورد اسم الشيت الذي ارغب بكتابة الكود فيه هو شيت قائمة الأسماء والترحيل يكون من الخلية 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 ملاحظة : تم اعادة رفع الملف فى مشاركة لاحقة

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

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

السلام عليكم اخواني مرفق ملف العمل فيه بطاقات احوال لكل طلاب الصف وحيث ان عدد الطلاب متفاوت بين الشعب ارجو المساعدة في كتابة كود طباعة كل الشيتات التي تحتوي على بيانات الطلبة علما ان كل بطاقة احوال الطالب موجودة في ورقة عمل منفصلة عن الاخرى علما ان عدد الشيتات المراد طباعتها في حدها الاقصى 60 شيت وفي كل مرة اختار فيها شعبة يختلف عدد الطلاب وبالتالي يختلف عدد الشيتات المراد طباعتها علما ان كلمة المرور لاضافة ميديول جديد هي 12310 شاكرا جهودكم بيانات احوال طالب 1.rar

حفظك الله أستاذنا وبارك فيك وفي بنيك ومالك وعيالك

السلام عليكم ورحمة الله وبركاته استاذي الكريم علية بن حاجي قمت مشكورا بالتعديل على الملف حسب ما كان مطلوب سابقا استاذي الكريم الكريم وجدت خللا في المعادلة حيث يفترض توزيع العدد على 11 خلية ولكني وجدتها موزعة على 10 خلايا وهل بالامكان أخذ الباقي بالاعتبار مثال لو قسمت 43 ÷ 8 = 5 والثلاث الباقية يتم توزيعها كالتالي 1 و 1 و 1 في كل خلية فتكون المحصلة النهائية كالتالي 5 5 5 5 5 5 5 5 1 1 1 شكرا جهودك استاذي واعتذر عن ازعاجك وان ما أقوم به كملف سيتم توزيع مجانا في مدارس اللاجئين الفلسطينيين بالاردن وسأرفق محاولاتي لعمل البرنامج والتي توقفت عند هذه النقطة انتبه من فضلك ان تستوفى طلبك من المشاركة ..فلابد من غلقها بعد الإنتهاء وحصولك على الإجابة المطلوبة محمد درويش.xlsx فرز الطلاب 2.xlsm

استاذنا ليس المهم عندي كيفية قسمة عدد على عدد الخلايا المهم هو كيف نبدأ قسمة العدد الثاني في الخلية التالية حيث انتهى العدد الاول

السلام عليكم ورحمة الله وبركاته ..أساتذتي الكرام أبحث عن حل ولم أجد اذا كان عندي عدد معين مثلا العدد 55 واريد تقسيمه بوضع 5 في كل خلية فانا سأقوم بتوزيعه على 8 أعمدة في اكسل مثلا ابتداء من العمود A وانتهاء بالعمود H بحيث اضع في كل خلية العدد 5 ابتداء من الخلية A2 وانتهاء بالخلية C3 واردت مثلا توزيع عدد اخر يبدأ توزيعه من الخلية D4 من حيث انتهى العدد الاول في الخلية C3 طبعا في كل مرة ينتهي العدد في خلية معينة والعدد التالي يبدأ من الخلية التي تليها مباشرة مرفق ملف يبين المطلوب ارجو مساعدتي لمن عنده الحل في كود او دالة شاكرا تعاونكم محمد درويش.xlsx

بارك الله فيك جربت ولم يصلح الامر

السلام عليكم اخواني جميعا سؤالي الذي بحثت عن اجابة له ولم أجد أنا اعمل على برنامج وورد 2019 باللغة الانجليزية وكلما أريد ان اعمل اطارا لصفحة الورد وعند الطباعة اجد ان الجهة اليسرى ليست بنفس بعد الجهة اليمنى مع انها عند المعاينة قبل الطباعة تظهر المعاينة مطابقة 100% سألت احد العارفين بخوص الطباعة فقال لي ان هذه مسكة الطابعة ولم اجدا حلا للان ارجو المساعدة

عدد الاعمدة الفرعية = 4 و25*4= 100 فهي اكبر من 90