علي السحيب

كان الشرط مرتبط بخلايا الإدخال في العمود J وليس K .. وتم التعديل. حسب ما فهمته من الشرط المطلوب في المرفق بأنه إذا كان الفرق بين الفترتين في الحالة الأولى أقل من خمس سنوات وفي الحالة الثانية أقل من أربع شهور وفي الحالة الثالثة أقل من خمس شهور .. فإنه يتم رفض كتابة نتيجة الفرق بين الفترتين داخل الخلية المعنية .. وبعبارة أخرى .. بما أن نتيجة الفرق بين الفرتين في الحالة الأولى هو 4 .. فإنه يتم رفض كتابة الرقم 4 داخل الخلية J26 .. ويتم رفض كتابة الرقم 2 داخل الخلية J28 لأن نتيجة الفرق بين الفترتين في الحالة الثانية هو 2 .. وكذلك يتم رفض كتابة الرقم 3 في الخلية J30 .. لأن نتيجة الفرق بين الفترتين في الحالة الثالثة هو 3. ملاحظة: نتائج الفرق بين الفترات موجودة في العمود L. هذا ما فهمته .. وإذا كنت تقصد شيء آخر .. فالرجاء توضيحه .. ليتم العديل على الصيغ. شاهد المرفق، ______________________________________________________________.rar

ولا يهمك .. الصيغة التالية بإستخدام الدالة ISNA مع الدالة VLOOKUP: =IF(ISNA(VLOOKUP(C1,A1:B3,2,0)),"",VLOOKUP(C1,A1:B3,2,0)) وهذه الصيغة بإستخدام الدالة ISERROR مع الدالة VLOOKUP: =IF(ISERROR(VLOOKUP(C1,A1:B3,2,0)),"",VLOOKUP(C1,A1:B3,2,0))

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

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

الكود التالي يقوم بحفظ ثم إغلاق جميع المصنفات المفتوحة .. ماعدا المصنف النشط (الذي تم تشغيل الكود منه) Public Sub CloseAllWorkbooksExceptMe() For Each Wkb In Workbooks If Wkb.Name <> ThisWorkbook.Name Then Wkb.Saved = True Wkb.Close End If Next Wkb End Sub شاهد المرفق، _________________________________________.rar

تم تنفيذ جميع ما تمت الإشارة إليه في المرفق، بصراحة فكرة الموضوع ممتازة ومفيدة جداً .. أشكرك عليها أخي hulwim .. والمرفق يصلح لأن يكون ملف تعليمي شامل لكيفية التعامل مع التواريخ بإستخدام التحقق من الصحة والتنسيق الشرطي. شاهد المرفق، ______________________________________________________________.rar

تمت حماية العمودين A و B من إختيار كل عمود على حدى ثم الذهاب إلى القائمة أدوات ثم حماية ثم السماح للمستخدمين بتحرير النطاقات .. ثم إتباع بقية الخطوات المطلوبة لحماية نطاق معين من ورقة العمل .. وليس لذك أي علاقة بالكود. وخلية واحدة من ورقة العمل .. تعتبر نطاق بحد ذاتها .. فكل ما عليك فعله هو إختيار الخلية A1 .. ثم تطبيق الخطوات السابقة عليها .. ونفس الشيء بالنسبة للخلية A2 .. وهكذا.

للفرق الواضح بين السؤال الموجود في المشاركة الأولى والسؤال الموجود في المشاركة الثانية .. قمت بإعداد صيغة خاصة بكل سؤال: 1- الصيغة الخاصة بالسؤال الموجود في المشاركة الأولى:- =IF(E1="","",IF(E1<=10,E1*0,IF(E1<=15,(E1-10)*6,IF(E1<=20,5*6+(E1-15)*8,IF(E1>20,5*6+5*8+(E1-20)*10))))) 2- الصيغة الخاصة بالسؤال الموجود في المشاركة الثانية:- =IF(E1="","",IF(E1<=10,E1*0,IF(E1<=25,(E1-15)*6,IF(E1<=45,15*6+(E1-25)*8,IF(E1>45,15*6+20*8+(E1-45)*10))))) وأتمنى أن يكون هذا هو المطلوب فعلاً .. شاهد المرفق، ___________________________.rar

هل هذا ما تريد، ____________________________________.rar

إذهب إلى القائمة ملف ثم طباعة .. ومن خلال صندوق حوار الطباعة يمكنك تحديد الصفحات التي تريد طباعتها .. وكذالك عدد النسخ التي تريد من كل صفحة

تقوم بوضع الكود داخل الموديول الخاص بالصفحة المعينة. بعبارة أخرى .. أنسخ الكود ثم قف على الصفحة المعنية ثم إضغط Alt + F11 .. ثم ألصق الكود.

أشكرك أخي الكريم على هذه الهدية القيمة،

يكون ذلك من خلال القائمة Windows أو نوافذ ثم Freeze Panes أو تجميد الألواح.

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

شاهد المرفق، _____________________________________2.rar

راجع الروابط التالية: http://www.officena.net/ib/index.php?showtopic=8460 http://www.officena.net/ib/index.php?showtopic=7762&hl=

الصغية التالية تفي بالغرض: =IF(D5="","",IF(D5<=10,0,IF(D5<=15,6,IF(D5<=20,8,IF(D5>20,10))))) شاهدالمرفق، _________________________________________.rar

تم التعديل على المرفق .. مع ملاحظة أني قمت بإضافة مبلغة 400 ريال في صفحة الإيداعات وذلك حتى أتمكن من الخروج من البرنامج .. إذا أردت إختبار الكود قم بمسح المبلغ المذكور. ____________________________.rar

عمل رائع أخي خبور .. بداية قوية وإنجاز غير مسبوق بخصوص تحويل التاريخ الهجري إلى ميلادي عن طريق الدوال .. أتمنى لك التوفيق على كل حال .. قمت بإضافة الأكواد اللازمة إلى المرفق، ________________________________.rar

الدالة MONTH .. تتعامل فقط مع التاريخ المعتمد لدى الإكسل وهو التاريخ الميلادي .. فعندما تستخدمها مع تاريخ ميلادي .. فحتماً ستكون النتيجة هي رقم الشهر الميلادي وليس الهجري .. أما إذا أردت أن تحصل على رقم الشهر الهجري من خلال التاريخ الميلادي .. فالحل يكون عبر إستخدام الدالة TEXT .. وتكون الصيغة كالتالي: =TEXT(A1,"b2mm") أتمنى أن يكون هذا هو ماتريد،

أتمنى أن تجد مبتغاك على أحد الروابط التالية: http://www.officena.net/ib/index.php?showtopic=8561 http://www.officena.net/ib/index.php?showtopic=14214

هذا الشرط متحقق .. شاهد الخلية رقم C1 و D1 و D4 من المرفق الموجود في المشاركة السابقة،

يكون التنسيق بهذه الطريقة: [$-2060000]B2mm وهو موجود في الملف الأساسي لهذا الموضوع.

كلا الطريقتين صحيحة،

هل رأيت .. سؤال واضح = إجابة واضحة، شاهد المرفق، _______________________________.rar