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:
- Conas luachanna a scipeáil agus a ghreamú de dhúbailtí gan bacadh in Excel?
- Conas sonraí cealla a chóipeáil le airde as a chéile agus leithead colún in Excel?
- Conas cill a chóipeáil mar luach téacs seachas mar fhoirmle in Excel?
- Conas sonraí a chóipeáil go dtí an chéad tsraith folamh eile de bhileog oibre eile in Excel?
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
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á!