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

اخي الفاضل طبعا الفورم به صفحتان الاولي للشريط المتحرك والاخرى لكلمة الباس الاستاذ ضاحي متعه الله بالصحة عمل الكلمات بالشريط عن طريق ادراج صورة بمعني تكتب العبارة التي تريدها في الرسام او الباوربوينت وتحفظها كصورة ثم تفتح الفورم وتنقر على الشريط فقط ثم من خصائص الفورم تختار picture وتقوم بادراجها الطريقة الثانية والتي قمت بعملها على الفورم ادراج ليبل وكتابة ما تشاء به ولك الخيار تحياتي شاشة صلاحيات باس ورد111.xls

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

السلام عليكم اتمنى ان يكون طلبك نسخة.xlsm

ارفق ملفك لتتم المساغدة

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

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

https://www.officena.net/ib/topic/101082-كيف-يمكن-زيادة-عدد-الاعمدة/?tab=comments#comment-611040

الموقع لا يسمح بالتحميل الا بالاشتراك

وفقك الله اخى تحياتي

نعم مثل ما قلت حولها الى xlsm او xlsb

اخي الفاضل يبدو انك تعمل على الاوفيس 2003 ونهاية اعمدتهiv اي 256 عمود\ الاضدارات بعد 2003 تلبى طلبك فمثلا اوفيس 2010 عدد اعمدته اكثر من 16000 وصفوفه اكثر من مليون هذا اذا كان في جهازك اصدار 2003 اما اذا كان في جهازك اصدار اكبر من 2003 وملفك معمول عل اصدار 2003 فقم بنحويل ملفك الى اسدار اعلى من حفظ باسم اتمنى انى قد افدتك والله اعلم

اذا كانت المعادلات كثيرة كما تقول .فتحويل المعادلات الى اكواد سيقلل من بطء الملف وطبعا لعمل ذلك لابد من ارفاق الملف او يمكنك البحث في المنتدي طريقة تحويل المعادلات الى اكواد وهي كثيرة جدا تحياتي

السلام عليكم اخي لم اعدل شيئا على الكود لاني لا اعلم ولكن سجلت لك كود تم اظافته الى الكود يكون فيه طلبك ان شاء الله(الكود طويل لانه تسجيل) تحياتي التوزيع.xlsm

السلام عليكم من اكواد المنتدى طبقته عل ملفك لا تنسى تفعيل الماكرو تحويل المعادلة الى كود.xlsm

السلام عليكم تم عمل الاوائل حسب المجموع الكلي اخر العام بالنسبة للدوائر اين مكانها في خانة مجموع المادة اام كل الخانات لا يوجد في ملفك شهادات اخر العام تحياتي المصنف2.xlsb المصنف3.xlsb

هذه معادلة ضفيف ويمكنك تعديل المدي في المعادلة وطبعا الاقواس ستنحذف يمكنك ارجاع الاقواس بالضغظ على ctrl+shift+enter تحياتي

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

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

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

استاذنا الفاضل يبدو انك نسيت ارفاق الملف في انتظارة للتعلم والاستفاذة شكرا على ارفاق الملف

جزاك الله خيرا في ميزان حسناتك استاذنا ومعلمنا ابوأمنة

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

ولك اضعاف ما دعوت لي

السلام عليكم تم تحويل معادلة الاستاذ يوسف الى كود ويتعامل الى 1000صف .يمكنك الزيادة في الكود بدل 1000 الى الرقم الذي تريده لاننسي صاحب الكود من دعوة صالحة بان يجعلها في ميزان حسناته السيد الفاضل عبدالله باقشير جرب الملف _QTesT1.xlsm

جرب هذا الكود وهو نفس الكود في ملفك وبواسطة AND يمكن اضافة اكثر من جهاز Private Sub Workbook_Open() 'If Hex(CreateObject("Scripting.FileSystemObject").Drives.Item("C:").SerialNumber) <> "سريل الجاهز الاول" And Hex(CreateObject("Scripting.FileSystemObject").Drives.Item("C:").SerialNumber) <> "سريل الجهاز الثاني" Then 'MsgBox "Attention ! Ce programme est spécial pour M : tahar1983 ", vbCritical, "Violation des droits du programme" 'ThisWorkbook.Close savechanges = True 'End If End Sub حماية برقم الهارد ديسك.xls وجدت الكود في ملفاتي ويعمل على خمسة اجهزة ويمكن زيادتها الى ما تشاء Private Sub Workbook_Open() 'Dim PC1$, PC2$, PC3$, PC4$, PC5$ 'PC1 = "74828D32" ' رقم الايدي للجهاز 1 'PC2 = "12BE1EE2" ' رقم الايدي للجهاز 2 'PC3 = "2D4F902" ' رقم الايدي للجهاز 3 'PC4 = "282B91B1" ' رقم الجهاز 4 'PC5 = "" ' رقم الايدي للجهاز 5 'With CreateObject("Scripting.FileSystemObject") 'If Hex(.Drives.Item("c:").SerialNumber) = PC1 Or Hex(.Drives.Item("c:").SerialNumber) = PC2 _ 'Or Hex(.Drives.Item("c:").SerialNumber) = PC3 Or Hex(.Drives.Item("c:").SerialNumber) = PC4 _ 'Or Hex(.Drives.Item("c:").SerialNumber) = PC5 Then 'Else: MsgBox "نأسف هذا البرنامج مخصص لجهاز اخر " 'ThisWorkbook.Close SaveChanges = True 'End If 'End With End Sub