إيهاب عبد الحميد

السلام عليكم ورحمة الله وبركاته يمكنك وضع هذا الكود في حدث الصفحة يمكنك تحديد الخلاايا المرادة الموجودة باللون الأحمر في الكود الكود منقول من أ/ الدغيدي Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Range("a10:ab29"), Target) Is Nothing Then Target.Offset(0, 1).Select End If End Sub

السلام عليكم ورحمة الله وبركاته أعجبني كلمة النزلاء بصراحة مع أن هذا المنتدى مخصص لبرنامج الاكسيل ولكن بسرعة ممكن تشوف الفيديو دهhttps://www.youtube.com/watch?v=wgNVdnR2Jrk

السلام عليكم ورحمة الله وبركاته لك ما أردت Fouad.xlsx

السلام عليكم ورحمة الله وبركاته محاولة لحل ما أردت تم حفظ الملف بصيغة XLSX لكي لا تظهر الرسالة HRDISCUSSION.COM_ارصدة الاجازات المستحقة وغير المستحقة.xlsx

أنا أشرف إنه يمكن ان يكون توارد خواطر بيننا فأنت قامة عالية في عالم الإكسيل

السلام عليكم أساتذتنا الأفاضل تحية أ/ سليم لإثراء الموضوع يمكن عمل ذلك بالدوال عن طريق الصيغة الآتية =AVERAGE(INDEX(A2:L2;AGGREGATE(15;6;COLUMN(A2:L2)/(A2:L2<>0);1)):L2)

السلام عليكم ورحمة الله وبركاته أ/ سليم .... كما هو مبدع دائما ولكن لإثراء الفكرة وحيث أن عليها طلبات أعتقد ليست قليلة قد يكون في هذا الملف بعض المرونة المجموع والمتوسط باستثناء شرط.xlsm

رتئع يا أ / سليم أعجبني جدا فكرة ال criteria في countif حيث انها تدخل في النطاق الخلايا الفارغة ثم تطرحها في النهاية لأنني بالفعل عادة استخدم هذه المعادلة واحدد النطاق فقط فتكون كالآتي واستخدمها بدالة sum =SUM(1/COUNTIF($A$1:$A$13;$A$1:$A$13)) بارك الله فيكم

أخي الكريم بالطبع مثل أساتذتي العمالقة أ/ سليم و أ/ بن علية لم أعرف أي معدل هل هو للإجمالي أو لمادة معينة أرفق لك هذا الملف الذي أعددته لك لعلك تستفيد منه يستخرج الطلبة الأوائل وكذلك الطلبة التي أصغر من رقم معين ترتيب وأصغر من درجة معينة.xlsx

جزاكم الله خيرا أيضا اكسيل 2019 به إضافة جميلة للتعامل مع الأماكن الجعرافية والدول تم شرحها بشكل مميز من أستاذنا / أحمد فاروق

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

وجزاكم بالمثل أخي الكريم يكون تحديد أكثر من عنصر With ActiveSheet.Shapes.Range(Array("Rectangle 2", "Oval 3", "Rectangle 1")) بدلا من With ActiveSheet.Shapes("Oval 1")

أخي الكريم يمكن عمل كود لتحريك الغير ظاهر امامك لكي يظهر لك في أول الصفحة Sub Movshps() Dim R As Range Set R = Range("C2:E10") With ActiveSheet.Shapes("Oval 1") .Top = R.Top .Left = R.Left End With End Sub لاحظ انني وضعت اسم الشيبس التي اريد تحريكها وهي هنا Oval 1 ويمكن ايضا ان تغير الاسم سواء زرار أو شيبس يعني ممكن تستبدلها ب Button 1 مثلا

السلام عليكم ورحمة الله وبركاته بعد المعادلة المهندس / عبد السلام هذا لإثراء الموضوع لإدراج الصنف أيضا بمعادلة وأن لا يتعدى عدد ظهور الصنف بمقدار المراد توزيعه New Microsoft Excel Worksheet (10).xlsx

السلام عليكم ورحمة الله وبركاته يعلم الله كم أحبكم في الله أضع هذا الموضوع سائلا الله أن يعجبم

هذا هو شغل المحترفين بارك الله فيكم

يسعدني ويشرفني أن حضرتك تتكرم وتطلع على الملف ... وشكراً لهذه الملحوظة

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

السلام عليكم ورحمة الله وبركاته أساتذتي الكرام يشرفني أن أرفع على منتداكم الكريم هذه الفكرة للتخلص من إرهاق فكرة عمل الشرائح بدالة IF أو بـ Vlookup الحل الناجح في مفهوم الشرائح.xlsx

السلام عليكم ورحمة الله وبركاته إن شاء الله يكون هذا المطلوب رسم جدول.xlsx

السلام عليكم ورحمة الله وبركاته ممكن يكون هذا الحل أسهل وأشمل Book1.xlsx

بارك الله فيكم أ/ زيزو ويارب دائما يجعل لكم من كل هما فرجا ومن كل ضيقا مخرجا

انتظر من سيادتكم الرد

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