تغییر رنگ اعداد

[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]

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