Note: The other languages of the website are Google-translated. Back to English

Jak kopírovat pouze ohraničení vybraného rozsahu v aplikaci Excel?

Při používání aplikace Microsoft Excel je snadné zkopírovat pouze hodnoty buněk, formátování buněk, vzorce buněk atd. Z rozsahu pomocí funkce Vložit jinak. Ale zkusili jste někdy zkopírovat pouze styl ohraničení z rozsahu v aplikaci Excel? Tento článek vám ukáže způsob kopírování pouze okrajů vybraného rozsahu do nového rozsahu v aplikaci Excel.

Zkopírujte pouze ohraničení vybraného rozsahu pomocí kódu VBA


Zkopírujte pouze ohraničení vybraného rozsahu pomocí kódu VBA

Následující kód VBA vám pomůže pouze zkopírovat styl ohraničení vybraných buněk a poté použít tento styl ohraničení na nový rozsah v aplikaci Excel. Postupujte prosím následovně.

1. zmáčkni Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modula poté zkopírujte a vložte níže uvedený kód VBA do okna Kód.

Kód VBA: Zkopírujte pouze ohraničení vybraného rozsahu v aplikaci Excel

Sub CopyBorders()
'Updated by Extendoffice 20211203
    Dim xRg, yRg As Range
    On Error Resume Next
    
    Set xRg = Application.InputBox("Select Range with Borders to Copy...", "Kutools For Excel", , , , , , 8)
    Set yRg = Application.InputBox("Select Cell to Apply Borders to range..", "Kutools For Excel", , , , , , 8)
    
    
    With yRg.Borders(xlEdgeLeft)
        .LineStyle = xRg.Borders(xlEdgeLeft).LineStyle
        .ColorIndex = xRg.Borders(xlEdgeLeft).ColorIndex
        .TintAndShade = xRg.Borders(xlEdgeLeft).TintAndShade
        .Weight = xRg.Borders(xlEdgeLeft).Weight

    End With
    With yRg.Borders(xlEdgeTop)
        .LineStyle = xRg.Borders(xlEdgeTop).LineStyle
        .ColorIndex = xRg.Borders(xlEdgeTop).ColorIndex
        .TintAndShade = xRg.Borders(xlEdgeTop).TintAndShade
        .Weight = xRg.Borders(xlEdgeTop).Weight
    End With
    With yRg.Borders(xlEdgeBottom)
        .LineStyle = xRg.Borders(xlEdgeBottom).LineStyle
        .ColorIndex = xRg.Borders(xlEdgeBottom).ColorIndex
        .TintAndShade = xRg.Borders(xlEdgeBottom).TintAndShade
        .Weight = xRg.Borders(xlEdgeBottom).Weight
    End With
    With yRg.Borders(xlEdgeRight)
        .LineStyle = xRg.Borders(xlEdgeRight).LineStyle
        .ColorIndex = xRg.Borders(xlEdgeRight).ColorIndex
        .TintAndShade = xRg.Borders(xlEdgeRight).TintAndShade
        .Weight = xRg.Borders(xlEdgeRight).Weight
    End With

    With yRg.Borders(xlInsideHorizontal)
        .LineStyle = xRg.Borders(xlInsideHorizontal).LineStyle
        .ColorIndex = xRg.Borders(xlInsideHorizontal).ColorIndex
        .TintAndShade = xRg.Borders(xlInsideHorizontal).TintAndShade
        .Weight = xRg.Borders(xlInsideHorizontal).Weight
    End With
    With yRg.Borders(xlInsideVertical)
        .LineStyle = xRg.Borders(xlInsideVertical).LineStyle
        .ColorIndex = xRg.Borders(xlInsideVertical).ColorIndex
        .TintAndShade = xRg.Borders(xlInsideVertical).TintAndShade
        .Weight = xRg.Borders(xlInsideVertical).Weight
    End With
End Sub

3. zmáčkni F5 klíč ke spuštění kódu. V prvním vyskakování Kutools pro Excel V dialogovém okně vyberte rozsah s okraji, který chcete zkopírovat, a poté klikněte na ikonu OK .

4. Ve druhé Kutools pro Excel V dialogovém okně vyberte buňku, na kterou se má použít zkopírovaný okraj, a klikněte na ikonu OK knoflík. Viz screenshot:

Pak můžete vidět, že se pouze zkopíruje styl ohraničení vybraného rozsahu a použije se na nový rozsah, jak je uvedeno níže.


Související články:


Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2021 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
officetab dno
Komentáře (6)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Kód také zkopíroval moje číselné formáty a přepsal ty v cílových buňkách. Možná jsem udělal něco špatně?
Tento komentář byl moderátorem webu minimalizován
Ahoj Davide,
V mém případě kód pouze zkopíruje hranice do cílových buněk. Můžete mi říct svou verzi Excelu? Děkuji za váš komentář.
Tento komentář byl moderátorem webu minimalizován
Ahoj krystale,
Vím, že je to více než rok poté, ale kvůli rehostingu mého e-mailového systému se vaše otázka dostala na začátek mé schránky.
Moje verze Excelu je 2016 16.0.4993.1001, jak uvádí Účet>O aplikaci
Tento komentář byl moderátorem webu minimalizován
Ahoj Davide,
Jsem rád, že dostáváte odpověď. Testoval jsem kód ve svém Excelu 2016, ale stále kopíruje pouze ohraničení. Nevadilo by vám poslat kopii vašich dat na zxm@addin99.com? Omluvám se za nepříjemnost.
Tento komentář byl moderátorem webu minimalizován
Dobrý je,

Děkuji za pomoc s kopírováním pouze ohraničení.
Šlo by
Děkuji.
Jirka
Tento komentář byl moderátorem webu minimalizován
Dobrý den, moc mě baví makro pro kopírování los Bordes, ale kopíruje mě bordes borra el formato que tienen las celtas es decir borra colores y otros formatos que ya tiene la celda. me puedes ayudar con una macro que me permita copiar los bordes de otra celta a otra sin borrar el formato que tiene la celda de destino?
Zatím zde nejsou žádné komentáře

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL