|
Ve spolupráci se SEDUO jsem vytvořil několik videokurzů:
Jak na kopírování dat v buňkách (oblastech) využitím VBA v Excel.
Potřebujete-li ve VBA využít kopírování dat z buňky (oblasti). Jak na to prakticky se dozvíte v tomto článku. Z důvodu přehlednosti a možnosti rozšiřování a doplňování je rozdělen na jednotlivé kapitoly:
Načíst a vložit hodnotu. Což je mnohdy nejjednodušší a nejrychlejší možnost. Samozřejmě že můžete kromě Value využít i jiné vlastnosti (Value2, Text ...), ale to předpokládám, že už znáte z článku: Načíst hodnotu z buňky.
Pro zopakování a otestování předpokládám dva listy, jeden zdrojový s názvem Zdroj (obsahuje data, ale to asi připomínat nemusím) a druhý cílový s názvem Cil
Worksheets("Cil").Range("A1").Value = Worksheets("Zdroj").Range("A1").Value
Pokud máte oblast můžete využít a nakopírovat do oblasti do které potřebujete:
Worksheets("Cil").Range("A1:H1").Value = Worksheets("Zdroj").Range("A1:H1").Value
Pozor odkážete-li se jen do cílové buňky (a neudáte oblat) vloží se jen tato jedna hodnota
' jen jedna hodnota
Worksheets("Cil").Range("A1").Value = Worksheets("Zdroj").Range("A1:H1").Value
Chcete-li využít metodu Copy
Využitím Copy a Destination
Worksheets("Zdroj").Range("A1").Copy Destination:=Worksheets("Cil").Range("A1")
Využitím Copy a bez Destination (Destination je volitelné)
Worksheets("Zdroj").Range("A1").Copy Worksheets("Cil").Range("A1")Využitím Copy a Destination pro oblast
Worksheets("Zdroj").Range("A1:H1").Copy Destination:=Worksheets("Cil").Range("A1:H1")
lze v cílí zadat jen pravou horní buňku (samozřejmě se nakopíruje celá oblast):
Worksheets("Zdroj").Range("A1:H1").Copy Destination:=Worksheets("Cil").Range("A1")
Bez použití Destination
Worksheets("Zdroj").Range("A1:H1").Copy Worksheets("Cil").Range("A1:H1")
a jen udána "počáteční" buňka cíle
Worksheets("Zdroj").Range("A1:H1").Copy Worksheets("Cil").Range("A1")
Ze sešitu do sešitu
Workbooks("Sesit1.xlsx").Worksheets("List1").Range("A1").Copy _
Workbooks("Sesit2.xlsx").Worksheets("Lisst1").Range("A1")
Pokud máte označenou oblast využitím Select, můžete použít:
Worksheets("Zdroj").Activate
Worksheets("Zdroj").Range("A1").Select
Selection.Copy Worksheets("Cil").Range("A1")
Nebo využít Paste v Select
Range("A1:B10").Copy
Range("E1").Select
ActiveSheet.Paste
Pokud potřebujete speciálně vkládat, například jen formát ;) :
vložení pouze hodnot
Worksheets("Zdroj").Range("A1:H1").Copy
Worksheets("Cil").Range("A1").PasteSpecial xlPasteValues
Formáty
Worksheets("Zdroj").Range("A1:H1").Copy
Worksheets("Cil").Range("A1").PasteSpecial xlPasteFormats
Seznam konstant pro PasteSpecial:
Metodu vyjmout, proberu ještě v samostatném článku.
Range("A:A").Cut Range("B:B")
Application.CutCopyMode = False
Soubor ke stažení zdarma. Soubor je v přípravě.
Něco co zde chybí? Můžete doplnit v komentářích.
Článek byl aktualizován: 19.09.2020 11:07
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.
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ů.
Můžete být prvními co zanechají smysluplný komentář.
Pomohl Vám návod? Sdílejte na Facebooku, G+ |
||
LinkedIn... |
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 - 2021 |