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

Hogyan lehet csak a kijelölt tartomány határait másolni az Excelben?

A Microsoft Excel használata közben a Másolás beillesztése funkcióval egyszerűen csak a cellák értékeit, a cellák formázását, a cellaképleteket stb. De próbált-e már csak a szegélystílust másolni az Excel tartományából? Ez a cikk bemutatja azt a módszert, hogy csak a kijelölt tartomány határait másolja az Excel új tartományába.

Csak a kijelölt tartomány határainak másolása VBA kóddal


Csak a kijelölt tartomány határainak másolása VBA kóddal

A következő VBA-kód csak a kijelölt cellák szegélystílusának másolásában segíthet, majd ezt a szegélystílust alkalmazhatja az Excel új tartományára. Kérjük, tegye a következőket.

1. megnyomni a más + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modulok, majd másolja és illessze be az alábbi VBA kódot a Kód ablakba.

VBA kód: Csak a kijelölt tartomány határainak másolása az Excelben

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. megnyomni a F5 gombot a kód futtatásához. Az első felbukkanó Kutools az Excel számára párbeszédpanelen válassza ki a másolandó szegélyekkel rendelkező tartományt, majd kattintson a gombra OK gombot.

4. A másodikban Kutools az Excel számára párbeszédpanelen válasszon egy cellát a másolt szegély alkalmazásához, majd kattintson a gombra OK gomb. Lásd a képernyőképet:

Ekkor láthatja, hogy a kiválasztott tartomány csak a szegélystílusát másolja és alkalmazza egy új tartományra, az alábbi képernyőképen.


Kapcsolódó cikkek:


A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (6)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
A kód a numerikus formátumaimat is átmásolta, és felülírta a célcellákban lévőket. Lehet, hogy valamit rosszul csináltam?
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia David,
Az én esetemben a kód csak a szegélyeket másolja be a célcellákba. Meg tudnád mondani az Excel verziód? Köszönjük észrevételét.
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia kristály,
Tudom, hogy ennek több mint egy évvel később, de az e-mail rendszerem újratelepítése miatt kérdése a beérkező levelem tetejére került.
Az Excel verzióm 2016 16.0.4993.1001, a Fiók>Névjegy jelentése szerint
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia David,
Örülök a válaszának. Kipróbáltam a kódot az Excel 2016-ban, de továbbra is csak a szegélyt másolja. Nem bánja, ha másolatot küld adatairól a zxm@addin99.com címre? Elnézést a kellemetlenségért.
A weboldal moderátora ezt a megjegyzést minimalizálta
Helló

Děkuji za pomoc s kopírováním pouze ohraničení.
Slo by
Köszönöm.
Jirka
A weboldal moderátora ezt a megjegyzést minimalizálta
Hola me gusto mucho al macro para copiar los Bordes, pero al copiar los bordes me 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 allowa copiar los bordes de otra celta a otra sin borrar el formato que tiene la celda de destino?
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi