Přeskočit navigaci | Přeskočit na novinky
     

Jste zde: Úvodní stránka » excel » vba-listy-bunky » List-radky-sloupce-VBA-Excel
Microsoft Excel logo

Práce v listu - řádky sloupce - VBA Excel

Videokurzy Excel

Ve spolupráci se SEDUO jsem vytvořil několik videokurzů:

Jak pracovat v listu pomocí VBA Excel.

Úvodem

Pro přehlednost v hledání a orientaci v tomto článku jsou kapitoly seřazeny dle obsahu:


Přidat / Vložit

Jak přidávat řádky a sloupce využitím Excel VBA, opět několik příkladů.

Řádky vložit (přidat)

Jeden přes Range, Rows, Cells

Range("A9").EntireRow.Insert Rows("9").EntireRow.Insert Cells(9, 1).EntireRow.Insert

Více řádků

Rows("12:13").EntireRow.Insert Range("A9:A10").EntireRow.Insert

Jak vkládat jinak

Rows(8).Insert Shift:=xlDown, _ CopyOrigin:=xlFormatFromLeftOrAbove

Sloupce vkládat, přidávat

Jeden sloupec vložení

Range("D4").EntireColumn.Insert Columns("E").EntireColumn.Insert Cells(9, 6).EntireColumn.Insert

Vložení více sloupců

Range("G:I").EntireColumn.Insert

Jak vkládat sloupce jinak, lépe

Columns("H:H").Insert Shift:=xlToRight, _ CopyOrigin:=xlFormatFromLeftOrAbove '' ještě bude více rozpracováno

Tip

Pozor co máte v paměti (Ctrl + C) z předchozích akcí! Hlavně při testování! Tip klávesa Esc přes spuštěním VBA kódu.

Smazat, odstranit

Smazat sloupec nebo řádek, můžete tak, že ho odstraníte, smažete obsah nebo formáty.

  • .Delete
  • .Clear
  • .ClearContents
  • .ClearFormats

Řádky

Jak mazat řádky

Range("A40:A41").EntireRow.Delete Rows(6).Delete Rows(2:3).Delete Rows(2).Delete Shift:=xlShiftUp Selection.EntireRow.Delete

Mazání formátu atd.

'' maže jen data Rows(2).ClearContents Rows(2).Clear '' maže jen formáty Rows(2).ClearFormats

Sloupce

Mazání sloupců

Range("F2").EntireColumn.Delete Columns(7).EntireColumn.Delete Selection.EntireRow.Delete

Neodstraňovat sloupec jen texty nebo formáty

Columns(13).ClearContents Columns(13).Clear Columns(13).ClearFormats

Zobrazit / skrýt

Jak na skrývání a zobrazování řádků.

Řádky

Jak zobrazovat a skrývat řádky:

Rows("5:6").EntireColumn.Hidden = True Rows("5:6").EntireColumn.Hidden = False

Sloupec

Jak zobrazovat a skrývat sloupce:

Columns("B:D").EntireColumn.Hidden = True Columns("B:D").EntireColumn.Hidden = False

Tip

Možno vložit i do jednoho kódu kdy se zobrazí skryjí. Pozor skrývat lze jen když je list (sešit) odemknut.

Výška a šířka

Jak na výšku a šířku sloupců.

Řádky

Jak na výšku řádků. Případně jak zjistit aktuální výšku vybraného řádku:

Rows(3).RowHeight = 25 Rows(2).AutoFit RangeHeight = ActiveSheet.Range("B1").Height

Sloupce

Jak na šířku sloupců, případně jak zjistit šířku aktuálního sloupce:

Columns("B").ColumnWidth = 25 Columns(2).AutoFit RangeWidth = ActiveSheet.Range("B1").Width

Označovat vybírat řádky a sloupce

Řádky

Jak označit vybraný řádek

Rows(66).Select Range("B66").EntireRow.Select ActiveCell.EntireRow.Select

Jiný list

Worksheets(3).Activate Worksheets(3).Rows(6).Select ' Možno využít i název listu, kodové označení listu

Sloupce

Jak na sloupce a jejich označování

