Přidat otázku mezi oblíbenéZasílat nové odpovědi e-mailemVyřešeno Excel - makro: změna výplně buňky

Ahoj ve spolek. Potřeboval bych radu, jak změnit výplň buňky. V přiloženém souboru je 12 sloupců ve kterých je vždy několik buněk vybarveno žlutozelenou barvou (číslo barvy je 3407820) a právě tuto barvu bych rád nahradil třeba šrafováním. V sešitě je tlačítko "Tisk" které vyznačí tiskovou oblast a vyvolá dialog tisku.
Představa je asi taková, že po stisku tlačítka se vybere tisková oblast, všechny žlutozelené buňky v oné oblasti se změní na šrafované, provede se tisk a po tisku se šrafování změní zpět na žlutozelenou.

Jestli má někdo ponětí jak toho dosáhnout tak budu rád. Už mi došly nápady 3-[

Díky.

Předmět Autor Datum
Není to úplně ideální, ale skutečné počty řádků a sloupců už si tam dolaď sám...
JoDiK 01.08.2011 12:38
JoDiK
Díky za Tvůj čas, včera večer mi to nedalo a pokoušel sem se rozchodit změnu výplně alespoň pro jede… poslední
Siki83 01.08.2011 20:40
Siki83

Díky za Tvůj čas, včera večer mi to nedalo a pokoušel sem se rozchodit změnu výplně alespoň pro jeden sloupec, bez úspěchu. Jen taková perlička - nakonec sem se na*ral a vše zkopíroval do novýho sešitu a hle. Změna barvy najednou fungovala. Vůbec netuším v čem byla bota.

Není to úplně ideální

Ba naopak je to úplně geniální všechno funguje tak jak sem si představoval a udělal si to jednodušeji, než sem se o to pokoušel já.

skutečné počty řádků a sloupců už si tam dolaď sám...

To už bylo to nejmenší, všechnu dřinu už si odved Ty :-D

stačilo upravyt část kódu takto:

maxr = Selection.Rows.Count  
maxsl = Selection.Columns.Count  

a vrací to počet řádků a sloupců, které jsou obsaženy v "tiskové oblasti"

Ještě jednou díky
Siki

Zpět do poradny Odpovědět na původní otázku Nahoru