Lekce 3 - Řádky a sloupce ve VBA

Dnešní lekci začneme vysvětlením použití vlastnosti Range.Range.

Použití další vlastnosti Range na oblast Range posune adresování vnitřní oblasti Range do levého horního rohu vyššího Range. V případě, že je adresa posunuta mimo oblast vyššího Range, je použita oblast/buňka z celého listu, posunutá o levý horní roh nadřízeného Range.

Dim vRng As Excel.Range
    Set vRng = Range("B3:B6")
    Debug.Print vRng.Range("A1").Address      'vypíše $B$3, tedy levý horní roh vRng
    vRng.Range("A1").Select

'příklad adresování mimo oblast prvního Range
    Set vRng = Range("D7:K26")
    Debug.Print vRng.Range("A1").Address      'vypíše $D$7, tedy levý horní roh vRng
'pokud je adresa v podřízeném Range mimo rozsah vyššího objektu Range, je platná a posunutá
    Debug.Print vRng.Range("S1").Address      'vypíše $V$7=buňku z listu posunutou o vRng, tedy D7
    vRng.Range("S1").Select

Příklad s použitím klausule With:

With Worksheets(1).Range("C3:D5")
   .Range("A1").Value = "test"                        'zapíše test jako hodnotu do buňky C3
   .Range("A1").Select
End With

Změna velikosti Range

Vlastnost Resize mění

...konec náhledu článku...
Pokračuj dál