كل الانشطه

وعليكم السلام ورحمة الله وبركاته بالرغم من وضوح طلبك في ملفك الاول حسب اعتقادي وجهزت كود لذلك وكنت اعتقد اننى فهمت المطلوب الا ان ملفك الاحير جعلنى اوافق استاذنا الفاضل Foksh في ان طلبك ليس واضحا وحسب بل هناك عدم وضوح اكبر في ملفك الاخير وعكس بعضهما في الفكرة في ملفك الاول خسب طلبك ووضعك النتائج في العمود P تحويل الصفوف الى عمود واحد وراء بعضها وهذه صورة من ملفك الاول وانا قمت بالتلوين ليتضح الامر في ملفك الثاني حسب شرحك ووضعك النتائج في العمود P والالوان تحويل الاعمدة من A:M في عمود واحد وراء بعضها كذلك هناك عدم وضوح احر في الملف الاحير اللون الاصفر 9 ارقام - اللون السماوي 13 رقم الاحضر 13 رقم اللونين الذي يلى الاحضر 9 ارقام - فما هو المعيار لاحتيار 9 احيانا و13 احيانا احرى ام زيادة الحلايا الى 13 هي تنيجة حطأ منك ليس الا وهذه صورة من ملفك الاخير

لا أعلم المشكلة الملف يعمل عندي بشكل ممتاز عند ظهور هذه الرسالة اضغط زر DEBUG سيتم تلوين السطر المشكل بلون اصفر ما هو السطر المشكل ؟

شكرا على سرعة الرد وتقبل تحياتي مرفق الملف وقمت بنسخ التعديل ولكن لا يعمل والمعادلات بالملف من اعمال الاخوة الافاضل خبراء الاكسيل بمنتداكم الرائع لهم منا كل تحية وتقدير وجعلة الله بميزان حسناتهم aa.xlsx

استاذ عند الضغط على تمكين المحتوى يظهر الخطأ اليك الصورة

استاذ طريقة حماية خلية في الاكسيل

السلام عليكم أخي لا يوجد ورقة في ملفك اسمها ورقة2 على العمود لا بد من كتابة أسماء كل الشيتات في ورقة KEYS والتحكم بظهورها وأخفائها ملاحظة في ورقة KEYS لا تكتب أي بيانات في السطر الأول (السطر الرمادي) إلا أسماء الشيتات فقط جرب المرفق Horaire4.xlsb

up

وعليكم السلام ورحمة الله وبركاته كنت اتمنى دعم سؤالك بملف جرب التعديل التالي وان لم تعمل ارفق ملفا والمعادلة تعمل على اصدارات اكسل من 2013 وما فوق =IFNA(SUMPRODUCT((INDEX(A!$3:$1828;0;MATCH(H$8;A!$1:$1;0))<60)*ISNUMBER(INDEX(A!$3:$1828;0;MATCH(H$8;A!$1:$1;0)))*(A!$A$3:$A$1828=$C$6));"/")

انظر للاسهم للجدول كله هذا مثال تحويل ارقام جدول الى عمود واحد به جميع الارقام.xlsx

السلام عليكم ورحمة الله وبركاته السادة الافضل محترفي الاكسيل لدى ملف به معادلة واريد التعديل علية لإيجاد عدد الطلاب المحصور درجاتهم بين الصفر و 60 درجة المعادلة بوضعها الحالي تضيف عدد الخلايا التي لا يوجد بها ارقام من ضمن الاقل من 60 =IF(ISERROR(MATCH(H$8;A!$1:$1;0));"/";SUMPRODUCT((OFFSET(A!$A$3:$A$1828;;MATCH(H$8;A!$1:$1;0)+1)<60)*(A!$A$3:$A$1828=$C$6)))= تحياتي للجميع

تقصد ان الخلية P1 مثلاً يكون قيمتها = 41-59-36-45-17-12-43-2-55-58-25-24-11 أو مثلاً 4159364517124325558252411

واضح اني لم اوضح الفكرة ... عماً المطلوب جميع الارقام بالجدول من العمود الاول A حتى العمود M يتم وضعهم في العمود P

