Offset, Resize - oblast buněk - Excel VBA

Proč resize a offset - úvod

Když je k dispozici objekt Range, k čemu pak je Offset? Máme-li nějakou oblast, můžeme se pomocí Offset přesouvat nebo přes Resize měnit velikost oblasti.

Co se dozvíte:

• Offset
  • syntaxe
  • řádek dolů
  • řádek vpravo
  • řádek i sloupce najendou ;)
• Offset - problémy - odkaz mimo oblast
• Resize
  • syntaxe
  • řádky dolů
  • sloupce vpravo
  • oblast - řádky i sloupce
• Ke stažení - zdarma

V ukázkových kódech představím, jak Offest a Resize prakticky využít...

Offset

Offset syntaxe

.Offset(RowOffset, ColumnOffset)

• RowOffset - posun v řádcích (0 - neposunuje se, kladné směr dolů, záporné směr nahoru)
• ColumnOffset - posun ve sloupcích (0 - neposunuje se, kladné směr vpravo, záporné směr vlevo)

Offset - 1 řádek dolů

Dim MojeRange As Range Set MojeRange = Range("C5").Offset(1, 0) MojeRange.Select

Nebo

Dim MojeRange As Range Set MojeRange = Range("C5").Offset(1) MojeRange.Select

V dalším budu definici typu zanedbávat.

Offset - posun vpravo

Set MojeRange = Range("C5").Offset(0, 1)

Nebo

Set MojeRange = Range("C5").Offset(, 1)

Offset vlevo

Set MojeRange = Range("C5").Offset(0, -1)

nebo:

Set MojeRange = Range("C5").Offset(, -1)

Offset dolů a vpravo o několik buněk

Set MojeRange = Range("C5").Offset(3, 3)

Resize

Resize syntaxe

Resize(RowSize, ColumnSize)

• RowSize - rozšíření v řádcích (0 - neposunuje se, kladné směr dolů, záporné směr nahoru)
• ColumnSize - rozšíření ve sloupcích (0 - neposunuje se, kladné směr vpravo, záporné směr vlevo)

Resize - rozšíří oblast buňek o řádky

Set MojeRange = Range("C5").Resize(3, 1)

Resize - rozšíří oblast buňek o sloupce

Set MojeRange = Range("C5").Resize(1, 3)

Resize - zmenšit oblast buňek o sloupce

Set MojeRange = Range("C5:F11").Resize(3, 3)

Ke stažení

Soubor Resize, Offset - praktické příklady - Excel VBA ke stažení zdarma. Soubor využívá makra.

Závěrem

Pokud Vás něco napadne k Offset a resize můžete uvést v komentáři.

Článek byl aktualizován: 19.09.2020 11:06

Pavel Lasák - autor webu

Microsoft Office (Word, Excel, Google tabulky, PowerPoint) se věnuji od roku 2000 (od 2004 na této doméně) - V roce 2017 jsem od Microsoft získal prestižní ocenění MVP (zatím jsem jediný z ČR v kategorií Excel). Své vědomosti a zkušenosti dávám k dispozici i on-line ve videích pro SEDUO. Ve firmách školím a konzultuji, učím na MUNI. Tento web již tvořím přes 15 let. Zdarma je zde přes 1.000 návodu, tipů a triků, včetně přes 250 různých šablon, sešitů.

           

Komentáře