نمونه کد های excel vba-تغییر رنگ اعداد بالاتر و پایین تر از میانگین

تغییر رنگ اعداد بالاتر و پایین تر از میانگین به کمک VBA در اکسل

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

[ihc-hide-content ihc_mb_type=”show” ihc_mb_who=”3″ ihc_mb_template=”1″ ]

[cf-restrict]

[vbnet]' 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[/vbnet]

[/cf-restrict]

[/ihc-hide-content]