Bagaimana cara menambahkan garis batas di bawah ketika nilai berubah di kolom Excel?
Ada daftar data yang mencakup nilai berulang, dan untuk mengklasifikasikan nilai dengan lebih baik, saya menambahkan garis batas di bawah ketika nilai berubah dalam daftar seperti gambar di bawah ini. Pada artikel ini, saya akan berbicara tentang cara menambahkan garis batas dengan cepat di bawah ketika nilai berubah di kolom Excel.
Tambahkan garis batas di bawah ketika nilai berubah dengan VBA
Tambahkan garis batas di bawah ketika nilai berubah dengan VBA
Jelas, tidak ada fungsi bawaan di Excel yang dapat membantu Anda menambahkan garis batas di bawah ketika nilai berubah, tetapi ada kode VBA yang dapat saya perkenalkan.
1. tekan Alt + F11 kunci untuk mengaktifkan Microsoft Visual Basic untuk Aplikasi jendela.
2. klik Menyisipkan > Modul, dan tempel kode di bawah ini ke skrip kosong module.
VBA: tambahkan garis batas di bawah ketika nilai berubah
Sub AddBorderLineWhenValueChanges()
'UpdatebyExtendoffice20160918
Application.ScreenUpdating = False
Dim LastRow As Long
Dim xrg As Range
LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
For Each xrg In Range("A2:A" & LastRow)
If xrg <> xrg.Offset(1, 0) Then
Range("A" & xrg.Row & ":K" & xrg.Row).Borders(xlEdgeBottom).LineStyle = xlContinuous
End If
Next xrg
Application.ScreenUpdating = True
End Sub
3. tekan F5 kunci untuk menjalankan kode. Kemudian garis batas telah ditambahkan di bawah ketika nilai berubah dalam pemilihan A2: A.
Kutools untuk Excel, dengan lebih dari 300 fungsi praktis, membuat pekerjaan Anda lebih mudah. |
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!