عبد الفتاح كيرة

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

فى إكسل 2007 دالة واحدة تقوم مقام if + ISERROR وهى دالة IFERROR =IFERROR(VLOOKUP(E5;$B$4:$C$12;2;FALSE);"")

شكرا جزاكم الله خيرا و الملف الأصلى 2003!

السلام عليكم مستفاد من شروح أخرى لمنع المسافة الفارغة قبل و بعد محتوى الخلية باستثناء الفراغات بين الكلمات اختر بيانات التحقق من صحة البيانات مخصص واكتب المعادلة الموجودة بالمرفق منع المسافة قبل و بعد محتوى الخلية.zip

شكرا أعمال رائعة ألا يوجد أى معادلات؟

شكرا جزاكم الله خيرا وهذه أخرى منقولة أيضا 2010-calendar.zip

أشكرك يا مزلزل ثبتنا الله و إياك

شكرا على الكلام الطيب لعمل متواضع لكنه يخدمنى جيدا على أرض الواقع جزاكم الله خيرا

هذا عن الرسائل فماذا عن إعدادات الحسابات ؟

السلام عليكم رأيت الجداول قد كثرت فقلت أريكم جدولى الخاص لا تتوقعوا مميزات كثيرة ترحيل بيانات ماكروهات ... أبدا ومع ذلك فهو يعمل بصورة أوتوماتيكية طريقة العمل استبدل بالأسماء الموجودة فى العمودين أقصى اليمين و أقصى اليسار استبدل بها أسماء المدرسين بمدرستك سيقدم لك البرنامج الاستخراجات التالية 1 - جدول كل مدرس ( 5 جداول فى الصفحة يمكن تغييرها من القائمة على اليسار ) 2 - جدول الإشراف ( جدول مستخرج من الجدول العام - يفيد المشرف اليومى يجمع فيه الحصص بالنسبة لكل فصل ) 3 - جدول الفصل ( يعلق داخل الفصل - يمكن تحديد الفصل من القائمة على اليسار ) 4 - جدول لكل يوم على حدة بدءا من الأحد إلى الخميس 5 - جاهز لطباعة كل ذلك . أرجو الاطلاع و إبداء الآراء و الملف مفتوح بمعادلاته وشكرا لمن نفعنا الله بهم فى هذا المنتدى المفيد جدولى.zip

للرفع

لا مزيد من الردود ؟

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

ممتاز جدا خليك معايا عندنا مشكلتان الأولى الناتج الخطأ كما يظهر بصورتك الثانية و السبب فى هذا أن الدالة مصممة للحساب إلى تاريخ 1-10 يعنى يوم 1 فهذه حالة خاصة لكن يمكن تعديل ذلك بمقارنة عدد الأيام فى التاريخين و ليس الثابت 1 وقد قمت بتصحيح المعادلة لتقارن الأيام بين أى تاريخين المشكلة الثانية و هذه هى المشكلة الحقيقية الدالة فعلا عندى تستلف 31 يوما و ليس 30 ربما كان السبب أوفيس 2007 الذى أستخدمه أو وندوز 7 الذى أعمل عليه أيضا لعلك تتعاون معى لمعرفة السبب فى المشكلة الثانية وأى إصدار تستخدم ؟ من أوفيس 2003 -- 2007 وشكرا لتعاونكم تصحيح المعادلة.zip

كنت أستخدم دالة datedif لحساب فرق الأيام و الشهور و السنين بين تاريخ الميلاد و أول أكتوبر 2009 مثلا و تعمل هذه الدالة بشكل جيد لكنى اكتشفت أنها إذا كانت الأيام المطروحة أكبر من 1 فإنها " تستلف" شهرا من عدد الشهور وهو هنا 10 و لكنها تستلف الشهر 31 يوما و ما هو معتاد أننا عند حساب الفرق بين التواريخ نستلف شهرا ب 30 يوما فقط التعديل فى طريقة الحساب قمت بحساب الشهور و الأعوام عن طريق الدالة أما الأيام فحسبتها بهذه المعادلة بالمرفق أرجو لو كان هناك معاملات لهذه الدالة تجعلها تستلف الشهر 30 يوما فأفيدونا أفادكم الله و كل عام أنتم بخير أفضل طريقة لحساب السن.zip

