اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


fendi
إذهب إلى أفضل إجابة Solved by 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

  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information