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

من فضلكم : إستفسار عن برنامج أقساط وأكواده


الردود الموصى بها

السلام عليكم ورحمة الله وبركاته

إخوانى الكرام

طلب منى مؤخراً أن أعمل برنامج بالإكسيل شرحه كالآتى :

لو محمد بيدفع قسط ثابت 15.70 جنيهاً مثلا فى الشهر ثم حدث أن أدخل أحد الموظفين فى أحد الشهور قيمة خاطئة تختلف عن هذا المبلغ فيظهر ما يكتبه بلون مختلف (أحمر مثلا) لينبهه إلى أنه ارتكب خطأ فى هذا المبلغ أو هذا الشهر ولكن لا يمنعه من الكتابه وإذا عدل الكتابة بالقيمة الصحيحة يرجع الخط للون الصحيح .

فمن فضلكم كيف أكتب هذا الكود فى إكسل بصورة مبسطة مع شرح بسيط له

وشكرا جزيلا مقدماً لكم

رابط هذا التعليق
شارك

السلام عليكم

و عليكم السلام و رحمة الله

ممكن ملف به مثال على المطلوب

من شان يجيك الرد واضح

اذا تكرمت

بارك الله فيك اخي احمد

اخي بكار للأبد

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

عموما علي حسب ما فهمت تم عمل الاتي

عمل صفحة اسمها الرئيسية و تضع بها الثوابت من الاقساط و يتم تسمية المدي في هذه الصفحة و قد سميته هنا بــ Data

الانتقال للصفحة الاخري نقف الخلية التي سيكتب بها الاسم او الخلية المراد وضع الشرط بها ن و نذهب الي format و نختار

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

=IF(D8<>VLOOK2ALL(Data,C8,1,2),D8)

حيث C8 هي لخلية التي بها الاسم و D8 هي الخلية التي يتم عمل تنسيق شرطي لها وData هو المدي الذي تم عمله سابقا

و معناها اذا كانت قيمة الخلية اكبر او اصغر من القيمة التي امام الاسم في المدي Data

يكون لو الخلية بهذا اللون

تم استخدام دالة vlook2all و هي من ابداعات اخا عزيزا علينا و هو غائب عنا الان اعادة الله الينا بكامل الصحة و العافية ان شاء الله

هو اخينا ابو تامر بارك الله فيه

اخي جرب الملف و لو فيه اي استفسار او كان المفهوم غير طلبك نرجع و نقول حمل ملف لتوضيح المطلوب

تحياتي

coditional.rar

رابط هذا التعليق
شارك

إخوانى الأعزاء جداً

جزاكم الله ألف الف خير وأطعمكم الله من الجنة أشهى لحم طير

شكرا أخى AAH_AAH2008

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

لقد قمت فى هذا الملف بعمل جدول وضعت فيه بعض الأسماء ووضعت بجانب كل إسم الثلاثة أقسط الثابتة(مدة سابقة - إعارة - إستبدال) لشهر يناير وكررتهم فى شهر فبراير مثلا ً وهكذا ، ثم كتبت مبلغ الأقساط فى شهر ناير بحيث أريده ثابت ولا يتغير فى الأشهر القادمة ، بمعنى إذا حاولت مثلا إذا أدخلت قسط مدة سابقة فى شهر يناير (20.45)جنيهاُ فيجب أن أكتبه كما هو فى شهر فبراير وإذا أخطئت وكتبته بقيمه خاطئة (20.35) مثلاً يظهر هذا المبلغ الأخير بلون مختلف لينبهنى للخطأ الذى وقعت فيه فيمكننى تداركه .

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

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

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

Installments.rar

رابط هذا التعليق
شارك

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

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

عن طريق التحقق من صحة

و الرسالة تسمح لك بالإستمرار او التغيير

آمل الإفادة

رابط هذا التعليق
شارك

متشكر أخى العزيز على سرعة الرد ولك لاعجب فأنت فى بلد المصطفى صلى الله عليه وسلم وهى بلد كرام أهلها .

اأخفى عليك سرا يا أخى قد أعجبت بالكود الذى كتبه لى aah-aah2008 ولكننى أرى أن تطبقلى على نسخة من الملف الكود الذى تقصده وأختار بين الطريقتين فكلتاهما تبهرنى بشدة

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

وشكرا جزيلاً

رابط هذا التعليق
شارك

الأخ بكار

السلام عليكم

في المرفق ملفين بطريقتين

1- مع منع الكتابة الا لمبلغ يطايق مبلغ الشهر الماضي

2- مع رسالة تحذير تسمح بالإستمرار

مع التقدير

Installments.rar

رابط هذا التعليق
شارك

أخى الكريم أحمد يعقوب

الملف الاول يبدو أن به بعض الأخطاء والله أعلم

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

