أختنا أم عبد الرحمن
في الصفحة الأولى W-Sales
في الخلية F11
أكتبي هذه المعادلة :
=MIN(IF(N(INDIRECT("'"&ROW(INDIRECT("1:46"))&"'!R11"))>0,N(INDIRECT("'"&ROW(INDIRECT("1:46"))&"'!R11"))))
في حالة زيادة عدد الصفحات قومي بتغيير الرقم 46 بعدد الصفحات
و قومي بتغير مرجع الخلية R11
حسب ما يتناسب مع كل سطر
و أخيراً و هو الأهم
أن لا تنسي بعد نسخ هذه المعادلة
ان تقوم يبالضغط على
Ctrl+Shift+Enter
لأن هذه المعادلة معادلة صفيف
==================
أتمنى أن يكون هذا هو طلبك
و أن يكون لي نصيب من دعائك
أختنا ام عبد الرحمن المعادلة أعلاه يمكنك اختصارها بالمعادلة التالية
=MIN('1:46'!R11)
و لكن بقي شرط هو أن لا يعيد قيمة الصفر في حالة أن تكون أصغر قيمة صفر
أليس كذلك
أختنا أم عبد الرحمن
طلبك ليس بصعب أن شاء الله
و لكني بصراحة لم افهم طلبك
انت تريدين في الصفحة الرئيسية W-Sales
في الخلية F7
أصغر قيمة مبيعات لنفس هذه الخلية في جميع الصفحات
يا ريت لو ترفق ملف يكون به النتيجة النهائية المتوقعة حتى تسهلي فهم ملفك
أخي بخصوص طلبك الأول
هذا رابط يشرح طريقة عمل هذه القوائم
http://www.4shared.com/file/74067683/e8bac566/______.html
أما بخصوص طلبك الثاني
يحتاج لخبرة إخواننا في هذا المنتدى
و سا أحاول أن اقوم بحله و لكني لا أعدك بذلك
أنت الرائع أخي هادي
شكراً على كلماتك الطيبة
==============
و المشكلة الثاني التي قد تواجه الكود
ان اسم الصفحة يجب ان لا يزيد عن 31 حرف
بحيث اذا كانت قيمة الخلية A1 عدد الاحرف فيها اكثر من 31 فسيحدث خطأ اخر وقتها
==============
و دمتم في حفظ الله و رعايته
و لكن اخي يوجد عدد من الملاحظات يجب أخذها في عين الإعتبار
بحيث ان يكون المدى متطابق
و ان تكون القوائم المنسدلة معتمدة على بعضها البعض
ايضا لا يمكنك استخدام عمود يحتوي تنسيق تاريخ ثم تطلب منه بيانات عمود يحتوي ارقام عادية فستظهر هذه الارقام بتنسيق التاريخ
حياك الله اخي محمد
أنا أحتاج هذه الأكواد في عملي كثيراً
و خصوصاً الأكواد التي تتعامل مع الصفحات من اضافة و تعديل و ارتباط تشعبي
و هي بصدق توفر كثير من الوقت
==============
دمتم في حفظ الله و رعايته
أخي رضا
الدالة التي قمت بعملها هي نفس دالة الاخ خبور
مع اختصار بسيط في مكوناتها
و الملف المرفق ستجدها موجودة و تعمل بدون مشاكل
و الاخ Hofn
هذا هو الكود الذي يوضع في حدث فتح الصفح
و أيضاً ستجده في المثال المرفق
Private Sub Workbook_Open()
Dim MySheet As Worksheet
For Each MySheet In ActiveWorkbook.Worksheets
MySheet.Name = MySheet.Range("a1").Value
Next MySheet
End Sub
Justice.rar
اخي يمكنك تعديل ذلك من خلال الخيارات
في الاكسيل 2003
Tools
Option
ثم من التاب
Edit
قم بإختيار
Direction
و يوجد قائمة منسدلة اختر منها ايغتجاه ترغب فيه
=============
أما في الاكسيل 2007
من الخيارات
Advanced
و سيكون ثاني خيار مباشرة
Direction
==============
أخي عندما تقوم بوضع كلمة السر لحمياة الملف
كل ما عليه هو ان تضع علامة صح بجووار السماح باستخدام التصفية التلقائية
و عندها ستتمكن من القيام بالتصفية التلقائية و الصفحة محمية
أخي صبري
جرب هذه المعادلة
=SUMPRODUCT(($B$7:$B$29=3100)+($B$7:$B$29=3101)+($B$7:$B$29=3119)+($B$7:$B$29=3118),D7:D29)
و لكن الحل الأفضل أن تضييف عمود جديد يحتوي التفريعات الرئيسية لكل حساب
مثل
بند المصروفات العمومية و الادارية
موجودات ثابتة
و هكذا
و من ثم كل ما عليك فعله هو استخدام المجاميع الفرعية او الجداول المحورية
او حتى استخدام الدوال لكن بطريقة أسهل
السلام عليكم و رحمة الله و بركاته
لقد طالت غيبة أخي أبو تامر
و يعلم الله أني قد إشتقت لهذا الأخ الحبيب
نسأل الله أن يفرج همه و يوسع رزقه
و أن يرزقه من حيث لا يحتسب
و أن يرزقه الفردوس الأعلى
اللهم آمين
يمكنك استخدام ال SumProduct كما ذكر الاخ Hofn
و إذا كان الجمع بشرط واحد
يمكنك استخدام الدالة SumIf
و إذا كان الجمع بأكثر من شرط
يمكنك استخدام الدالة
SumIfs
اذا كنت تستخدم الاكسيل 2007 او 2010
و لكن تبقى الدالة SumProduct هي الخيار الأفضل بالنسبة لي في جميع الحالات
إضافة لحلول الأخوة أعلاه
يمكنك أيضا إستخدام الدالة
EDATE
بحيث لمعرفة التاريخ بعد ستة أشهر
=EDATE(J1,6)
و بعد سنة
=EDATE(J1,12)
أم لمعرفة الفرق بعد سبعة أيام يمكنك جمع الرقم 7 للخلية التي تحتوي التاريخ
=J1+7