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

وعليكم السلام ورحمة الله وبركاته بالنسبة للاوقات التي خارج الاوقات في M&N لم تحدده وفي اي بصمة تسجل تم ربط المعادلات حسب الاوقات في M&N اكسل1.xlsm

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

السلام عليكم نعم المشكلة من حماية الشيتات اليك التعديل مع اظافة الترقيم التلقائي لرقم التسجيل Plateform (1) .xlsb

اخى العزيز جربت الملف جميع الاكواد تعمل حذف الموظف يعمل-حذف الكل يعمل - معاينة الطباعة يعمل - كلها تعمل لدي بدون اي اخطاء ارفق الملف الذي تظهر به الاخطاء

وعليكم السلام ورحمة الله وبركاته يبدو انك نسيت ارفاق اسم المستخدم وكلمة المرور وهي ليست لي لاني اعلمها من مشاركة في موضوع اخر ولكن لاعضاء المنتدى ليتمكنوا من المشاركة وتقديم الحلول اسم المستخدم سطيف كلمة المرور 19840019 عودة للملف :- رقم التسجيل يجب ان يكون فريدا بمعنى كل موظف له رقم تسجيل خاص به لا يتكرر مع موظف اخر Plateform (1) (2) (1).xlsb

اليك التعديل Plateform (1).xlsb

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

وعليكم السلام ورحمة الله وبركاته كان من المفترض ارفاق ملفك او وضعت الرابط الى موضوعك السابق حتى يتسنى لاعضاء المنتدى المشاركة وهي عملية لها علاقة بالارشفة والتنظيم واتاحة الفرصة لمن يرغب في المشاركة على كل حال رابط الموضوع السابق https://www.officena.net/ib/topic/143408-عند-حماية-الورقة-يظهر-خطأ/ اليك الملف وبه طلبك ان شاء الله Plateform.xlsb

اليك التعديل Plateform.xlsb

وعليكم السلام ارفق ملف به حماية

السلام عليكم تم عمل الاحصائيات الملف المرفق به الاحصاء Plateform3.xlsb الشريط المتحرك ليس لدي جلفية لعملة ولا اراه مهما لانه سيسبب ثقل للملف ا1ذا تحققت طلباتك ارجو فتح موضوع جديد لاي طلب جديد وهذا حسب قوانين المنتدى

اليك التعديل Plateform2.xlsb

=نعم فهمتك ساقوم بالتعديل

وعليكم السلام لم افهم ما المقصود بنزع ايقونة وضح لي اكثر

وعليكم السلام ورحمة الله وبركاته تم اظافة احصائية الوظائف وعدد المسجلين ويتم عدها عند تشغيل كود الحجز كما تم عمل واجهة للدخول اسم المستخدم بلال كلمة المرور 123 يمكنك التعديل في الكود ان اردت تغييرها اليك الملف Plateform1.xlsb

وعليكم السلام ورحمة الله وبركاته اليك التعديل المطلوب Horaire1.xlsb

السلام عليكم ورحمة الله وبركاته جزاك الله خيراً على هذا الإهداء ، وبارك في علمك ووقتك نسأل الله أن يتقبل منك هذا العمل، وأن يجعله في ميزان حسناتك "علماً يُنتفع به" وصدقة جارية تفتح لك أبواب الخير. كل عام وأنت بألف خير، ودمت منارة للعطاء.

وعليكم السلام ورحمة الله وبركاته كل عام وانت بخير الصفحات كثيرة وهذا سيجعل اي كود يستغرق وقتا اطول لاستدعاء البيانات استغرق على جهازي حوالي 6 دقائق بمعدل ثانية واحدة لكل صفحة فكرة الاكواد ؟ الكود الاول (اسعار الاسهم ) يتم تشغيله مرة واحدة فقط ويستغرق عدة دقائق بعدها يتم التعامل مع زر التحديت ويستغرق اقل من دقيقة واحدة من خلال 3 مواقع ذكاء اصطناعي تحصلت على افضل كود يقوم بالمهمة التجرية تمت على اكسل 2016 لانه ليس لدي 2010 واعتقد ان الكود يعمل علي 2010 زر التحديث / بعد استدعاء البيانات يقوم زر التحديث بمقارنة البيانات المستدعاة بالموقع واذا كان هناك تغير يقوم يالتحديث قم بالتجربة واعلمنا بالنتائج افضل الاكواد تحصلت عليها من موقع https://chat.deepseek.com/ us_stocks_arincen (1).xlsb

اولا / الملف السابق به كودين كلاهما معاينة تم تعديل احدهما الى طباعة ثانيا :- للتطبيق على ملفك / احعل لغة الجهاز العربية وانسخ الكود المرفق وفي ملفك الاخر قم بالدخول إلى صفحة الفيجوال بيسك عن طريق التبويب Developer(المطور) ثم Visual Basic ثم من قائمة Insert اختر Module والصقه به واربطه بزر في الصفحة المراد ترقيمها ملاحطة/ الكود المرفق مهمته الطباعة مع الترقيم ان اردت المعاينة مع الترقيم بدون طباعة غير كلمة FALSE الى TRUE في الجملة ws.PrintOut From:=i, To:=i, Preview:=False Sub طباعة() Dim ws As Worksheet Dim totalPages As Long Dim i As Long Dim pageNum As Integer Set ws = ActiveSheet totalPages = (ws.HPageBreaks.Count + 1) * (ws.VPageBreaks.Count + 1) For i = 1 To totalPages pageNum = Application.WorksheetFunction.RoundUp(i / 2, 0) If i Mod 2 <> 0 Then ws.PageSetup.CenterFooter = "الصفحة " & Format(pageNum, "00") Else ws.PageSetup.CenterFooter = "تابع الصفحة " & Format(pageNum, "00") End If ws.PrintOut From:=i, To:=i, Preview:=False Next i End Sub

وعليكم السلام ورحمة الله وبركاته اذا كان الغرض من الترقيم اظهار الترقيم المطلوب في اوراق الطباعة او المعاينة فالكود افضل حل من الترقيم اليدوي مع الصفحات المتعددة مثال في الملف المرفق تكرار رقم الصفحة.xlsb تكرار رقم الصفحة (1).xlsb

وعليكم السلام ورحمة الله وبركاته . ارى الحل في الغاء جميع معادلات الصفيف واالابقاء على الاسماء في النطاق AA16:AA وبدل المعادلات كود في حدث الورقة ملاحظة هامة اذا اردت نقل الكود الى ملف اخر به الكمبوبكس1 يجب اجراء بعض التعديلات على اعدادات الكمبوبكس1 افتح الكمبوبكس في وضع التصميم ثم خصائص تم امسخ البيانات في الدائرة الحمراء كما في الصورة كذلك قم بمسخ المعادلات تقبل الله صيامكم وطاعاتكم حل مشكل القائمة المنسدلةباستخدام ComboBox1.xlsm

وعليكم السلام ورحمة الله وبركاته الحل هو نقل الكود إلى موديول (Module) عادي وتخصيص زر لتشغيله فقط عندما تضيف أوراق عمل جديدة اليك التعديل بالمرفق المصنف2.xlsm

جرب التعديل التالي لا ننس كتابة اسم الملف في الحلية A2 الكل (1) (2).xlsm لا حرج ان اردت اي تعديل احر

اليك التعديل الكود يحفظ بامتداد XLSB اذا اردته XLSM قم بتغيير XLSB الى XLSM + تغيير 50 الى 52 الكل (1).xlsm

ان شاء الله ساقوم بالتعديل على الكود