Excel - vybarvení požadovaných buněk

Radcovia ti nemôžu dať radu, keď im neprezradíš kde a ako máš uložený zoznam buniek na ofarbenie.

toho je viac, čo by mal prezradiť: ani nie kde a ako je uložené, ale na základe čoho chce prefarbovať

Jenda , Ty by si sa vyznal v tom, ako si zadefinoval problém??? Ja teda nie...

Seznam buněk mám ve Wordu, ale ten mohu převést jinam, proto mi to nepřišlo důležité, omlouvám se. Všechny ty buňky, které mám napsané, budou mít stejnou barvu. Třeba červenou.

v tom prípade nejde o žiadne podmienené formátovanie.
Prečo je problematické manuálne tie bunky jednorazovo vyfarbiť? Je ich tak veľa?
Ak áno, dá sa z Wordu ten zoznam skopírovať do Excelu a urobiť jednoduché makro, ktoré bude postupovať zoznamom a farbiť predmetné adresy.
Pokiaľ toho nie je až tak strašne veľa, existujú postupy, ktoré Ti to uľahčia: zafarbíš jednu bunku, vezmeš z nej kópu formátu (dvojklik na nástroj štetec) a klikom do jednotlivých buniek sa jednoducho do radu farbia alebo si hromadne označíš všetky dotknuté bunky (pridržaním klávesy CTRL sa dajú bunky hromadne priznačovávať aj v nesúvislej oblasti) a naraz ich zafarbíš

Priložený súbor obsahuje makro s týmto kódom:

Sub Vyfarbenie()
Adresa = Array("A3", "B5", "C1")
    For i = 0 To UBound(Adresa)
        Range(Adresa(i)).Interior.ColorIndex = 3
    Next i
End Sub

Uvedený príklad Ti vyfarbí Bunky A3, B5, C1 červeným podkladom spustením makra "Vyfarbenie"

Teraz je otázka, ako dostať zoznam z Wordu do formy Array("A3", "B5", "C1")
Ani to nie je problém. Ak poskytneš zoznam všetkých buniek, tak Ti to do tej formy hodím. Prípadne si to v kóde prepíš sám ale pozor na preklepy!
Kód je prístupný v editore VBA cez kartu Vývojár

Jde to i bez cyklu:

Sub Vyfarbenie2()
Adresa = Array("A3", "B5", "C1")
    
Range(Join(Adresa, ",")).Interior.ColorIndex = 3
   
End Sub

Vytvoř si makro, kam nasázíš buňky a požadovanou barvu. Barvu přitom můžeš zadat třemi různými způsoby. Příklad takového makra:

Sub Makro1()
  Range("B2").Interior.Color = RGB(80, 120, 80)  ' Barva zadaná jako RGB
  Range("B3").Interior.Color = vbGreen           ' Barva zadaná konstantou
  Range("B4").Interior.ColorIndex = 3            ' Barva zadaná indexem
End Sub

Místo B2, B3, B4 si nasázej svoje adresy. O zadání barev těmi třemi způsoby se více dozvíš třeba zde.

a teraz keď tak pozerám na príspevok Machra55 (pochopil som ho, že by si musel pre každú bunku zapísať riadok kódu), tak sa to dá aj takto (čím sa Machrovi ospravedlňujem):

Sub Makro1()
    Range("B2,E8,H4,H10,F17,C15,C10,C20").Interior.ColorIndex = 3
End Sub

pričom v zátvorke je zoznam adries. Toto nahrádza moje prvé makro (v Zošit1.xlsm).

Záleží teda od toho, ako to máš vo Worde. Pokiaľ tam máš zoznam za sebou oddelený čiarkami, tak to je práve to, čo potrebuješ do tohto makra.
Pokiaľ to máš pod sebou, tak môžeš použiť môj "výrobník" poľa, pričom z neho odstránime úvodzovky (druhé tlačidlo)

Chápeme sa?

Tak se s tím peru a něco nefunguje.

Převést seznam není problém. Ale když otevřu tvé makro a do závorek vložím seznam, celé to zčervená (viz obr.).Uložím, spustím a vyskočí tabulka (viz obr.)

Pokud vložím třeba jen 10 hodnot, vše funguje.

Může to vůbec s počtem 644 buněk fungovat?

Děkuju za rady

Hlásí to syntaktickou chybu - nemáš tam někde v tom seznamu buněk navíc uvozovky nebo čárku? Nebo naopak nechybí někde?

Nenašel jsem chybu. Navíc seznam převádím výše zmíněným makrem, tak by ani chyba být neměla.

Dokonce se to chová nějak divně, protože (znovu podotýkám, že s makrem dělám prvně ;) )

Totiž když do makra obarvení chci zkopírovat celý ten seznam buňek, hodí se mi sám mimo uvozovky a nemohu ho tam dostat.
I když mezi uvozovky zadám první a poslední buňku a pak mezi ně vložím zbytek, stejně se mi hodí pod uvozovky a zčervenají, viz obrázek.

Máš na konci každého řádku podtržítko?

Nemôžeš len tak zalomiť riadky Enterom. Pokiaľ chceš pokračovať v dlhom zápise jedného príkazu na ďalšom riadku, musíš na konci riadku dať medzeru a podtržítko, až potom môžeš dať Enter a pokračovať v zápise na ďalšom riadku.

Nedávám Enter, jen vložím celý ten seznam a samo se to rozdělí na řádky. Když teď chci dát na konci řádku mezeru a podtržítko, nejde ani jedno :(
Ale ještě to nevzdávám :)
Děkuju

Práveže Enter musíš dať, aby mohli byť riadky rozdelené do viacerých. Nemôže to byť vo viacerých riadkoch bez rozdeľovačov (medzera, podtržník a Enter). Porozdeľuj si to do riadkov po nejakých rozumných dávkach, aby si videl vždy aj konce riadkov. V mieste, kde ti to rozdelí samotný editor, už nemáš miesto - nedovolí na koniec riadka ešte vložiť tú nutnú medzeru a podtržítko (na konci každého čiastkového riadka, ktorý má pokračovať)!
Ak by to nešlo, urob to po blokoch, trebárs 5x. Neviem, či na dľžku (počet prvkov) existuje obmedzenie. Sám by som si to odskúšal trebárs polovicou alebo štvrtinou adries...

Skvěle, už to funguje. Máš pravdu, nebylo místo na ty dva znaky.

Takže první zkušenost s makry a jelikož neznám ani základy práce s editorem, nebylo to jednoduché. Ale díky tobě i ostatním mám ulehčeno mnoho práce.

Moc ti, i ostatním, děkuji a přeji fajn večer.

Seš machr!

Bez Velemachra jako Ty, by nebyl pidimachr jako já ;)

Díky, ale tys to nevzdal a nakonec zvládl.
Brou noc!