[حل شده] تغییر رنگ اعداد

[tnt20]

سلام به همگی
من میخواهم چند خانه را با هم جمع کنم چنانچه حاصلجمع آنها از 100 بیشتر شود عدد به رنگ آبی و چنانچه از 50 کمتر شود به رنگ قرمز نشان داده شود.
دوستان فقط از یک خانه برای حاصلجمعمیخواهم استفاده کنم و فقط رنگش تغییر کند.

[iranweld]

با سلام

کدهای ذیل را در قسمت ویژوال بیسیک شیت مورد نظر قرار دهید

ضمنا چون رنج بین 50 تا 100 مشخص نبود به رنگ سفید مشخص گردید

Private Sub Worksheet_Change(ByVal Target As Range)

If Range("A1").Value >= 100 Then

Range("A1").Font.ColorIndex = 3

ElseIf Range("A1").Value > 50 And Range("A1").Value < 100 Then

Range("A1").Font.ColorIndex = 1

Else

Range("A1").Font.ColorIndex = 5

End If
End Sub 

[iranweld]

از کاندیشنال فرمتینگ هم میتوانید رنگ سلول را بسته به مقدار آن تغییر دهید