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

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

وعليكم السلام ورحمة الله وبركاته اولا جزاك الله خيرا على ما قدمت وجعله الله في ميزان حسناتك ثانيا ملاحظة بسيطة في واجهة الدخول - قم بتعطيل علامة × من الواجهة لانه حاليا يمكن الدخول الى الملف بدون كتابة الاسم ولا كلمة المرور ولا الايميل ولا الواتس استخذام فكرة القوائم في الفورم حقيقة رائعة جدا واستفاذة جيدة من خصائص الاكسل باقي الملف يحتاج الى وقت للاطلاع لعل في وقت لاحق ان شاء الله ومن خلال الملاحظة السريعة واضح ان هناك جهذ كبير مبذول به تحياتي

السلام عليكم جميعا كما اشار الزملاء الافاضل يوجد غموض في الطلب ولكن جسب فهمي لطلبك ان القيم في العمود S تمثل القيمة القصوى لكل سنة مثلا 2026 القيمة القصوى =8500 بناء على هذه الفرضية ان كانت صحيحة اليك المعادلات التي تقوم بالخصم حسب القيمة القصوى المحددة لكل سنة وبشرط وجود كلمة تم امام كل قسط اذا لم يكن هذا طلبك ارجو شرح طلبك بوضوح لتجد تفاعل من الزملاء اكثر ق1.xlsx

وعليكم السلام ورحمة الله وبركاته طلبك غير مكتمل ينقصه الهدف الاساسي من المعادلة إذا هدفك أن تكون النتيجة صفر فقط عندما يكون الفرق أقل من شهر استخذم المعادلة =DATEDIF(D4;D3;"M") اما اذا اردت في حال عدم تحقق الشروط = صفر اليك المعادلة =IF(AND(YEAR(D3)>=YEAR(D4);MONTH(D3)>MONTH(D4);DAY(D3)=DAY(D4));ROUNDUP(DAYS360(D4;$D$3;0)/30;0);0) الملف المرفق به تطبيق المعادلتان وكلاهما تحقق الصفر New Microsoft Excel Worksheet.xlsx

وعليكم السلام ورحمة الله وبركاته اذا الامر لا يحتاج الى كود ترحيل يمكنك كتابة البيانات مباشرة في سيت Feuil1 ثم شيت Feuil12 خاص باللون الاصفر وليس الازرق كما ذكرت ولا وجود لكلمة المؤسسة في الخلايا الصفراء في شيت Horaire2027 بالنسبة نعم يوجد خطا في رقم الصف المرحل- فقط قم بتغيير B3:I3 الى B4:I4 في مكانين بالكود حسب الموضح الاتي For Each cell In wsSource.Range("B3:I3, B6:I6, B9:I9") الى For Each cell In wsSource.Range("B4:I4, B6:I6, B9:I9") وكذلك تغيير wsFeuil1.Cells(nextRow1, 1).Resize(1, 8).Value = wsSource.Range("B3:I3").Value الى wsFeuil1.Cells(nextRow1, 1).Resize(1, 8).Value = wsSource.Range("B4:I4").Value قم بتجهيز ملفك جيدا وحسب ما اذكر اعتقد انها المرة الخامسة او السادسة تم تعديل نفس الكود خلال الاشهر القليلة الماضية

وعليكم السلام ورحمة الله وبركاته استاذنا الفاضل طلبك واضح ولكن ملفك المرفق لا يتوافق مع طلبك الطلب الثاني والثالت في شيت Horaire2027 عدد الخلايا 8 وفي الشيتين المرحل اليها 9 خلايا وخود كلمة المؤسسة في الشيتين Feuil12 وFeuil13 وعدم وجودها في شيت Horaire2027 على كل حال الكود المرفق تم عمله حسب الموجود في شيت Horaire2027 وهي 8 خلايا حسب الشيت المرفق تم تقسيم الكود الى جزئين بزرين الاول للترحيل الى Feuil1 وFeuil12 والكود الثاني الى وFeuil13 Horaire-18-06-2026-(04.12.06).xlsb

وعليكم السلام ورحمة الله وبركاته في عدم وجود ملف لمعرفة السبب جرب الطريقة البدائية البسيطة اذهب إلى الشيت والخلية الذي تريد ظهور الناتج فيها. اكتب علامة يساوي (=). بالماوس، انتقل إلى الشيت الآخر واضغط على الخلية التي تريد جلب البيانات منها ثم اضغط على زر Enter

السلام عليكم يمكن عمل ذلك بقك الحماية في بداية اي كود ثم اعادة الحماية في نهاية الكود كلمة الحماية 123 يمكنك تعديلها بالكود جدول الحراسة.xlsm

