Bagaimana cara menyalin hanya batas rentang yang dipilih di Excel?
Saat menggunakan Microsoft Excel, mudah untuk menyalin hanya nilai sel, pemformatan sel, rumus sel, dan sebagainya dari rentang dengan fungsi Tempel Spesial. Tapi pernahkah Anda mencoba menyalin hanya gaya batas dari rentang di Excel? Artikel ini akan menunjukkan kepada Anda metode menyalin hanya batas rentang yang dipilih ke rentang baru di Excel.
Salin hanya batas rentang yang dipilih dengan kode VBA
Salin hanya batas rentang yang dipilih dengan kode VBA
Kode VBA berikut bisa membantu Anda hanya menyalin gaya batas sel yang dipilih, lalu menerapkan gaya batas ini ke rentang baru di Excel. Silakan lakukan sebagai berikut.
1. tekan lain + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Dalam Microsoft Visual Basic untuk Aplikasi window, klik Menyisipkan > Modul, lalu salin dan tempel kode VBA di bawah ini ke jendela Kode.
Kode VBA: Salin hanya batas rentang yang dipilih di 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. tekan F5 kunci untuk menjalankan kode. Dalam bermunculan pertama Kutools untuk Excel kotak dialog, pilih rentang dengan batas yang perlu Anda salin, lalu klik OK .
4. Di kedua Kutools untuk Excel kotak dialog, pilih sel untuk menerapkan batas yang disalin, lalu klik OK tombol. Lihat tangkapan layar:
Kemudian Anda dapat melihat hanya gaya batas rentang yang dipilih yang disalin dan diterapkan ke rentang baru seperti gambar di bawah ini.
Terkait artikel:
- Bagaimana cara menyalin dan menempelkan nilai yang melewatkan duplikat di Excel?
- Bagaimana cara menyalin data sel dengan tinggi baris dan lebar kolom di Excel?
- Bagaimana cara menyalin sel sebagai nilai teks bukan rumus di Excel?
- Bagaimana cara menyalin data ke baris kosong berikutnya dari lembar kerja lain di Excel?
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!