Columns(6).Select Range("A2").EntireColumn.Select ActiveCell.EntireColumn.Select Worksheets(3).Activate Worksheets(3).Columns(6).Select ' Možno využít i název listu, kodové označení listu
  • Upravit řádky sloupce

    Například podbarvení řádku, a další

    Řádky

    V ukázce je pouze podbarvení řádku, podobně lze upravit písmo, ohraničení atd.

    Rows(68).Interior.Color = vbYellow '' Lze využít i RGB model pozadí, měnit písma atd.

    Ukázka jak zabarvit sudý a lichá řádek, barva je jen pro ukázku, pro své praktické potřeby si zvolte svou z RGB palety.

    ' Tip testovat v prázdném listě ' Ať si nepřebarvíte poznámky Dim Rng As Range Dim i As Long Set Rng = Range(Cells(1, 1), Cells(15, 5)) For i = 1 To Rng.Rows.Count If i Mod 2 = 0 Then Rng.Rows(i).Interior.Color = RGB(255, 0, 255) Else Rng.Rows(i).Interior.Color = RGB(255, 255, 0) End If Next i

    Sloupce

    Jak zabarvit sloupec

    Columns(2).Interior.Color = vbYellow '' Lze využít i RGB model pozadí, měnit písma atd.

    Ukázka jak zabarvit sudý a lichá sloupec, barva je jen pro ukázku, pro své praktické potřeby si zvolte svou z RGB palety

    ' Tip testovat v prázdném listě Dim Rng As Range Dim i As Long Set Rng = Range(Cells(1, 1), Cells(5, 5)) For i = 1 To Rng.Columns.Count If i Mod 2 = 0 Then Rng.Columns(i).Interior.Color = RGB(255, 0, 0) Else Rng.Columns(i).Interior.Color = RGB(0, 255, 0) End If Next i

    Informace

    Jak na počet řádků

    Dim Rng As Range Set Rng = Range(Cells(1, 1), Cells(15, 5)) MsgBox (Rng.Rows.Count)

    Jak na počet sloupců

    Dim Rng As Range Set Rng = Range(Cells(1, 1), Cells(15, 5)) MsgBox (Rng.Columns.Count)

    Poznámky pod čarou

    MsgBox ActiveCell.Address MsgBox Cells(5, 2).Row

    Posuny

    Jak u označování řádku a sloupců využít POSUN - Offset

    ' označit řádek o jeden níže Range("H108").EntireRow.Offset(1, 0).Select

    Sloupce

    Range("H108").EntireColumn.Offset(0, 1).Select ' lze místo SELECT použít i Insert .... ' Range("H108").EntireColumn.Offset(0, 1).Insert

    Tipy triky

    Přidávat a mazat řádky sloupce po označení lze Ctrl + +, nebo Ctrl + -

    Označovat řádky a sloupce Ctrl + mezerník a Shift + Mezerník

    Související články

    Pokud se chcete o řídcích a loupcích dozvědět více. Můžete pokračovat například:


    Microsoft Excel VBA - stahuj logo

    Ke stažení

    Soubor ke stažení zdarma je v přípravě.


    Tipy triky

    Závěrem, napadá vás co lze do článku doplnit? Máte nějaký trik co používate? Můžete zmínit v komentařích ať podklady upravím.

    Článek byl aktualizován: 28.05.2019 10:08

    Odměna

    Ušetřil vám tento web čas, peníze? Pomohl vyřešit problém? Jste ochotni poskytnout symbolickou odměnu na další rozvoj? Vybrte si formu odměny, která vám vyhovuje.


    Pavel Lasák - autor webu

    Pavel Lasák

    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ů.

       Pavel Lasák LinkedIn Profil    Pavel Lasák Google+ Profil    Pavel Lasák facebook Profil    Pavel Lasák twitter Profil


    Komentáře zatím nejsou

    Můžete být prvními co zanechají smysluplný komentář.






    Excel


    Sdílejte

    Pomohl Vám návod?
    Sdílejte na Facebooku, G+
    LinkedIn...

    Nové články


    Reklama


    TOPlist Licence Creative Commons webarchiv rss XML

    Stránky o MS Office (Excel) produktu společnosti Microsoft. Neslouží jako technická podpora.
    | Email na autora: pavel.lasak@gmail.com | Copyright © : Pavel Lasák 2004 - 2019 | 293

    Tento web zatím neprošel jazykovou korekturou. Beta verze redakčního systému.