تغییر رنگ اعداد بالاتر و پایین تر از میانگین

تغییر رنگ اعداد بالاتر و پایین تر از میانگین

شاید شما نیاز به کدی داریدکه بدانید کدام یک از اعداد شما در یک شیت بالاتر و یا پایین تر از میانگین هستند. در واقع با یک نگاه ،اوضاع دستتان بیاید.
برای استفاده از این کد ،نرم افزار اکسل را اجرا کنید. وارد محیط ویرایشگر vba شوید.(Alt+F11)سپس تمام کدها را درsheet1 کپی کنید. و در نهایت کلید F5 را فشار دهید تا نتیجه را ببینید.(این کد اعداد تصادفی بین -50 و +50 تولید می کند)

' Excel 2010

' Demonstrate the AddAboveAverage method

Sub TestAboveAverage()
' Fill the range with random numbers between
' -50 and 50.
Dim rng As Range
Set rng = Range("A1", "D5")
SetupRandomData rng

' Create a conditional format for values above average.
Dim aa As AboveAverage
Set aa = rng.FormatConditions.AddAboveAverage
aa.AboveBelow = xlAboveAverage
aa.Font.Bold = True
aa.Font.Color = vbBlue

' Create a conditional format for values below average.
Dim ba As AboveAverage
Set ba = rng.FormatConditions.AddAboveAverage
ba.AboveBelow = xlBelowAverage
ba.Font.Color = vbRed
End Sub

Sub SetupRandomData(rng As Range)
rng.Formula = "=RANDBETWEEN(-50, 50)"
End Sub