تنسيق شرطي بالالوان

[صداكم]

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

 

الأساتذة الكرام .. لدي  جدول خاص بحساب عدد الأيام التي مرت على تاريخ الاصدار .. 

 

فلو كان تاريخ الاصدار مر عليه اكثر من 91 يوم يتحول العمود الخاص به إلى اللون الأحمر 

وإذا كان مر عليه 182 يوم يتحول العمود الثاني إلى اللون الاخضر

وكذلك العمود الثالث ..

 

فكيف اطبق هذه القاعدة انا اعرف الفورملا وحاولت اضبطها لكن ما يظهر معي اللون ما اعرف ليه ..

 

 

Book1.zip

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

جرب اخي الحبيب الملف التالي

 

TT.rar

[علي المصري]

بعد إذن الاستاذ ياسر

يمكن كتابة الاكواد

Private Sub TextBox1_Change()
Sheets("Sheet1").Range("B3") = TextBox1
End Sub
Private Sub UserForm_Activate()
TextBox1 = Sheets("Sheet1").Range("B3")
End Sub

كالتالي

Private Sub TextBox1_Change()
Sheet1.Range("B3") = TextBox1
End Sub
Private Sub UserForm_Activate()
TextBox1 = Sheet1.Range("B3")
End Sub

شكرا

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

أعتقد أخي علي المصري أن المداخلة غير منطقية ..

الأكواد تخص موضوع آخر

[علي المصري]

 

أعتقد أخي علي المصري أن المداخلة غير منطقية ..

الأكواد تخص موضوع آخر

 

نعم للأسف حدث خطأ

أرجو المعذرة

[صداكم]

إلى الان لم تضبط معي الدالة : (