Posted By: Trhan (Trhan) on 'CZprogram'
Title:     Re: VBA
Date:      Fri Dec  7 14:16:29 2001

> > > Jak by mel vypadat kod VBA pro oznaceni vice radku na listu v
> Excleovskem 
> > > sesitu (tj. oznaceni nespojite oblasti)  a jejich nasledne odstraneni?
> > > 
> > > Napr. testuji jednotlive hodnoty bunek ve sloupci a kdyz je splnena
> urcita
> > 
> > > podminka, tak dany radek oznacim, ale zatim neodstranuji! Chci pak
> > odstranit
> > > 
> > > vsechny oznacene radky najednou. 
> > > 
> Takhle to samozrejme taky delam, jenze v tomhle pripadu se to zaznamena jako
> 
> oznaceni nespojite oblasti v jednom prikazu, treba oznaceni radku 3 a 5 a 7:
> 
> Range("3:3,5:5,7:7").Select
> 
> Jenze ja potrebuje, abych to mohl oznacovat cyklu - pri kazdem pruchodu 
> pridat oznaceni nejakeho radku a pritom nesmazat oznaceni jiz oznacenych 
> radku.

Tak k tomu me napada:
1) bud do stringu pridavej oznaceni jednotl. radku - potom to jednoduse 
oznacis pomoci Range(MyStringWithRows).Select

2) nebo budes mit objekt typu Range, do ktereho budes vzdy pricitat dalsi 
Range pomoci metody Union. Jak na to (vypis z helpu excelu):

Dim r1 As Range, r2 As Range, myMultiAreaRange As Range
Worksheets("sheet1").Activate
Set r1 = Range("A1:B2")
Set r2 = Range("C3:D4")
Set myMultiAreaRange = Union(r1, r2)
myMultiAreaRange.Select


No problem...