وعليكم السلام ورحمة الله وبركاته اليك الحل بالمعادلات في شيت1 بالاكواد شيت2 مثال1.xlsb

السلام عليكم ورحمة الله وبركاته أود أن أحيطك علماً بأن جميع ما قمت به من حلول في المشاركات السابقة، كانت اجتهاداً شخصياً مني ، وذلك بسبب عدم شرح تفاصيل الطلب بدقة، وغياب الشكل المتوقع للمخرجات في بداية طلبك في اول مشاركة. وهنا أود أن أسترعي انتباهك ولجميع احبابنا اعضاء المنتدى الكريم لنقطة تنظيمية وإدارية هامة : عند طرح أي سؤال أو طلب فكرة برمجية مستقبلاً، من الأفضل دائماً تجهيز ورقة عمل (شيت) داخل الملف كنموذج تصوري للنتائج، أو شرح آلية ومكان ظهور المخرجات بدقة (مثل: شكل الجدول المطلوب، وتحديد الأعمدة، وهل تريدها في نفس الورقة أم في أوراق منفصلة؟). وهذا يضمن اختصار الوقت والجهد وتفادي كثرة التعديلات المتكررة. وتكون النتائج تماماً كما تريدها وبتنسيقها الصحيح وتفاعل اعضاء وخبراء المنتدى اكثر. على أية حال، حسب فهمي لطلبك في مشاركتك الأخيرة؛ فقد تم دمج الفعاليات النشطة واللجان الخاملة معاً في شيت واحد متكامل، كما تم تعديل عدد اسماء المشاركين الى 15 عمود في طلب سابق لكم. تقبل وافر شكري، وعميق تقديري لشخصكم . لا تتردد في طلب التعديل ان كان الحل لا يلبى طلبك مؤشر عمل اللجان1 (1).xlsb

أحبك الله الذي أحببتنا فيه أخي العزيز، وبارك الله في أصلك الطيب ورزقك من خيري الدنيا والآخرة. شهادتك وثناؤك وسام أعتز به كثيراً. خالص شكري ومحبتي لشخصكم الراقي. وبعد :- تم انشاء ورقة للجان الخاملة وبدون فعاليات كما ارجو الانتباه لامر يتعلق بعمل الكود في حالة اللجنة مكونة من اكثر من فرع مثل لجنة العلوم القانونية (حقوق الإنسان . الملكية الفكرية . المواطنة) يكون الفاصل ما بين القوسين نقطة او اي علامة اخرى عدا علامة الناقص - في حالة تعاون اكثر من لجنة مثل لجنة الثقافة العلمية والتفكير الابتكاري والذكاء الاصطناعي - لجنة الترجمة "تعاون" يكون الفاصل بين اللجنتين علامة الناقص - مع وجود كلمة تغاون بالنسبة لزيادة الاعمدة يتم التعديل بالكود قي الجزء For c = 5 To 15 5 = رقم اول عمود به اسماء المشاركين 15 = رقم اخر عمود به اسماء المشاركين فيمكنك تعديل 15 الى اي رقم يناسبك اليك طلبك مؤشر عمل اللجان1.xlsb

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

السلام عليكم ورحمة الله وبركاته اظافة الى حل استاذتا اأبومروان حيث يثمثل الحل بطريقتين اذا اردت معرفة عدد الندوات التي شارك بها اي مشارك واحد انقر على اي اسم مرتين تظهر رسالة بعدد المشاركات والغعاليات اما اذا اردت كل المشاركين يوجد زر يقوم بانشاء ورقتين احداها لكل المشاركين والاخرى للفعاليات توجد بعص الفعاليات بها اكثر من لجنة (تعاون) ولإعطاء كل لجنة حقها؛ ففي حال تنظيم فعالية مشتركة بين أكثر من لجنة (مثل: لجنة الكتاب والنشر - ثقافة الطفل - الشباب "تعاون"), يجب أن يتم احتساب هذه الفعالية لصالح كل لجنة من اللجان المذكورة بشكل مستقل ومستساغ، بدلاً من قراءتها كنص واحد لكما كل التقدير والاحترام مؤشر عمل اللجان.xlsb

تفضل Chicken Menu Engineering (1).xlsx

وعليكم السلام ورحمة الله وبركاته هذه الدالة تقوم بالمهمة ان شاء الله صعها في f3 ثم اسحب لاسفل تحياتي =IF(B3="فروج مسحب"; D3*E3*2.55; D3*E3*1.85)