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

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

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

وعليكم السلام ورحمة الله وبركاته تم اظافة احصائية الوظائف وعدد المسجلين ويتم عدها عند تشغيل كود الحجز كما تم عمل واجهة للدخول اسم المستخدم بلال كلمة المرور 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

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

يشمل كل عملية حفظ واعتقد انك تريد التعديل على الكود ليحفظ بامتداد XLSM أو XLSB هل الامركذلك

السلام عليكم ورحمة الله وبركاته كان من الافضل ارفاق ملف للتطبيق عليه جرب الملف المرفق ببيانات افتراضية في النطاق A2:A100 ومعادلة الجمع في الخلية D2 ,DL ويمكنك نسحها الى اي خلية اخرى =IFERROR(SUMPRODUCT((A2:A100>0)*(SUBTOTAL(103;OFFSET(A2;ROW(A2:A100)-MIN(ROW(A2:A100));0)))*(A2:A100));0) جمع الأرقام الموجبة فقط الظاهرة دون المخفية.xlsx

وعليكم السلام ورحمة الله وبركاته اضغط على قائمة ملف (File). اختر خيارات (Options) . من النافذة التي ستظهر، اختر تبويب حفظ (Save) . ابحث عن خيار حفظ المصنفات كما بالصورة ثم موافق

السلام عليكم ورحمة الله وبركاته اعتقد ان المشكلة في تنسيق الخلايا حيث التنسيق الحالي _-* #,##0.00 _€_-;-* #,##0.00 _€_-;_-* "-"?? _€_-;_-@_- _-* "-"?? _€_- هذا الجزء يخبر إكسل أن يعرض علامة "-" بدلًا من الصفر. اجعل تنسيق الخلايا لكل النطاق c6:k76 _* #,##0.00 _€_-;_* #,##0.00 _€_-;_;;_-@_- حيث ;; يجعل الخلية فارغة طبقت التعديل على بعض الصفحات التي تم الغاء الحماية عنها كتجربة ورقة الإستهلاك اليومي جانفي100% 2026.xls ارجو ان يكون في ردي بعض الافادة

التصفية في ورقة جديدة 1تصفية.xlsb

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

وعليكم السلام ورحمة الله وبركاته هذا الطلب غير موجود في عنوان مشاركتم الاساسية ولا في شرح طلبكم وبالنسبة لهذا الطلب اردت تقديم ما يفيد ولكن حسب ملقكم و حسب طلبكم الاحير ومن الملاحظات:- خلية "الاسم" و"مكان العمل" غير مرتبطة بقوائم الأسماء أو البيانات في الصفحات الأخرى، والاسم المكتوب غير موجود أصلاً في السجلات؛ دمج آلاف الخلايا من V إلى XFC (أكثر من 16,000 خلية) لعمل قائمة منسدلة هو إجراء غير صحيح، في حين أن خلية واحدة تكفي تماماً فاذا كان طلبكم الاساسي وهو ادراج كود معاينة قد تحقق في الرد السابق عليه قم بادراج موضوع جديد به طلب واضح مقرون بملف مستوف للبيانات ومنظم تقنياً ومحدداً في أهدافه إلغاء الدمج ، واستخدام خلية واحدة فقط (مثلاً V6) وتوسيع حجمها ظاهرياً فقط إذا لزم الأمر واربطها بمصدر البيانات الفعلية والاسماء الحقيقية الموجودة بالملف ولا احفيك سرا ان اي ملف عشوائي في التنسيق وغير مستوف البيانات لا يشجع أحداً على العمل عليه قم بذلك والجميع سيقدم المساعدة والحلول المناسبة تقبل الله صيامكم

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

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

وعليكم السلام ورحمة الله وبركاته هناك امر لم استوعبه في ملفك هل المعادلة في N1 تتعامل مع الحلية C2 فقط ام مع كل العمود C2:C اذا كانت مع كل العمود فيفضل كتابتها في N2 ثم تسحب الى اسقل حتى تتعامل كل حلية في C مع ما يقابلها في N اما اذا كانت المعاملة محدودة C2 مع N1 فقط جرب الملف المرفق ج مساعدة.xlsm

وعليكم السلام ورحمة الله وبركاته نستخدم دالة Abs في VBA. هذه الدالة تقوم بتحويل أي رقم سالب إلى موجب مع تغيير اسماء التكست لديك TextBox3.Value = Abs(Val(TextBox1.Value) - Val(TextBox2.Value))

السلام عليكم اليك المعادلة التي تطبق على M2 عدد التكرار .xlsx