تغییر رنگ اعداد بالاتر و پایین تر از میانگین به کمک 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]
ممنونم.عالی بود
خیلی به دردم خورد. ممنون
سلام مرسی بخاطر مطلب تون
من میخوام رنگ نمودارهارو با VBA عوض کنم مثلا از 0تا میانگین ی رنگ از میانگین ب بعد ی رنگ دیگه
چیکا باید بکنم؟؟میشه راهنمائی کنید؟
مطالب خوبی بود هیچکس نظر نگذاشته گفتم اولین نفر باشم تشکر میکنم