كيف أمنع تسجيل قيمة فى خلية مع وجود قيمة فى أخرى

[حسام نور]

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

- صممت على الأكسيل ما يشبه كشف البنك

A1= الأيداع

B1= السحب

C1= تفاصيل الحركه

D1= التاريخ

- وعندما أريد تسجيل عملية أيداع أقوم بكتابتها في خليه داخل العمود A ثم أترك الخليه الخاصه بالسجب وهي B فارغه وأقوم بتسجيل تفاصيل العمليه في C ثم التاريخ في D

- قد يخطأ أحد المستخدمين ولا ينتبه ويقوم بتسجيل مبلغ مسحوب في خلية الأيداع أو العكس .

- وقد يخطأ آخر ويقوم بتسجيل حركة سحب وايداع بنفس الصف

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

- أيضاً مطلوب ظهور رساله ( MESSAGE BOX ) عند أدخال رقم في خلية الأيداع تقول ( تمت أضافة المبلغ ) .

- وظهور رساله أخرى عند أدخال رقم في خلية السحب تقول ( تم خصم المبلغ ) .

أتمنى أن لا أكون قد أثقلت عليكم . نفعنا الله بعلمكم

أخوكم حسام

[Sharaf]

أظن أنه بالامكان تنفيذ طلبيك بواسطة الكود و يوجد من الزملاء من هو اقدر منى على ذلك .

الا أن لى اقتراح بالنسبة لمنع تسجيل ايداع و سحب فى نفس الوقت .

أقترح أستعمال امر التصفية التلقائية من قائمة بيانات ثم أختيار بدون فراغات فى العمودين a,b وعند ذلك ستظهر لك الصفوف التى حدث بها قيد سحب و ايداع بنفس السطر

كما يمكن استعمال التنسيق الشرطى لاظهار هذه الحالة كما بالمثال المرفق

bank.zip

[امير عاطف]

يستحسن وضع كل سؤال بمشاركة مستقله حتى نتبع قواعد طرح الاسئلة وفي نفس الوقت لا يوجد تداخل :pp:

[امير عاطف]

بالنسبه للسؤال الأول :

الافضل ان تستخدم التنسيق الشرطي كما في مثال الاخ شرف (فكرة عملية)

السؤال الثاني تم وضعه بمشاركة مستقلة هنــــــــــــــــــــــــا

[أبوأحـمـد]

أخوي جرب هالكود

Private Sub Worksheet_Change(ByVal Target As Range)

If Range("B" & Target.Row).Value > 0 And Range("A" & Target.Row).Value > 0 Then

 MsgBox "لا يمكن الإيداع والسحب في نفس العملية", , "عفوا"


Target.Value = ""

Exit Sub

  End If

  

End Sub

تم تعديل سبتمبر 13, 2003 بواسطه امير عاطف

[حسام نور]

أشكر خالص تجاوبكم .

- أخي أبو أحمد وضعت الكود داخل ملف الأكسيل وأدخلت قيم في العمود a وأمامها قيم بالعمود B ولم تظهر رساله

فهل هناك طريقه معينه يجب أتباعها .؟

مشرفنا الجميل Sharaf فكرتك جميله في المثال المرفق خالص تقديري لمجهودك .

خالص شكري

تم تعديل سبتمبر 14, 2003 بواسطه hosam

[امير عاطف]

الاخ حسام الكود سليم 100%

تأكد انك قمت بوضع الكود لحدث التغيير (لورقة عمل) وليس لدفتر العمل الذي تريد الكتابة بداخلها

[محمد طاهر عرفه]

جرب ادخال قيمة فى نفس السطر فى العمودين

a,b

فى الملف المرفق

PreventinsameRaw.rar

[حسام نور]

المثال ممتاز مشرفنا محمد طاهر .

- ولكن لقد جربت أدخال الكود عن طريق الضغط على Alt+f11 ثم لصق الكود ولكن لم يعمل .

- فأين يتم كتابة الكود ؟؟

وشكراً

[حسام نور]

- أشكركم .. وصلت للحل ووضعت الكود لورقة العمل والآن يعمل

خالص تقديري لمجهواتكم