Olisiko kenelläkään tietotaitoa kenties ehdottaa millainen ehtolauseke toimisi tapauksessa, jossa minulla on soluissa, joita on n. 160, summia. Jotkut niistä on värjätty punaisella, jotkut vihreällä ja joissakin ei ole taustaa ollenkaan. Pitäisi jollain keinolla saada laskettua erikseen punaisten ja vihreiden summat näkyviin. Jos joku saa tuosta minun kuvauksesta jotain irti ja pystyy ehdottamaan mitä kokeilisin, olen kiitollinen.
Ehto? Makro?
Excel ihmettelijä
1
624
Vastaukset
tarkista värien koodinumerot , jotta ovat oikeita. Nauhoita vaikka makro ja vaihda fontinväriä ja tarkista fontinvärikoodi numerot...
soluun kaavaesim. =SummaVärillä(I1:I60)
moduuliin...
Function SummaVärillä(Alue As Range) As Double
Dim solu As Range
Application.Volatile True
For Each solu In Alue
If solu.Font.ColorIndex = 3 Or solu.Font.ColorIndex = 10 Then
SummaVärillä = SummaVärillä solu
End If
Next solu
End Function
Keep Excelling
@Kunde
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
YLE Äänekosken kaupunginjohtaja saa ankaraa arvostelua
Kaupungin johtaja saa ankaraa kritiikkiä äkkiväärästä henkilöstöjohtamisestaan. Uusin häirintäilmoitus päivätty 15 kesä992045Euroopan lämpöennätys, 48,8, astetta, on mitattu Italian Sisiliassa
Joko hitaampikin ymmärtää. Se on aivan liikaa. Ilmastonmuutos on totta Euroopassakin.2891854Asiakas iski kaupassa varastelua tehneen kanveesiin.
https://www.iltalehti.fi/kotimaa/a/33a85463-e4d5-45ed-8014-db51fe8079ec Oikein. Näin sitä pitää. Kyllä kaupoissa valtava3221667Martina lähdössä Ibizalle
Eikä Eskokaan tiennyt matkasta. Nyt ollaan jännän äärellä.2031546- 301153
Jos ei tiedä mitä toisesta haluaa
Älä missään nimessä anna mitään merkkejä kiinnostuksesta. Ole haluamatta mitään. Täytyy ajatella toistakin. Ei kukaan em941093Useita puukotettu Tampereella
Mikäs homma tämä nyt taas on? "Useaa henkilöä on puukotettu Tampereen keskustassa kauppakeskus Ratinan lähistöllä." ht891057- 511037
Se nainen näyttää hyvältä vaikka painaisi 150kg
parempi vaan jos on vähän muhkeammassa kunnossa 🤤631032- 581018