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

السلام عليكم بالنسبة للتجربة لدي الكود يستغرق اقل من ثانية اما الكود الاصلي حوالي 6 ثانية تم اظافة حساب الزمن للكود وتم تعديل الكود في الكود التلقائي اليك الملف وبه التعديل شهادات1.xlsb

سيكون الحل بطريقتين حسب استخدامك للملف إذا كنت تقوم بفلترة العمود الأول (عمود1) يدوياً ليظهر فقط التواريخ من 8 إلى 11: استخدم المعادلة =SUMPRODUCT(SUBTOTAL(109; OFFSET(I8:I100; ROW(I8:I100)-ROW(I8); 0; 1)); --(H8:H100=E4)) وإذا أردت حصر الجمع تلقائياً بين تاريخين دون الاعتماد على الفلترة اليدوية استخدم المعادلة =SUMIFS(I8:I100; H8:H100; E4; G8:G100; ">=08-يوليه"; G8:G100; "<=11-يوليه") واليك المعادلتان في ملف واحد واختر ما يناسب طلبك جمع القيم لشخص مع الفلترة.xlsx

نعم يمكن ذلك استبدل الكود السابق بهذا Sub Comm() Dim ws As Worksheet Dim pic As Object Dim rng As Range On Error Resume Next Application.CommandBars.FindControl(ID:=549).Execute On Error GoTo 0 For Each ws In Worksheets Set rng = ws.Range("A2:V2") Set pic = ws.Pictures.Insert("D:\عنوان.jpg") pic.ShapeRange.LockAspectRatio = msoFalse With pic .Top = rng.Top .Left = rng.Left .Width = rng.Width .Height = rng.Height .Placement = xlMoveAndSize End With Next ws End Sub السطر Application.CommandBars.FindControl(Id:=549).Execute هذا السطر يفعل أمر "الانطباق على الشبكة" (Snap to Grid) كما في طلبك ادراج صورة (1).xlsm

وعليكم السلام ورحمة الله وبركاته لو ارفقت ملفك لاختصرت الكثير من الشرح والوقت ولكن اوضح باختصار اذا اردت استعمال معادلة sumif بالجدول يجب اظافة عمود مساعد خارج الجدول وضع به المعادلة =SUBTOTAL(103, A2) ثم اربطها معادلة sumif او يمكنك استعمال بديل sumif معادلة اخرى لا تحتاج عمود مساعد مثل SUMPRODUCT و SUBTOTAL وجود الملف يوضح المعادلة المناسبة لطلبك

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

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

السلام عليكم ورحمة الله وبركاته تحياتي لك ولاستاذنا Foksh مشكلة الملف به امتددان ادراج صورة.xlsm.xlsx بحذف الامتداد xlsx يعمل الملف لاظافة الخاصية المطلوبة اولا يجب حذف كلمة Private ليصبح اسم الكود Sub Comm() ثانيا يجب أن تكون الصورة موجودة بالفعل داخل القرص D بهذا الاسم بالضبط (عنوان.jpg) ثالتا امتداد الملف هو jpg وليس png أو jpeg؛ لأن عدم تطابق الامتداد سيتسبب في ظهور خطأ عند تشغيل الكود. في حال تغير مكان الضورة او امتدداها قم بالتعديل بالكود اليك الكود بعد اظافة الخاصية xlMoveAndSize نقل الخلايا وتغيير حجمها Sub Comm() Dim ws As Worksheet Dim pic As Object For Each ws In Worksheets Set pic = ws.Pictures.Insert("D:\عنوان.jpg") pic.Placement = xlMoveAndSize Next ws End Sub ادراج صورة.xlsm

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

السلام عليكم ورحمه الله وبركاته جزاك الله خيرا اخي أبومروان ويبدو ان الاداة ليست اضلية بمعنى ان مايكروسوفت لم تصدر أي تحديث يضيف XLOOKUP للإصدارات القديمة وتنزيل ملفات من مواقع غير رسمية قد يحمل مخاطر (فيروسات، أكواد ضارة). حاولت تحميل الملف اكثر من 6 مرات يقوم برنامج الحماية بحذفه بسبب وجود فيروس حسب نتيجة برنامج الحماية ولهذا لم اتمكن من الاطلاع على الملف للاستفاذة منه تحياتي

وعليكم السلام ورحمة الله وبركاته دالة XLOOKUP غير متوفرة في الإصدارات القديمة مثل Excel 2010 و2016 و2019، وهي موجودة فقط في Excel 2021 وما بعده، وكذلك في إصدارات Microsoft 365 احدى البدائل INDEX + MATCH

وعليكم السلام ورحمة الله وبركاته حسب علمي في Microsoft Excel لا يمكن الانتقال لخلية أخرى “تلقائيًا بالكامل” أثناء الكتابة بدون أي إجراء من المستخدم، لأن الخلية تبقى في وضع التحرير حتى يتم تأكيد الإدخال. لكن يمكن بطريقة اخرى عن طريق فورم بحيث يتم فتح الفورم ثم اختيار اول خلية المراد ادخال الدرجة اليها ويكون الامر تلقائيا والتكست بوكس يتعامل مع اي عمود بشرط تحديد بداية اول للدرجات والكود يتعامل مع درجتين مثل 15 او 45 فبمجرد الانتهاء من كتابة الرقم الثاني يتنقل المؤشر تلقائيا الى الخلية التي اسفل منها اذا وجدت درجات من رقم واحد مثل 7 يجب كتابتها في التكست بوكس 07 اذا كانت لديك درجات من 3 ارقام مثل 123 يتم التعديل بالكود في الجزء If Len(v) >= 2 Then يتم تعديل 2 الى 3 ادخال الدرجات.xlsb