وعليكم السلام ورحمة الله وبركاته .. رغم ان طلبك غير واضح بشكل كافي . فهل ما تريده هو نقل قيمة الخلية A1 الى النظير لها في الصف P1 وهكذا للصف التالي A2 = P2 ؟؟؟؟ إن كان كذلك فالأحق والأصح هو وضع قيمة في :- P1 = "=A1" والسحب الى باقي الخلايا في العمود P وستحصل على القيمة النظيرة لأي خليه من P من المصدر A . جرب ان كان ما فهمته صحيحاً في الملف المرفق بتعديل اي قيمة موجودة في A وستلاحظ انها تغيرت في P النظير لها . تحويل ارقام جدول الى عمود واحد به جميع الارقام.xlsx

السلام عليكم استاذ لقد وقع خطأ في ملف الاكسيل استاذ تم اختفاء ورقة 2 سوف ارسل للك كلمة المرور واسم المستخدم رسائل الخاصة Horaire.xlsb

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

المطلوب كما بالملف تحويل ارقام جدول الى عمود واحد به جميع الارقام.xlsx

ارسل المرفق كامل مع ملف الاكسل لضبطة .

بما ان الدالة Private ، فأعتقد انك وضعتها في المديول وليس في النموذج الذي تم استدعاء Sleep فيه . لذا ضع تعريف الدالة في نفس النموذج وجرب 🙂

نقلتها سابقا ولكن ما اشتغلت ولكن عندما وقفت Sleep اشتغل الكود بصفة عادية

وعليكم السلام ورحمة الله وبركاته جربت الملف على جهازي اوفيس 2016 يعمل بدون اي مشاكل ولكن ربما ولست جازما بعض الاصدرات لا تتوافق مع الكود وحاصة لم ارى رسالة الخطا والتي بها رقم الخطأ جرب التعديل التالي وعلى جهازي يعمل مع بعض البطء بسبب العدد الكبير للموظفين انتظر ردك وملاحظتك مرتب +عمولة السائقين عن شهر يناير 2026 بعد ضبط نهائى الإجماليات.xlsm

استاذ @Taher DZ المرفق الاخير الذي ارسلته لك به موديول عام به دالة تأخير الوقت . فلما تحب تشغل الكود على مشروع أخر انقل الموديول معها كي تعمل . 2026-1.rar

في اعلا النموذج لديك ضع دالة Sleep لانها غير موجودة لديك #If VBA7 Then Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr) #Else Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) #End If

تفضل ورقة دخول للصلاحيات ورقة KEYS فيها أسماء المستخدمي وكلمات مرورهم وصلاحية كل مستخدم أي : ما هي الأوراق التي تريد أخفاءها عن المستخدم وما هي الاوراق التي تريد إظهارها تلاحظ أن أول مستخدم هو aaa وكلمة مروره هي 111 (هذا افتراضيا وتستطيع تغييرها ) تلاحظ أن المستخدم aaa هو الوحيد الذي له الحق في إظهار KEYS والتعديل عليها لأن صفحة KEYS له قيمتها = 1 وبقية المستخدمين = 0 أذن aaa هو المتحكم في النظام وبقية المستخدمي لا يستطيعون تغيير صلاحياتهم تلاحظ أيضا أن المستخدم qaq , وكلمة مروره 55 لا يوجد له رقم في العمود K وهذا يعني أنه غير مصرح له بالدخول الخلاصة : المستخد aaa يستطيع : ـ منع أي مستخدم من الدخول حتى لو كان يملك كلمة المرور الصحيحة ـ التحكم في إظهار وأخفاء الشيتات لكل مستخدم عن طريق القيمتين 1 (أظهار) , 0 (أخفاء) إلى هنا أتوقف وإن ظهرت أي مشكلة فعليك فتح موضوع جديد وإرسال طلبك في أمان الله جرب المرفق , Horaire3.xlsb

السادة الأساتذة الكرام/ السلام عليكم ورحمة الله وبركاته يظهر لي خطأ بكود تصدير لل pdf عند طباعته مرفق صورة للخطأ ومرفق الملف الذي به الكود طباعة pdf للكلمرتب +عمولة السائقين عن شهر يناير 2026 بعد ضبط نهائى الإجماليات.xlsm

المطلوب بالملف ............... التكرار في اللجان التكرار في اللجان.xlsm