اذهب الي المحتوي
أوفيسنا

تحديد القيمة العظمى و الدنيا لخانة في شيت عن طريق vba


الردود الموصى بها

السلام عليكم ورحمة الله و بركاته أخوتي الكرام حياكم الله.

أبحث عن الكود الذي يمكنني من تعيين القيمة الدنيا و القيمة العضمى لخانة أو عمود في الأكسل.

يعني إذا وضعت رقما أكبر أو أقل يظهر رسالة خطأ على سبيل المثال أكبر قيمة 20 و أصغر قيمة 0 لا يجب أن تكون قيمة الخلية خارج هذا المجال.

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

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

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 2 Or Target = "" Then Exit Sub
    If Target < 10 Or Target > 20 Then
        MsgBox "يجب ادخال قيمة بين 10 و 20"
        Target = ""
        Target.Select
    End If

End Sub

تضع الكود في حدث ورقة العمل .. في العمود B يجب ادخال قيمة بين 10 و 20 

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

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

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information