< návrat zpět

MS Excel


Téma: Makro zafarbenie buniek rss

Zaslal/a 2.6.2012 22:56

Dobry den,
...
riesim momentalne problem so zvyrazneninm buniek...

V stlpci A su hodnoty od 1-12 ktore sa zafarbia pomocou podmieneneho formatovania na roznych 12 farieb. Tieto farby maju byt vychodzie pre format zvyraznenia riadkov. Policka v riadku budu zvyraznene podmienkou hodnota bunky je v rozsahu X,Y. Cisla v stlpci A sa menia tym padom aj farby. Ale problem je v tom ze chcem aby bola zachovana podmienka a v danom riadku rovnaka farba ako v stlpci A.

Dakujem za podporu

Zaslat odpověď >

Strana:  « předchozí  1 2
#008846
avatar
Biela je predpokladam bez vyplne, alebo nieje pouzita.citovat
#008848
avatar
Sub Makro1()
x = 0
For Each bunka In Intersect(Selection, ActiveSheet.UsedRange)
If (bunka.Interior.Color <> 16777215) Then x = x + 1
Next
MsgBox x
End Sub

Vyznač si stlpec a spusti makrocitovat
#008849
avatar
Predpokladam ze toto makro spocita vsetky zafarbene bunky v danom sheete? Je mozno spocitat zafarbene bunky zvlast pre rozne stlpce a vysledok zapisat pod kazdy stlpec?citovat
#008850
avatar
S podmienenym formatovanim to makro nefunguje 7 asi bere tie policka ako bez vyplne, alebo neviem...citovat
#008851
avatar
S podmieneným formátovaním to nejde. To by asi bolo trochu zložitejšie.
Najjednoduchšie by bolo to podmienené formátovanie nahradiť makrom.
Ale ak nepriložíš tvoj súbor, tak je to skôr veštenie. 7citovat
#008852
avatar
Ono by to šlo pomocí maticového vzorce, ale to by si musel definovat rozsah tabulky, to znamená maximální počet řádků v daném sloupci!
Pro max 139
=SUMA((R3C1:R139C1=1)*(R3C:R139C>=R3C7:R139C7)*(R3C:R139C<=R3C6:R139C6))
vložit CTRL+SHIFT+ENTER
nebo tedy pro sloupec R
=SUMA(($A$3:$A$139=1)*(R$3:R$139>=$G$3:$G$139)*(R$3:R$139<=$F$3:$F$139))
vložit CTRL+SHIFT+ENTER

Pardon, pokud nezáleží na barvě je třeba vynachat první podmínku.
tzn.
=SUMA((R3C:R139C>=R3C7:R139C7)*(R3C:R139C<=R3C6:R139C6))
vložit CTRL+SHIFT+ENTER
nebo tedy pro sloupec R
=SUMA((R$3:R$139>=$G$3:$G$139)*(R$3:R$139<=$F$3:$F$139))
vložit CTRL+SHIFT+ENTERcitovat
#008854
avatar
Ještě se k tomu musím vrátit.
Došlo mi to, až když sem vypnul comp.
To by přičetlo i řádky s nulovými hodnotami a to mi nechceme.

Takže pro tabulku s max. řádky do 150.

Sečte řádky pro které platí, že v sloupci A je větší než 0.
=SUMA(($A$3:$A$150>0)*(H$3:H$150>=$G$3:$G$150)*(H$3:H$150<=$F$3:$F$150))

Sečte řádky pro které platí, že v sloupci A je neprázdná.
=SUMA((NE(JE.PRÁZDNÉ($A$3:$A$150)))*(H$3:H$150>=$G$3:$G$150)*(H$3:H$150<=$F$3:$F$150))

Lze použít i fce POSUN.
Do sloupce A v řádku pro výsledky například 151
buď
=POČET(A$3:A$150)
nebo
=SUMA((NE(JE.PRÁZDNÉ($A$3:$A$150)))*1)

Pak do sloupce H
=SUMA((POSUN(H$3;;;$A151)>=POSUN($G$3;;;$A151))*(POSUN(H$3;;;$A151)<=(POSUN($F$3;;;$A151))))

Všechny vložit CTRL+SHIFT+ENTER
No snad už tam nemám nikde chybu.citovat

Strana:  « předchozí  1 2

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

Vynásobit hodnoty kurzem - Power Query

Alfan • 26.4. 7:56

Relativní cesta - zdroje Power Query

Alfan • 26.4. 7:54

Vynásobit hodnoty kurzem - Power Query

elninoslov • 26.4. 7:54

Vynásobit hodnoty kurzem - Power Query

lubo • 25.4. 19:18

Relativní cesta - zdroje Power Query

elninoslov • 25.4. 15:12

Relativní cesta - zdroje Power Query

Alfan • 25.4. 15:08

Relativní cesta - zdroje Power Query

elninoslov • 25.4. 14:21