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

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:


Alat Produktivitas Kantor Terbaik

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2019 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
tab kte 201905

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.
  • Tingkatkan produktivitas Anda hingga 50%, dan kurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (6)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Kode juga menyalin format numerik saya dan menimpanya di sel target. Mungkin saya melakukan sesuatu yang salah?
Komentar ini diminimalkan oleh moderator di situs
Hi David,
Dalam kasus saya, kode hanya menyalin batas ke sel target. Bisakah Anda memberi tahu saya versi Excel Anda? Terima kasih atas komentarmu.
Komentar ini diminimalkan oleh moderator di situs
Halo kristal,
Saya tahu ini lebih dari setahun kemudian, tetapi karena rehosting sistem email saya, pertanyaan Anda naik ke bagian atas kotak masuk saya.
Versi Excel saya adalah 2016 16.0.4993.1001 seperti yang dilaporkan oleh Akun> Tentang
Komentar ini diminimalkan oleh moderator di situs
Hi David,
Senang menerima balasan Anda. Saya telah menguji kode di Excel 2016, tetapi masih menyalin perbatasan saja. Apakah Anda keberatan mengirim salinan data Anda ke zxm@addin99.com? Maaf untuk ketidaknyamanannya.
Komentar ini diminimalkan oleh moderator di situs
Dobrý's,

Děkuji za pomoc s kopírováním pouze ohraničení.
lo by
Terima kasih
Jirka
Komentar ini diminimalkan oleh moderator di situs
Hola me gusto mucho al macro para copiar los Bordes, pero al copiar los bordes me borra el format 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 format que tiene la celda de destino?
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan