< návrat zpět

MS Excel


Téma: Formátování makrem v události listu rss

Zaslal/a 3.10.2012 14:05

Zdravím, potřeboval bych pomoc. Mám makro, které mi kopií formátu barví řádky, podle jakéhosi vzorkovníku na listu. Ale chtěl bych stejnou činnost dát do události listu Worksheet change. Stejné makro mi tam nechodí, chtělo by to nějaký lepší postup a větší zkušenosti, rád bych se od někoho přiučil. Více vysvětleno v příloze, Excel 2007-2010. Dík.

Příloha: zip9701_makro-podbarveni-radku.zip (41kB, staženo 23x)
Zaslat odpověď >

#009705
avatar
Je to moc velke sousto na koncentraci. Takze to zjednodusme na jednotlive kroky.
Zkusil jsi pouzit Color misto ColoIndex? Tim by se mohla cast problemu vyresit.
Co tam mas dal?citovat
#009710
avatar
Pokiaľ ide o tú udalosť, ktorá má spustiť to druhé makro. Ako si to predstavuješ?citovat
#009711
avatar
Vymyslel som si takéto makro. Po stisku enter alebo šípka dole(hore) sa spustí.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim bunka As Range
If Target.Row <> ActiveCell.Row Then
Set bunka = Cells(Target.Row, 1)
If bunka <> "" Then
Range(bunka, bunka.End(xlToRight)).Interior.ColorIndex = Cells(bunka.Value + 1, 1).Interior.ColorIndex
Range(bunka, bunka.End(xlToRight)).Font.Color = Cells(bunka.Value + 1, 1).Font.Color
End If
End If
End Sub
citovat
#009712
avatar
Tu je to ešte raz kompletné.
Samozrejme namiesto COLORINDEX môžeš použiť aj COLOR. Je to lepšie.
Příloha: zip9712_makro-podbarveni-radku.zip (40kB, staženo 23x)
citovat
#009713
avatar
Ešte dva príklady. Na každom liste jeden.
Je použitý cyklus FOR. Je rýchlejší ako DO WHILE.

TARGET (cieľ)je bunka alebo oblasť(RANGE), ktorej sa udalosť týka. Napríklad pri udalosti CHANGE je to bunka, ktorá je menená.
Ďalšie formáty si môžeš doplniť do bloku WITH.
Příloha: zip9713_podbarveni-radku.zip (30kB, staženo 24x)
citovat
#009715
avatar
Milan-D: Interior.Color je lepší, nechápu ale, že ve všech podobných makrech, ze kterých jsem čerpal nápady je ColorIndex. Tak mě nenapadlo zkoumat všechny možnosti Interior.
Marjankaj: skvělé, funguje to jak potřebuju a navíc jsem se zase něco přiučil. Líbí se mi ta verze s "Array" a ohromil mě Intersect - to je to co mi chybělo, abych nějak pokročil sám při svých pokusech. Bylo jich dost, takové procházení slepých cestiček. Target vím co je, ale nedařilo se mi ho správně použít. Díky moc.citovat

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

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

Relativní cesta - zdroje Power Query

Alfan • 25.4. 10:49

Relativní cesta - zdroje Power Query

elninoslov • 25.4. 10:47

Relativní cesta - zdroje Power Query

Alfan • 25.4. 10:40