Kuidas luua värvisummasid
Kas soovite lisada lahtrite sisu, kuid arvestada lahtrite värviga? Seda saate teha makro abil. Järgmisel joonisel on näidatud andmetabel, kus mõnel lahtril on kollane taust (kollane täitmisvärv):
Ainult lahtrite lisamiseks praegusest valikust, millel on kollane taustavärv, kasutage järgmist makro.
Lisa alamvärvi lahtrid ()
Dim Sum nii kaua
Dim Cell kui vahemik
Iga valitud lahtri kohta
Kui Cell.Interior.ColorIndex = 6 Siis
Summa = summa + lahter. Väärtus
Lõpp Kui
Järgmine lahter
MsgBox "Värvisumma on:" & summa
End Sub
Pärast makro käivitamist näitab Excel teile akna lahtrite summat, mis on esile tõstetud kollase taustavärviga. Järgmine joonis näitab, milline näeb välja tulemus, kui valite ülaltoodud lahtrivahemiku:
Kollase taustaga lahtrite asemel muude värvide kasutamiseks kohandage päringu If võrdlusväärtust. Asenda kollase asemel muud väärtused 6 asemel. Et teada saada, millist ColorIndexi väärtust teie valitud värvi jaoks kasutada, võite kasutada väikest makro. Klõpsake valitud lahtril ja käivitage järgmine makro, et teada saada, millise taustavärviga aktiivne lahter on vormindatud:
Alamaktiivvärv ()
MsgBox "Aktiivne taustavärv:" & _
(Valik (1, 1). Interjöör. Värviindeks)
End Sub
Näpunäide. Kui soovite teada, kuidas Excelis makrosid sisestada ja käivitada, leiate lühikirjelduse siit: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html
