حسام نور قام بنشر سبتمبر 11, 2003 مشاركة قام بنشر سبتمبر 11, 2003 السلام عليكم ورحمة الله وبركاته . - صممت على الأكسيل ما يشبه كشف البنك A1= الأيداع B1= السحب C1= تفاصيل الحركه D1= التاريخ - وعندما أريد تسجيل عملية أيداع أقوم بكتابتها في خليه داخل العمود A ثم أترك الخليه الخاصه بالسجب وهي B فارغه وأقوم بتسجيل تفاصيل العمليه في C ثم التاريخ في D - قد يخطأ أحد المستخدمين ولا ينتبه ويقوم بتسجيل مبلغ مسحوب في خلية الأيداع أو العكس . - وقد يخطأ آخر ويقوم بتسجيل حركة سحب وايداع بنفس الصف - المطلوب هو أن لاتقبل الخليه A1 مثلاً تسجيل أرقام في حال أدخال رقم في B1 والعكس أيضاً . وينطبق ذلك على باقي العمودين - أيضاً مطلوب ظهور رساله ( MESSAGE BOX ) عند أدخال رقم في خلية الأيداع تقول ( تمت أضافة المبلغ ) . - وظهور رساله أخرى عند أدخال رقم في خلية السحب تقول ( تم خصم المبلغ ) . أتمنى أن لا أكون قد أثقلت عليكم . نفعنا الله بعلمكم أخوكم حسام رابط هذا التعليق شارك More sharing options...
Sharaf قام بنشر سبتمبر 11, 2003 مشاركة قام بنشر سبتمبر 11, 2003 أظن أنه بالامكان تنفيذ طلبيك بواسطة الكود و يوجد من الزملاء من هو اقدر منى على ذلك . الا أن لى اقتراح بالنسبة لمنع تسجيل ايداع و سحب فى نفس الوقت . أقترح أستعمال امر التصفية التلقائية من قائمة بيانات ثم أختيار بدون فراغات فى العمودين a,b وعند ذلك ستظهر لك الصفوف التى حدث بها قيد سحب و ايداع بنفس السطر كما يمكن استعمال التنسيق الشرطى لاظهار هذه الحالة كما بالمثال المرفق bank.zip رابط هذا التعليق شارك More sharing options...
امير عاطف قام بنشر سبتمبر 12, 2003 مشاركة قام بنشر سبتمبر 12, 2003 يستحسن وضع كل سؤال بمشاركة مستقله حتى نتبع قواعد طرح الاسئلة وفي نفس الوقت لا يوجد تداخل :pp: رابط هذا التعليق شارك More sharing options...
امير عاطف قام بنشر سبتمبر 12, 2003 مشاركة قام بنشر سبتمبر 12, 2003 بالنسبه للسؤال الأول : الافضل ان تستخدم التنسيق الشرطي كما في مثال الاخ شرف (فكرة عملية) السؤال الثاني تم وضعه بمشاركة مستقلة هنــــــــــــــــــــــــا رابط هذا التعليق شارك More sharing options...
أبوأحـمـد قام بنشر سبتمبر 12, 2003 مشاركة قام بنشر سبتمبر 12, 2003 (معدل) أخوي جرب هالكود 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 بواسطه امير عاطف رابط هذا التعليق شارك More sharing options...
حسام نور قام بنشر سبتمبر 14, 2003 الكاتب مشاركة قام بنشر سبتمبر 14, 2003 (معدل) أشكر خالص تجاوبكم . - أخي أبو أحمد وضعت الكود داخل ملف الأكسيل وأدخلت قيم في العمود a وأمامها قيم بالعمود B ولم تظهر رساله فهل هناك طريقه معينه يجب أتباعها .؟ مشرفنا الجميل Sharaf فكرتك جميله في المثال المرفق خالص تقديري لمجهودك . خالص شكري تم تعديل سبتمبر 14, 2003 بواسطه hosam رابط هذا التعليق شارك More sharing options...
امير عاطف قام بنشر سبتمبر 14, 2003 مشاركة قام بنشر سبتمبر 14, 2003 الاخ حسام الكود سليم 100% تأكد انك قمت بوضع الكود لحدث التغيير (لورقة عمل) وليس لدفتر العمل الذي تريد الكتابة بداخلها رابط هذا التعليق شارك More sharing options...
أفضل إجابة محمد طاهر عرفه قام بنشر سبتمبر 15, 2003 أفضل إجابة مشاركة قام بنشر سبتمبر 15, 2003 جرب ادخال قيمة فى نفس السطر فى العمودين a,b فى الملف المرفق PreventinsameRaw.rar رابط هذا التعليق شارك More sharing options...
حسام نور قام بنشر سبتمبر 15, 2003 الكاتب مشاركة قام بنشر سبتمبر 15, 2003 المثال ممتاز مشرفنا محمد طاهر . - ولكن لقد جربت أدخال الكود عن طريق الضغط على Alt+f11 ثم لصق الكود ولكن لم يعمل . - فأين يتم كتابة الكود ؟؟ وشكراً رابط هذا التعليق شارك More sharing options...
حسام نور قام بنشر سبتمبر 15, 2003 الكاتب مشاركة قام بنشر سبتمبر 15, 2003 - أشكركم .. وصلت للحل ووضعت الكود لورقة العمل والآن يعمل خالص تقديري لمجهواتكم رابط هذا التعليق شارك More sharing options...
الردود الموصى بها