Contents
Formula quaestionis
Vellem columnas in Mearum (vel crustae in chartula pica etc.) ut sponte colorem haberem, qui cellulas e fonte datas replere solebat;
Exspectans clamores singulorum comitum admirans et indignans, notandum est quod, utique, color repletionis schematis mutari potest etiam manually (recta-click in columna - Punctum / series forma (Forma notitia punctum / seriem) etc., nemo arguit. Sed in usu multum sunt condiciones cum facilius et commodius hoc facere directe in cellulis cum notitia, et tunc chartula automatice reponenda est. Conare, exempli gratia, per regionem columnis in chart hoc sistere;
Puto ideam recte?
Solutio
Nulla sed tortor ex. Ergo, aperimus Visual Basic editor ex tab elit (Developer - Visual Basic Editor) aut premet ille brevis Alt + F11, novum inanis moduli per tabulam inserere Inserere - OMNIBUS et describe ibi textum talis tortoris, qui faciet omne opus;
Sub SetChartColorsFromDataCells() Si TypeName (Selection) <> "ChartArea" Tunc MsgBox "Сначала выделите диаграмму!" Exit Sub finem Si Pone c = ActiveChart For j = 1 Ad c.SeriesCollection.Count f = c.SeriesCollection(j).Formula m = Split(f, "") Set r = Range(m(2)) Pro i = 1 Ad 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 claudere nunc potes et ad Excel. Usus tortor creatus est valde simplex. Eligite chartulam (aream chart, non aream machinam, eget vel columnas!);
et currunt nostri tortor cum button macros Tab elit (Developer - Macros) aut cum a keyboard brevis Alt + F8. In eadem fenestra, si frequentior est usus, claviaturae brevem dare potes in tortor utendo puga pyga Morbi (Options).
PS
Sola musca in unguento impossibilitas est utendi simili functione pro casibus in quibus color tribuitur cellulis fontis notitiae utentes regulas conditionales formatting. Infeliciter, Visual Basic instrumentum constructum-in his coloribus legendis non habet. Sunt sane quaedam "fuscae", sed non in omnibus casibus nec in omnibus versionibus operantur.
- Quae sunt macra, quomodo illis utendum, ubi tortor codicem inserere in Visual Basic
- Conditionalis Formatting in Excel 2007-2013
- What's New in Charts in Excel 2013