سؤال في دالة التحقق من الصحه

[sherifelshorbagy]

عندي طلب صغير من الاعضاء ذوي الخبرة

احاول عمل شيت اكسيل

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

اريد الايقبل الادخال الا للارقام المتوافقة مع الشرط الموضوع في خانة المجموع ( الاجمالي )

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

مثل

A1 9

A2 3

في خلية الجموع الشرط هو الايزيد مجموع الادخالات عن 10

اريد الاكسيل الايقبل الادخال

ارجو الرد لحاجتي لذلك الملف في عملي

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

[ابو اسامة العينبوسي]

السلام عليكم

ممكن بالتحقق من الصحه

او الكود

Summ.rar

[sherifelshorbagy]

الاخ ابو اسامه

انا شاكر لك جدا استجابتك السريعه

واشكرك علي ارفافقك نموذج للحل

ولكن لي ملاحظة وارجو الااثقل عليك

عندما ادخلت ارقام غيرمتوافقه مع نموذج الادخال

توقف الشيت عن العمل

ولم استطع اكمال الادخال فيه الاعن طريق تعطيل برنامج الاكسيل بطريقة alt+ctrl+del

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

انا في انتظار ردك

[عبدالله باقشير]

السلام عليكم

تعديل بسيط على كود ابو اسامة حفظه الله

Private Sub Worksheet_Change(ByVal Target As Range)
RR = Application.WorksheetFunction.Sum(Range("A1:A2"))
If RR > 10 Then
    MsgBox ("المجموع تجاوز ال 10")
    Range("A2").ClearContents
Else
    Cells(3, 1).Value = RR
End If
End Sub

تم تعديل يوليو 27, 2008 بواسطه خبور خير

[قصي]

شكرا شكرا

[sherifelshorbagy]

اشكركم جميعا علي هذا الاهتمام

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

مع جزيل الشكر والتقدير للاخوة

ابو اسامه الذين لم يتاخر علي في الرد

وللاخ خبور الخير

الذي لانكاد نتعلم منه شيئا حتي يضيف لنا جديدا

وامني ان يكون الجميع مثلة الايتاخروا بالنصيحه حتي ولو لم يسالوها

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

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