Biela je predpokladam bez vyplne, alebo nieje pouzita.citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Makro zafarbenie buniek
MS Excel
Téma: Makro zafarbenie buniek 
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
Strana: « předchozí 1
2
(18.6.2012 14:59)#008846
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
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
(18.6.2012 15:36)#008849
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
(18.6.2012 19:33)#008850
S podmienenym formatovanim to makro nefunguje 
asi bere tie policka ako bez vyplne, alebo neviem...citovat
asi bere tie policka ako bez vyplne, alebo neviem...citovatS 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.citovat
Najjednoduchšie by bolo to podmienené formátovanie nahradiť makrom.
Ale ak nepriložíš tvoj súbor, tak je to skôr veštenie.
citovatOno 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
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
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
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)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články