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

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

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

السلام عليكم الخطأ في رقم العمود بدل 116 اصبح117 المصنف1.xlsb

هدية مقبولة بارك الله فيك

حسب فهمي لطلبك جرب المرفق حسابات 12020.xlsm تحياتي

السلام عليكم تفضل اخي الفاضل test1.xlsx

السلام عليكم اتمنى ان تجد في الملف المرفق طلبك لا تغير اسم ملف الاسماء ولا اسم الشيت الكود للسيد مختار من اعضاء المنتدى المميزين _import _name.xlsm name.xlsx