طب المساعدة فى اختصار كود تنسيق شرطى ل textbox

[عبدالرحمن بدوى]

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

أولا تحية الى احبتى الافاضل في منتدانا الجميل

كل عام وانتم من الله اقرب وعلى طاعته ادوم والى الجنة اقرب وعن النار ابعد

اخوانى الافاضل

في الشيت المرفق ملف لعمل مواصفات لمنتج معين

اريد منكم مساعدة في اختصار كود لعمل تنسيق شرطي ل textbox

عندى مواصفة لمنتج معين الحد الأدنى في الشيت ممثل في b4 و textbox2

والحد الأقصى لمواصفة المنتج ممثلة في c4 , textbox3

المطلوب هو انه عندما أقوم بإدخال النتيجة في textbox1 يتحقق الاتى

1- اذا كانت النتيجة ما بين الحد الأدنى والاقصى (داخل المواصفة) يتلون textbox1 بالاخضر

2- اذا كانت النتيجة اكبر من c4 يتلون باللون الاصفر

3- اذا كانت النتيجة اقل من b4 يتلون بالاحمر

انا قمت بكتابة هذا الكود ونجح معى في تحقيق ما اريد

Private Sub TextBox1_Change()
Dim a As Double
Dim b As Double
a = Sheets("data").Range("B4").Value
b = Sheets("data").Range("c4").Value
On Error Resume Next
Select Case TextBox1.Value
Case a To b
TextBox1.BackColor = vbGreen
Case 0 To a
TextBox1.BackColor = vbRed
Case Is > b
TextBox1.BackColor = vbYellow
End Select
End Sub

ولكن المطلوب لو احد الافاضل يساعدنى بكود اصغر لتحقيق نفس الهدف

لأن الفورم عندى سوف تحتوى على 15 منتج وكل منتج به 27 عنصر (parameter)

يعنى هحتاج لكتابة الكود 405 مرة

فلو امكن تصغير الكود او يكون هناك كود مختصر يكون افضل

وشكرا لكم

conditional formating.xlsm