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

وعليكم السلام ورحمة الله وبركاته يبدو انك نسيت ارفاق اسم المستخدم وكلمة المرور وهي ليست لي لاني اعلمها من مشاركة في موضوع اخر ولكن لاعضاء المنتدى ليتمكنوا من المشاركة وتقديم الحلول اسم المستخدم سطيف كلمة المرور 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