عبدالله الصاري

وعليكم السلام ورحمة الله وبركاته كيف حالك استاذ خيري حسب فهمى لطلبك ارفق لك هذا الملف اظافة الى طلبات اخرى من مشاركة اخرى https://www.officena.net/ib/topic/109798-نرنيب-الطلبة-حسب-المدرسة-ككل-وحسب-الفصل/ تحياتي SA.xlsm

ارفق الملف لتحديد سبب المشكلة

لو ارفقت ملفا لكان اجدى مرفق ملف به كود بسيط جدا الكود لا تغير به شئ سوى مدى ورقة الاكسل تحياتي ... الملف المرفق من احدى المواقع الاجنبية تحويل الى وورد.xls

تم التعديل خطأ بالمعادلة.xlsx

وعليكم السلام ورحمة الله وبركاته جرب الملف تلوين المكرر.xlsm

وعليكم السلام ورحمة الله وبركاته حسب فهمى لطلبك ارجو ان يكون بالملف المرفق طلبك النقل البري بيانات الموظفين (2).xlsm

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

المعادلة للاستاذ نزار سليمان عيد والكود للسيد عبدالله باقشير خفظهما الله تم تحويل المعادلة الى كود لعدد الف صف تحياتي يومية.xlsb

السلام عليكم اكتب المعادلة التى تريد تحويلها الى كود وايشر خيرا ان شاء الله وان كانت معادلة الاستاذ نزار هي المطلوبة فاعلمنى .

جرب هذا المرفق وهو من كنوز المنتدى للسيد عبدالله باقشير البرقيات.xls

وعليكم السلام ورحمة الله وبركاته فكرة رائعة وعملية هدية مقبولة وان شاء الله في ميزان حسناتك كل العام وانت بخير

وعليكم السلام رحمة الله وبركاته وكل عام وأنتم بخير Application.ScreenUpdating = True MsgBox "تم الإنتهاء من طباعة جميع المستندات هل تريد الخروج من البرنامج مع الحفظ", vbOKOnly, "ok" ActiveWorkbook.Save End Sub

هذا الكود يحول الى وورد ولكن يتعين عليك تعديل اعددات الصفحة في الوورد من حيث الصفحة افقية او راسية وغيره Sub wordexport() Set Word = CreateObject("Word.Application") Word.Documents.Add Word.Visible = True Range("E1:Q1010").Copy Word.Selection.PasteExcelTable False, False, False Application.CutCopyMode = False End Sub

بل يعمل 2545 حفطك الله

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

وعليكم السلام ورحمة الله وبركاته لو ارفقت ملفا كان اجدى وانفع في بداية الكود ActiveSheet.Unprotect Password:="123" وفي نهاية الكود ActiveSheet.Protect Password:="123" جيث 123 هي كلمة مرور الحماية

السلام عليكم تم تقسيم الكود ويعمل بزر واحد الزر اسمه بحث تحياتي NEW 1.rar

وعليكم السلام ورحمة الله وبركاته لا اعلم سبب وجود زرين للترخيل وزرين للاضافة باكواد مختلفة ربما يكون لها اهمية في ملفك الرئيسي اكتب بياناتك ثم ترخيل وهكذا اذا لم يكن هذا طلبك ارفق ملفك الرئيسي ختى تتضح الفكرة listbox (3).xlsm

حسب فهمي لطلبك ... جرب المرفق نسبة التغير.xlsx

طبقت لك على شهادة التكوين فقط وكنت آمل ان تكمل باقي الشهادات على نفس النمط تقريبا على كل جال اليك الملف فيه طلبك ان شاء الله برنامج انجاز الشهادات - اكواد الترحيل والتنقل بين النماذج (11).xlsm

وعليكم السلام ورحمة الله بركاته الملف غير تالف وبفتح على اوفيس 2010 به صفخات الشهور ولا توجد به اي بيانات

ربما هذا الدرس به الافادة وضع صورة متحركة على الشيت واليوزرفورم gif ساجدة العزاوي https://www.youtube.com/watch?v=hZDEhMMuQHw

وعليكم السلام ورحمة الله وبركاته استبدل الكود بهذا Private Sub CommandButton10_Click() Sheets("شهادة تكوين").Select Cells(16, 2).Value = TextBox1.Value Cells(15, 2).Value = TextBox2.Value Cells(15, 6).Value = TextBox3.Value Cells(17, 5).Value = TextBox4.Value Cells(18, 3).Value = TextBox5.Value Cells(19, 2).Value = TextBox6.Value Cells(19, 5).Value = TextBox7.Value Cells(20, 2).Value = TextBox8.Value Cells(20, 7).Value = TextBox12.Value End Sub استبدل UserForm1.Show Unload Me بــ Unload Me UserForm1.Show تفس الطلب الاول برنامج انجاز الشهادات - اكواد الترحيل والتنقل بين النماذج.xlsm

وعليكم السلام ورحمة الله وبركاته طريقة التحويل داخل الاكواد تجد VBA.Calendar= vbCalHijri قم بتغيرها الى VBA.Calendar= vbCalGreg والله اعلم الملف بعد التعديل Daily (1).xlsm

ثوابت بامكانك تغييرها حسب طلبك بداية اكواد الفورم 1- تغيير تنسيقات إظهار التاريخ في الفورم في الثابت DtF 2- تغيير عٌرض مربعات الادخال في الثابت iWgt1 بالنسبة لصفحة الطباعة اعتقد ان الكود يقوم بانشاء ورقة للطباعة مؤقتة ثم يقوم بحذفها بغد الطباعة والله اعلم ارفقت مع الملف شيت به شرح الفورم وهو بقلم صاحب الفورم باقشير وهذا كل ما اعلمه عن الفورم yousef.xlsb