تقييد الادخال بالارقام المحصورة بين رقمين

[hamizic]

إذا كان الرقم إحدى خانات الإكسل ولتن مثلا A1 هو 10

وأردت أن أجعل الرقم في خانة أخرى ولتكن B1 محصورا بين الصفر والرقم في الخانة A1 أي 10 في مثالنا كيف أقوم بذلك

تم تعديل ديسمبر 31, 2011 بواسطه hamizic

[الـعيدروس]

الحصر بمعنى ايه

يعني منع ادخال رقم اكبر من المحصور

اذا كان كذا ربما تقدر عن طريق التحقق من الصحة

[الـعيدروس]

شوف هذا تسجيل ماكرو

شغل الماكرو

ورح جرب اكتب رقم اكبر من العشره في خلية A1

وشوف وش راح يظهر لك

Sub Macro1()

    Range("A1").Select

    With Selection.Validation

	    .Delete

	    .Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _

	    Operator:=xlBetween, Formula1:="0", Formula2:="10"

	    .IgnoreBlank = True

	    .InCellDropdown = True

	    .InputTitle = ""

	    .ErrorTitle = "تنبية !!! "

	    .InputMessage = ""

	    .ErrorMessage = "الرقم أكبر من الرقم الإفتراضي"

	    .ShowInput = True

	    .ShowError = True

    End With

End Sub

[hamizic]

لكن أريد أن يتغير رقم الحصر بتغير الرقم في الخلية مثلا إذا كان a1=10 فإن الحصر في الخلية b1 يكون بين 1 و 10

أما إذا تغير الرقم في a1 إلى 8 فإن الحصر كذلك يتغير

[الـعيدروس]

السلام عليكم

حط هذا الكود في حدث الورقة المراد عمل عليه الشرط المطلوب

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column <> 1 Or Target.Row > 1 Then Exit Sub

If Not Intersect(Target, Range("A1")) Is Nothing Then

If Target.Value > Target.Offset(0, 1).Value Then

MsgBox "الرقم المدخل أكبر من الرقم الإفتراضي", vbCritical, "تحذير !!!"

Target.Value = Empty

Target.Offset(0, 1).Select

Else

Exit Sub

End If

End If

End Sub

حصر قيمة.rar

تم تعديل ديسمبر 31, 2011 بواسطه alidroos

[hamizic]

كيف أجعل العدد في خلية محصور بين الصفر ورقم في خلية أخرى

مثال:

لدي الرقم 10 في الخانة a1

أريد أن أجعل الرقم في الخلية b1 محصور بين 0 و 10

مع تغير رقم الحصر في حالة تغيره a1

أي لو تغير الرقم 10 إلى 7 يصبح الحصر بين 0 و 7

[hamizic]

جاوبوني من فضلكم

[الـعيدروس]

السلام عليكم

الاخ الفاضل hamizic

تم حل طلبك في الموضوع السابق

[hamizic]

لكن أنا أريد بين خليتين وليس في خلية واحدة

[الـعيدروس]

مامعنى بين خليتين

انت طلبت من 0 الى رقم احدده في خليه B1

والمرفق الذي في المشاركة السابقة يأدي هذا الطلب

واذا كان غير المطلوب وضح اكثر

[hamizic]

مثلا إذا كتبت عدد الأولاد في خلية ما وأردت أن أكتب في خلية ما الأولاد الأكبر من 10 سنوات

يجب أن أضع شرط لخية الأولاد أكبر من 10 سنوات حتى لا يكون الرقم الذي بداخلها أكبر من عدد الأولاد

[الـعيدروس]

اذا تكرمت فضلا وليس امرا

ارفق مثال من عملك

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

وابشر بشيء يسر خاطرك

[hamada.masoud]

لو سمحتم ياجماعه انا عايز اكتب فى خانه مثلا ولو a1 اكتب رقم لو وقع الرقم دا بين رقمين انا هاحددهم يكتب قيمة انا هاحددها فى العمود اللى جنبيه

 

مثلا 

الرقمين القيمة المحددة من

الى

0 100 30 101 200 40 201 300 50 301 400 60

 

 

 

[hamada.masoud]

لو سمحتم ياجماعه انا عايز اكتب فى خانه مثلا ولو a1 اكتب رقم لو وقع الرقم دا بين رقمين انا هاحددهم يكتب قيمة انا هاحددها فى العمود اللى جنبيه

 

مثلا 

الرقمين القيمة المحددة

 

 

من0   الى 100 يكتب   30

من101الى 200 يكتب  40

 

 

 

[ياسر خليل أبو البراء]

اطرح طلبك في موضوع مستقل وارفق ملف للتوضيح

[hamada.masoud]

http://www.officena.net/ib/index.php?showtopic=58575&st=0&p=373949