Мундариҷа
Тартиб додани мушкилот
Ман мехоҳам, ки сутунҳои гистограмма (ё буридаҳои диаграммаи пирожн ва ғ.) ба таври худкор ранг дошта бошанд, ки барои пур кардани чашмакҳои мувофиқ бо маълумоти манбаъ истифода мешуданд:
Гирьяхои хайратангез ва хашму газаби рафицони алохидаро интизор шуда, бояд гуфт, ки албатта, ранги пуркунии диаграммаро дастй хам тагьир додан мумкин аст (сутуни ростро пахш кунед — Формати нуқта/силсила (Формат нуқтаи маълумот/силсила) ва гайра — касе бахс намекунад. Аммо дар амал бисёр ҳолатҳо вуҷуд доранд, ки ин корро бевосита дар ҳуҷайраҳои дорои маълумот осонтар ва қулайтар аст ва сипас диаграмма бояд ба таври худкор ранг карда шавад. Масалан, кӯшиш кунед, ки пуркунии минтақаҳоро барои сутунҳои ин диаграмма муқаррар кунед:
Ман фикр мекунам, ки шумо идеяро фаҳмед, дуруст?
ҳал
Ҳеҷ чиз ҷуз макрос ин корро карда наметавонад. Аз ин рӯ, мо кушодем Муҳаррири Visual Basic аз ҷадвал таҳиякунанда (Таҳиягар — Муҳаррири Visual Basic) ё миёнабури клавиатураро пахш кунед Alt + F11, ба воситаи меню модули нави холӣ гузоред Ворид - Модул ва матни чунин макросро дар он ҷо нусхабардорӣ кунед, ки тамоми корҳоро иҷро мекунад:
Sub SetChartColorsFromDataCells() Агар TypeName(Интихоб) <> "ChartArea" Он гоҳ MsgBox "Сначала выделите диаграмму!" Хуруҷ аз зерохир Агар Танзим кунед c = ActiveChart Барои j = 1 Ба c.SeriesCollection.Count f = c.SeriesCollection(j).Формула m = Тақсим(f, ",") Танзими r = Диапазон(m(2)) Барои i = 1 Ба r.Cells.Count c.SeriesCollection(j).Points(i).Format.Fill.ForeColor.RGB = _ r.Cells(i).Interior.Color Next i Next j End Sub
Акнун шумо метавонед Visual Basic-ро пӯшед ва ба Excel баргардед. Истифодаи макросҳои сохташуда хеле содда аст. Диаграммаро интихоб кунед (майдони диаграмма, на майдони қитъа, шабака ё сутунҳо!):
ва макроси моро бо тугма иҷро кунед Макрос ҷадвали таҳиякунанда (Таҳиягар — Макрос) ё бо миёнабури клавиатура Alt + F8. Дар ҳамон равзана, дар сурати истифодаи зуд-зуд, шумо метавонед бо истифода аз тугма миёнабури клавиатураро ба макрос таъин кунед параметрҳо (Интихобҳо).
PS
Ягона магасе дар атрафшон ин имконнопазирии истифодаи функсияи шабеҳ барои ҳолатҳое мебошад, ки ранг ба ҳуҷайраҳои маълумоти сарчашма бо истифода аз қоидаҳои шартии форматкунӣ таъин карда мешавад. Мутаассифона, Visual Basic асбоби дарунсохт барои хондани ин рангҳоро надорад. Албатта, баъзе "асғолаҳо" мавҷуданд, аммо онҳо на дар ҳама ҳолатҳо кор мекунанд ва на дар ҳама версияҳо.
- Макросҳо чист, чӣ тавр истифода бурдани онҳо, ба куҷо ворид кардани коди макро дар Visual Basic
- Форматкунии шартӣ дар Excel 2007-2013
- Чӣ нав дар Диаграммаҳои Excel 2013