أما الملف الثانى فالرسالة مدهشة ولكنةلا أعرف كودها ولا أين كتبت .

ولك منى كل تحية واحترام

ومعذرة لجهلى وشكرا لجميل صبركم وجام كرمكم وسعة صدركم

رابط هذا التعليق
شارك

أخى الركريم أحد يعقو ب

أرجو ألا تكون قد غضبت عندما قلت أنه يوجد بعض الأخطاء فى ملف الخلايا الملونة يحتاج لإعادة النظر

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

وعذراً جهلى بهذا

ومتأسف مرة أخرى

رابط هذا التعليق
شارك

بسم الله الرحمن الرحيم

اخي بكار

اولا الملف المرفق لا يوجد به ايكود فيجول بيزك انما تم استخدام خصائص الإكسل نفسة

ثانيا - طريقة عمل الرسالة

تبحث عن التحقق من صحة Valedation

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

ثالثا - التلوين

تبحث عن تنسيق شرطي - Spechal Format

بالدخول عليها و تحديد الشرط و خلية المقارنة ثم تحديد نوع التنسيق

تكون اكتملت المقارنة بالتلوين

شاهد المرفق تم تعديل التلوين كما تريد ان شاء الله

واتمنى زيارتك للمدينة و نتشرف بخدمتك في اي وقت

Installments______.rar

رابط هذا التعليق
شارك

السلام عليكم

بارك الله فيك اخي احمد يعقوب

و اضافة الي العمل الرائع اود ان اضيف

ان لي راي ان يكون الثابت في صفحة و البيانات في صفحة اخري

مرفق ملف للتوضيح

تحياتي

Installments.rar

رابط هذا التعليق
شارك

جزاك الله كل خير ياأخى أحمد يعقوب ، لقد استفدت كثيراً بشرحك الوافى ، جزاك الله كل خير

أخى الكريم aah_aah ومشرفنا الغالى

الملف الذى أرسلته يعتبر بمثابة درس عظيم لى ولقد أفادنى كثيراً ولكن أرجو من سيادتك شرح هذا الكود بالتفصيل لأنى لا أفهمه

=IF(H$4<>VLOOK2ALL(Data;$B4;1;4);H$4)

ولا أفهه ما سر ال$ وما دورها فى كود الأكسل هذا

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

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

ومتأسف مرة أخرى على الإطالة

رابط هذا التعليق
شارك

السلام عليكم

شرح هذا الكود بالتفصيل لأنى لا أفهمه



اخي هذا معناه اذا كانت الخلية التي نقف عليها و هي H4 اكبر او اصغر من الخلية التي تقع في العمود الرابع امام (البحث في المدي Data عن الخلية التي تساوي الاسم الموجود في الخلية B4) وهذا طبعا الشرط الذي اذا تحقق سيتغير لون الخلية

إقتباس
ما سر ال$ وما دورها فى كود الأكسل هذا


هذه العلامة تستخدم في تثبيت الصف او العمود حسب وضعها عند السحب او الافلات او نسخ التنسيق للخلية

و ارجو تعديلها الي

[code]=IF(H4<>VLOOK2ALL(Data,$B4,1,4),H4)[/code]

حيث كان هناك تجارب علي ملفك

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

تحياتي

رابط هذا التعليق
شارك

جزاك الله كل خير يأخى الكريم

حقاً لا أجد كلمات تعبر عن شكرى وامتنانى لشخصكم الكريم جداً

ولا أجد أفضل من جزاك الله ألف ألف خير وكل سعادة إن شاء الله

سؤال أخير يا أخى

هل يمكن كتابة هذا الكود مرة واحدة لتطبيقة على العمود كلة مثلا (أى من الإسم رقم 1 حتى لإسم رقم 15 مثلا) أم يجب كتابته فى كل صف مثلاُ

وشكرا جزيلاً

رابط هذا التعليق
شارك

السلام عليكم

الأخ بكار

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

الأخ عادل

جزاك الله خير

ماشاء الله عليك

كفيت و وفيت

جعله الله في ميزان حسناتكم

رابط هذا التعليق
شارك

السلام عليكم

اخي الحبيب احمد يعقوب

بارك الله فيك اخي الغالي

اخي بكار للأبد

سؤال أخير يا أخى

هل يمكن كتابة هذا الكود مرة واحدة لتطبيقة على العمود كلة مثلا (أى من الإسم رقم 1 حتى لإسم رقم 15 مثلا) أم يجب كتابته فى كل صف مثلاُ

هذا الكود سيتم كتابته في اول ثلاثة خلايا الاولي في الثلاثة اعمدة الاولي ثم نسخ التنسيق و تعميمه علي كامل الخلايا

جرب و ان كان هناك اي مشكلة ارجو اخباري

تحياتي

رابط هذا التعليق
شارك

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

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information