sherifelshorbagy قام بنشر يوليو 27, 2008 قام بنشر يوليو 27, 2008 عندي طلب صغير من الاعضاء ذوي الخبرة احاول عمل شيت اكسيل يكون فيه خلية تقوم بجمع مجموعه من الاعداد بناء علي ادخالات من المستخدمين اريد الايقبل الادخال الا للارقام المتوافقة مع الشرط الموضوع في خانة المجموع ( الاجمالي ) بالتحديد الايقبلها تماما وليس وضع خط اورسالة تنبية مثل A1 9 A2 3 في خلية الجموع الشرط هو الايزيد مجموع الادخالات عن 10 اريد الاكسيل الايقبل الادخال ارجو الرد لحاجتي لذلك الملف في عملي جزاكم الله خير
ابو اسامة العينبوسي قام بنشر يوليو 27, 2008 قام بنشر يوليو 27, 2008 السلام عليكم ممكن بالتحقق من الصحه او الكود Summ.rar
sherifelshorbagy قام بنشر يوليو 27, 2008 الكاتب قام بنشر يوليو 27, 2008 الاخ ابو اسامه انا شاكر لك جدا استجابتك السريعه واشكرك علي ارفافقك نموذج للحل ولكن لي ملاحظة وارجو الااثقل عليك عندما ادخلت ارقام غيرمتوافقه مع نموذج الادخال توقف الشيت عن العمل ولم استطع اكمال الادخال فيه الاعن طريق تعطيل برنامج الاكسيل بطريقة alt+ctrl+del ارجو ان ترد علي انا في انتظار ردك
عبدالله باقشير قام بنشر يوليو 27, 2008 قام بنشر يوليو 27, 2008 (معدل) السلام عليكم تعديل بسيط على كود ابو اسامة حفظه الله 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 قام بنشر يوليو 28, 2008 الكاتب قام بنشر يوليو 28, 2008 اشكركم جميعا علي هذا الاهتمام وجزاكم الله خير مع جزيل الشكر والتقدير للاخوة ابو اسامه الذين لم يتاخر علي في الرد وللاخ خبور الخير الذي لانكاد نتعلم منه شيئا حتي يضيف لنا جديدا وامني ان يكون الجميع مثلة الايتاخروا بالنصيحه حتي ولو لم يسالوها واخبركم اني ضيف جديد عليكم مشترك من يوم السبت او الخميس السابق وارجو ان اكون مفيد لكم ان شاء الله
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.