مساعدة في طلب تخصيص نتيجة ثابتة

[fendi]

مرحبا

حاب اعمل طريقة تجعل نتيجة الجمع او الضرب اي كانت العملية المهم في خلية الناتج (الشرط ان تكون مخصصة من قبل المستخدم مثلا 100)

توضيح اكثر

لو عندي قائمة عمود فيها تدخل الدرجات او الارقام

المهم لو ادخلت في الصف الاول25

وفي الصف الثاني 25

والثالث 30 والرابع 10

تبقى الصف الاخير لابد ان يكون 10

حتى تكون النتيجة الاجمالي = 100 بالمائة

هذه الطريقة الى الان الجمع العادي البسيط

    لكن المطلوب لو شخص ادخل رقم غير 10 او غير 25  او قيم رقمية مختلفة وكانت النتيجة فوق المائة او تحت المائة 

في هذه الحالة لابد تظهر لي خطأ او غيرمسموح ادراج هذه القيمة لان الناتج لاتساوي 100

القيم في الصفوف قابلة للزيادة والنقصان ممكن 30 +30 +30 +10 او اي ترتيب المهم النتيجة لاتتعدى او تقل من 100

هل المعادلة تكون في data validation

او كيف ؟ بحثت في في كذا مكان لم اتوصل

 

 

 

 

[حسين مامون]

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

اخي الكريم اليك هذا العمل حسب  ما فهمت في مشاركتك 

 

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim LR As Long
Dim rng
Dim tot
 Set tot = Range("b10")
Set rng = Range("b2:b9")
    If Not Intersect(Target, rng) Is Nothing Then
         Range("b10").Formula = "=SUM(B2:B9)"
         If Range("b10") > 100 Then
             MsgBox "خطأ في الادخال"
             Target = ""
            Target.Activate
        End If
    End If
End Sub

 

test.xlsm