عبدالله المجرب

وهذا الملف الذي تم الشرح عليه قوائم منسدلة.rar

كما وعدتك اخي ابو الحسن تم اضافة موضوع جديد لعموم الفائدة على هذا الرابط http://www.officena.net/ib/index.php?showtopic=39632

جمعة مباركة شرح فيديو حسب طلب الاخ ابو الحسن لطريقة عمل القوائم المنسدلة العادية والمرنة ان شاء الله ينول رضاكم

تم التثبيت لعموم الفائدة مع الشكر والتقدير للاستاذ نادر على هذه التحفة

بالفعل ما يقوله الاستاذ محمد هو الحل العملي لما تطلبه

السلام عليكم اليك هذا الشرح للطريقة

ان شاء الله سأقوم برفع ملف فيديو بهذا الخصوص الى اليو تيوب في الغد

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

شكراً استاذ محمد بالفعل الفورم يعمل عند الاختيار من الخيارين لكن (ما الفرق ) اذا تم اختيار حضور تضاف عدد الساعات ونفس الشيئ اذا تم اختيار غياب فلما الخيارين إذاً

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

اخي الفاضل ارفق ملف يبين المطلوب

السلام عليكم اخي فضل استبدل معادلتي السابقة بهذه ضعها في الخلية A2 (لا تنسى انها معادلة صفيف اي اضغط على Ctrl+Shift+Enter) واسحب للاسفل =IF(OR(F2:I2>1);1;0)

السلام عليكم مما تعلمناه من استاذنا الفاضل يحيى حسين بفرض ان القيم في المدى A1:A5 ان كنت تستخدم 2007 فاليك هذه المعادلة =AVERAGEIF(A1:A5;">10") وان كنت تستخدم 2003 فاليك معادلة الصفيف هذه (معنى صفيف انه يجب ان تضغط Ctrl+Shift+Enter) =AVERAGE(IF(A1:A5>10;A1:A5))

بارك الله فيك ابا الحسين شرح وافي ولزيادة الفائدة اقتبس الشرح ==================== السلام عليكم و رحمة الله و بركاته لفهم آلية عمل المعادلة التالية : =SUMPRODUCT(1/COUNTIF(A1:A5,A1:A5)) سنفترض وجود القيم التالية في المدى A1:A5 ياسر ياسر يحيى ياسر احمد و هنا نريد معرفة عدد الأسماء بدون تكرار فالإسم ياسر تكرر ثلاث مرات و اسم يحيى مرة واحدة و اسم احمد مرة واحدة سنقوم بوضع المعادلة التالية في الخلية B1 ثم نقوم بسحبها للأسفل =COUNTIF($A$1:$A$5,A1) و سيظهر عندنا الأرقام التالية 3 3 1 3 1 و هي تشير بالطبع إلى عدد مرات التكرار لكل اسم الآن في الخلية C1 سنضع المعادلة التالية ثم نسحبها للأسفل =1/B1 و سيكون الناتج 0.33333 0.33333 1 0.33333 1 في الخلية C6 ضع المعادلة التالية =SUM(C1:C5) و سيكون الناتج 3 و هو عدد الأسماء بدون تكرار الآ نأتي للمعادلة موضع الشرح و هي =SUMPRODUCT(1/COUNTIF(A1:A5,A1:A5)) ستكون البداية من داخل المعادلة في الجزء COUNTIF(A1:A5,A1:A5) و بإختصار ستقوم هذه الدالة بالعد دفعة واحدة لكل العناصر في المدى المحدد و ستكون نتيجتها {3;3;1;3;1} و من ثم سيتم قسمة الرقم 1 على هذه المصفوفة و ستكون النتيجة {0.333333333333333;0.333333333333333;1;0.333333333333333;1} و من ثم ستقوم الدالة SUMPRODUCT بجمع هذه المصفوفة و تعطينا النتيجة 3 =============== أتمنى أن تكون قد إتضحت الصورة

السلام عليكم =SUMPRODUCT(1/COUNTIF(B2:E2;B2:E2)) هل اطمع بشرح لهذه الجزئية منك استاذ يحيى

السلام عليكم هذا الحل بالمعادلات (وباعمدة إضافية تم إخفائها) كتابة رقم 1 فى حالة التكرار وصفر فى عدم التكرار.rar

http://www.sheekh-3arb.net/3atter/salam_files/image002.gif ويستمر النهج بفضل الله http://i68.servimg.com/u/f68/14/58/38/08/1128110.gif الموضوع رقم (42) دالة ( تفقيط ) تحويل الرقم الى نص بالعربي خبور خير http://i68.servimg.com/u/f68/14/58/38/08/1128110.gif الموضوع رقم (43) برنامج رواتب العاملين في التربية والتعليم سعيد بيرم http://i68.servimg.com/u/f68/14/58/38/08/1128110.gif الموضوع رقم (44) ترتيب العشرة الأوائل حسب الاسم والعمر(فورم) خبور خير http://i68.servimg.com/u/f68/14/58/38/08/1128110.gif الموضوع رقم (45) دالة لاضافة صور من مجلد الى شكل تلقائي خبور خير http://www.sheekh-3arb.net/3atter/salam_files/image002.gif المواضيع الحديثة http://i68.servimg.com/u/f68/14/58/38/08/1128110.gif الموضوع رقم (46) فورم اختيار لون معين ومزجه واستخراج الاكواد الخاصة به عبدالله باقشير http://i68.servimg.com/u/f68/14/58/38/08/1128110.gif الموضوع رقم (47) مُجمِع البيانات للاكسيل - Excel Data Collector محمد طاهر

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

السلام عليك هذا هو الكود يوضع في حدث الصفحة (ورقة العمل) ويقوم بنفس عمل التحقق من الصحة ولو تم السحب او اللصق لاكثر من قيمة سيتم التنبيه والمسح Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 3 Then Exit Sub If Target.Count > 1 Then Target.ClearContents: Exit Sub End If If Application.CountIf(Range("C2:C1000"), Target) > 1 Then MsgBox "رقم مكرر", vbOKOnly, "تنبيه" Target.ClearContents Target.Select Exit Sub End If End Sub عبدالله المجرب.rar

السلام عليكم جرب المرفق بعد التعديل ابو احمد (مسح نطاق).rar

سوال بخصوص المطلوب الثاني == لو ان الشخص الذي ادخل المعلومة اخطاء في ادخال المعلومة فكيف سيمسح ما ادخله ان لم تكن لديه الصلاحية

السلام عليكم (لو تلاحظ اول مشاركة يوجد رابط مباشر للدروس) ام انك تقصد شيء أخر == للاسف اخي تم الاتفاق على ان يكون الشرح على 2007 او 2010 وطبعاً الاولوي 2007 وسوالي لما لا تواكب التغييرات!!!!! حياك الله استاذ محمد يحياوي وبانتظار الجزء الثالث

بالاكواد يمكن ذلك وكما قلت سابقاً سأحاول عمل مثل هذا الكود ان يسر الله لي ذلك

السلام عليكم ان شاء الله هذا طلبك === بخصوص شرح عمل القائمة المنسدلة (ان شاء الله ساحاول قريباً) ابو احمد (نسخ نطاق).rar

الشرح موجود في أول مشاركة وهو عبارة عن فيديو يوتيوب