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

Conas teorainneacha de raon roghnaithe a chóipeáil in Excel amháin?

Agus Microsoft Excel á úsáid agat, is furasta luachanna cille, formáidiú cille, foirmlí cille agus mar sin de a chóipeáil ó raon leis an bhfeidhm Greamaigh Speisialta. Ach an ndearna tú iarracht riamh stíl teorann a chóipeáil ó raon in Excel? Taispeánfaidh an t-alt seo duit an modh chun teorainneacha de raon roghnaithe a chóipeáil go raon nua in Excel.

Cóipeáil teorainneacha den raon roghnaithe amháin le cód VBA


Cóipeáil teorainneacha den raon roghnaithe amháin le cód VBA

Is féidir leis an gcód VBA seo a leanas cabhrú leat ach stíl teorann na gcealla roghnaithe a chóipeáil, agus ansin an stíl teorann seo a chur i bhfeidhm ar raon nua in Excel. Déan mar a leanas le do thoil.

1. Brúigh an Eile + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil Ionsáigh > Modúil, agus ansin an cód VBA thíos a chóipeáil agus a ghreamú isteach i bhfuinneog an Chóid.

Cód VBA: Cóipeáil teorainneacha den raon roghnaithe in Excel amháin

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. Brúigh an F5 eochair chun an cód a rith. Sa chéad popping suas Kutools le haghaidh Excel bosca dialóige, roghnaigh an raon le teorainneacha a theastaíonn uait a chóipeáil, agus ansin cliceáil ar an OK cnaipe.

4. Sa dara ceann Kutools le haghaidh Excel bosca dialóige, roghnaigh cill le do thoil chun an teorainn chóipeáilte a chur i bhfeidhm, ansin cliceáil ar an OK cnaipe. Féach an pictiúr:

Ansin ní fheiceann tú ach go ndéantar stíl teorann an raoin roghnaithe a chóipeáil agus a chur i bhfeidhm ar raon nua mar atá thíos an pictiúr a thaispeántar.


Earraí gaolmhara:


Na hUirlisí Táirgiúlachta Oifige is Fearr

Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%

  • Athúsáid: Cuir isteach go tapa foirmlí casta, cairteacha agus aon rud a d'úsáid tú roimhe seo; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
  • Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
  • Cumaisc Cealla / Sraitheanna / Colúin gan Sonraí a chailleadh; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna / Colúin Dúblacha... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
  • Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
  • Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
  • Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
  • Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
  • Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
  • Níos mó ná 300 gné chumhachtach. Tacaíonn Office / Excel 2007-2021 agus 365. Tacaíonn sé le gach teanga. Imscaradh éasca i d'fhiontar nó d'eagraíocht. Gnéithe iomlána triail saor in aisce 30-lá. Ráthaíocht airgid ar ais 60-lá.
cluaisín kte 201905

Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
bun officetab
Sórtáil tuairimí de réir
Comments (6)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Chóipeáil an cód mo chuid formáidí uimhriúla freisin agus scríobh sé iad siúd sna spriocchealla. B'fhéidir go ndearna mé rud éigin mícheart?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi David,
I mo chás, ní chóipeáil an cód ach na teorainneacha isteach sna spriocchealla. An féidir leat do leagan Excel a insint dom? Go raibh maith agat as do thuairim.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit criostail,
Tá a fhios agam go bhfuil sé seo níos déanaí ná bliain níos déanaí, ach mar gheall ar athóstáil ar mo chóras ríomhphoist, d'ardaigh do cheist go barr mo bhosca isteach.
Is é mo leagan Excel 2016 16.0.4993.1001 mar a tuairiscíodh ag Cuntas>Maidir le
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi David,
Sásta do fhreagra a fháil. Tá tástáil déanta agam ar an gcód i mo Excel 2016, ach fós cóipeáil sé an teorainn amháin. An miste leat cóip de do shonraí a sheoladh chuig zxm@addin99.com? Leithscéal as an míchaoithiúlacht.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dobrý den,

Děkuji za pomoc s kopírováním pouze ohraničení.
Šlo le
Go raibh maith agat.
Jirka
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hola me gusto mucho al macra do copiar los Bordes, pero al copiar los borderes me borra el formato que tienen las celtas es decir borra colores agus otros formatos que ya tiene la celda. me puedes ayudar con una macra cé mé a cheadú cóipar los bordes de otra celta a otra sin borrar el formato que tiene la celda de destino?
Níl aon tráchtanna curtha suas anseo go fóill

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL