Формулирање на проблемот
Би сакал колоните на хистограмот (или парчињата на дијаграмот со пити итн.) автоматски да ја имаат бојата што се користеше за пополнување на соодветните ќелии со изворните податоци:
Предвидувајќи ги изненадените и огорчени извици на поединечни другари, треба да се забележи дека, се разбира, бојата на пополнувањето на дијаграмот може да се смени и рачно (десен клик на колоната - Формат на точка/серија (Форматирајте ја податочната точка/серија) итн – никој не се расправа. Но, во пракса, има многу ситуации кога е полесно и поудобно да се направи ова директно во ќелиите со податоци, а потоа графиконот треба да се преслика автоматски. Обидете се, на пример, да поставите пополнување по регион за колоните во оваа табела:
Мислам дека ја разбираш идејата, нели?
Решение
Ништо друго освен макро може да го направи ова. Затоа, отвораме Уредник на Visual Basic од јазичето инвеститорот (Програмер - уредник на Visual Basic) или притиснете ја кратенката на тастатурата Alt + F11, вметнете нов празен модул низ менито Вметни – Модул и копирајте го текстот на такво макро таму, што ќе ја заврши целата работа:
Под SetChartColorsFromDataCells() If TypeName(Selection) <> "ChartArea" Потоа MsgBox "Сначала выделите диаграмму!" Излезете од под-крајот ако Поставете c = Active Chart За j = 1 До c.SeriesCollection.Count f = c.SeriesCollection(j).Формула m = Split(f, ",") Поставете r = опсег (m(2)) За i = 1 До r.Cells.Count c.SeriesCollection(j).Points(i).Format.Fill.ForeColor.RGB = _ r.Cells(i).Внатрешност.Боја Следно i Следна j Крај Под
Сега можете да го затворите Visual Basic и да се вратите во Excel. Користењето на креираното макро е многу едноставно. Изберете го графиконот (површина на графиконот, не област на заплет, мрежа или колони!):
и стартувајте го нашето макро со копчето Макроа табот инвеститорот (Програмер - макроа) или со кратенка на тастатура Alt + F8. Во истиот прозорец, во случај на честа употреба, можете да доделите кратенка на тастатурата на макрото користејќи го копчето параметри (Опции).
PS
Единствената мува во маста е неможноста да се користи слична функција за случаи кога бојата е доделена на ќелиите на изворните податоци користејќи правила за условно форматирање. За жал, Visual Basic нема вградена алатка за читање на овие бои. Има, се разбира, одредени „патерици“, но тие не работат за сите случаи и не во сите верзии.
- Што се макроа, како да ги користите, каде да вметнете макро код во Visual Basic
- Условно форматирање во Excel 2007-2013 година
- Што е ново во графиконите во Excel 2013 година