هذا فعلا ما فهمته

نفذ الآتى : اذهب للورقة الثانية " التابعة للأولى " حدد نطاق الخلايا التى تريدها و المساوية للنطاق فى الورقة الأولى مثلا a1:f10 بعد التحديد اكتب فى خانة الصيغة = انقر مفتاح الورقة الأولى حدد النطاق a1:f10 اضغط كنترول + شيفت + مفتاح الإدخال سينتج عن هذا صفيف فى الورقة الثانية يتبع تماما أى تغيير فى الورقة الأولى لاحظ أنه لا يمكن التعديل فى الصفيف بالورقة الثانية أرجو أن أكون أفدتك

شكرا آسف لأن الملف اختلط مع ملف بموضوع آخر جزاك الله خيرا

مرحبا كيف نفتح الكتاب و هو محمى بكلمة سر ؟

زر عرض النتيجة بآخر كوده أمر حفظ ملف ActiveWorkbook.Save

شكرا وجزاك الله خيرا

شكرا للردود

لو ضغطت مفتاح كنترول + ` و هو المفتاح الذى تحت مفتاح esc مباشرة سيتحول العرض للشيت من عرض قيم الخلايا إلى عرض الصيغ الموجودة بكل خلية و من ثم يمكنك الطباعة و الاحتفاظ بمعادلاتك مساهمة بسيطة لا أظنها تخفى عليكم

و عليكم السلام و رحمة الله شكرا أخى bosh نعم الكعكة الحمراء لها رونق و جاذبية خاصة أوافقك أخى سالم أنا أيضا أحد التلاميذ خاصة فى هذه الأكواد أما كيفية العمل فهذا كود عادى لتلوين الخلية بلون أحمر فى حال كانت أقل من 40 " على سبيل المثال " لكن الرائع فى هذا الكود هو أنه يعمل بمجرد كتابة القيمة فى الخلية و ضغط مفتاح الإدخال وليس عن طريق زر ماكرو فإذا كتبت فى خلية مثلا الرقم 39 و انتقلت لخلية أخرى أو ضغطت مفتاح الإدخال فعلى الفور سيطبق الكود و يتحول لون الخط إلى أحمر و لو كتبت مثلا رقم 55 فستجد الخط أزرق أما السبب فى هذا التنفيذ الفورى هو أننا وضعنا الكود فى الحدث SheetChange و الذى يعنى أى تغيير فى خلايا الشيت وهكذا أى كود يوضع فى هذا الحدث سيتم تنفيذه مع أى تغيير لأى خلية أما شرح الكود فهذا أمر أنا فيه من التلاميذ لكن قدر المستطاع السطر الأول بعد الإعلان يبدأ حلقة تكرارية عن طريق المتغير i حيث يأخذ قيمة من 1 إلى 123 و هى عدد الصفوف المراد تطبيق الحلقة عليها و هو غالبا عدد أسماء التلاميذ فى الشيت السطر التالى جملة if إذا كانت الخلية a1 أقل من 40 نفذ الآتى غير لون خط الخلية إلى الأحمر واجعل الخط ثخينا " سميكا " و إلا اجعل لون الخط أزرق و سميكا وطبعا تنفذ الحلقة على القيمة التالية للمتغير i فيفحص الخلية a2 و هكذا ======= انتهى الشرح المتواضع شكرا أيضا للأخ samnaj00 بارك الله فيكم

فى العمود A إذا كتبت أى قيمة أقل من 40 اجعل لون الخط أحمر و إذا كانت غير ذلك اجعل لون الخط أزرق يتم تنفيذ ذلك بمجرد الانتهاء من تعبئة الخلية و ليس بضغط زر آخر أليس هذا بديلا عن الدوائر الحمراء ؟ أحتاج آراء الخبراء بهذا الكود لقد وضعته فى Workbook_SheetChange هل من تعديل أرجو التجاوب Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) For i = 1 To 123 If Cells(i, 1) < 40 Then Cells(i, 1).Font.color = vbRed Cells(i, 1).Font.Bold = True Else Cells(i, 1).Font.color = vbBlue Cells(i, 1).Font.Bold = True End If Next End Sub Book1.rar