المطلوب كود يحدد قيمة لاتزيد عن القيمة المدخله في الخلية (عنوان معدل)

[هيثم مقبول]

اساتذتي الاعزاء السلام عليكم وكل عام وانتم بخير واشكركم علي هذا المنتدي الرائع

وارجو منكم مساعدتي في كود يحدد القيمة المطلوب ان لاتزيد عنها القيمة المدخله في الخلية

ولكم مني جزيل الشكر

وجعلكم الله عونا للاخرين

[أبو حنــــين]

مثال

تطبيق.rar

[هيثم مقبول]

جزاك الله خيرا استاذي ومعلمي أبوحنين

وأشكر كل من في المنتدي الذين قدموا لى حلول كثيرة

وأذكر انى أستفيد من أعمالهم

وأتمنى للجميع مزيد من العلم والتوفيق

[هيثم مقبول]

عفواً استاذي ومعلمي أبوحنين

انا استخدمت التحقق من صحة البيانات

ولكن احتاج احياناً ان اكتب في الخلية حرف مثل حرف "غ"

تظهر رسالة خطأ كيف يمكن كتابة الحرف دون خطأ

ولك جزيل الشكرأنت ومن قام بمساعدتي

[أبو حنــــين]

بالنسبة للكود يمكن استعمال التالي

Private Sub Worksheet_Change(ByVal Target As Range)

If Target = Range("D5") And Target.Value > 10 And Target.Text <> "غ" Then

MsgBox "هذه القيمة أكبر من المسموح به ، يرجي كتابة قيمة أخرى", vbInformation, "خطأ"

Target.Value = ""

Target.Select

End If

End Sub

بالنسبة للتحقق من الصحة سأحاول ذلك

[هيثم مقبول]

شكراً للاستاذ أبوحنين

ولكن انا احتاج للتحقق من صحة البيانات

وجزالك الله خيراًً علي المساعدة وجعلك عوناً للاخرين

[رجب جاويش]

بعد اذن أخى الحبيب / أبو حنين

تفضل أخى

التحقق من الصحة.rar

[هيثم مقبول]

استاذي الاستاذ رجب جاويش انا عاجز عن الشكر

جزاك الله خبرا

أستاذ رجب

وأحب أن أذكر أنني استفدت من بعض أفكارك و أعمالك لانجاز بعض مما أريد عملي

وانشاء الله عد الانتهاء منة لابد ان اعرف رأيك في ماقمت بة وانشاءالله قاربت علي الانتهاء بفضل مساعدتكم لي

واتمني لكم دوام التوفيق

[رجب جاويش]

أخى الفاضل / هيثم مقبول

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

وأتمنى لك كل التوفيق فى اتمام عملك

وان شاء الله يكون عمل رائع يستفيد منه الجميع

[إبراهيم ابوليله]

الاخ رجب

تحية طيبه وبعد

ارجو النظر فى سؤالى على المنتدى باسم

اريد تحويل المعادله الخاصه باستخراج الرصيد الى كود حسب شروط إستخراج المجموع

ولقد تفضلت انت بعمل كود يقوم باستخراج الرصيد

ولكنى عند محاولة التطبيق فشلت

ارجو النظر فى طلبى

والرد باذا كان يمكن عمل ذلك ام لا

بارك الله فيك اخى رجب

ووفققك لما يحبه ويرضاه

تم تعديل أغسطس 23, 2012 بواسطه إبراهيم ابوليله