Bagaimana cara mempertahankan garis kisi sambil mengisi warna di Excel?
Seperti yang kita semua ketahui, ketika kita mengisi warna latar belakang ke sel, garis kisi akan tercakup juga, dalam hal ini, bagaimana kita bisa mempertahankan garis kisi sambil mengisi warna latar belakang di sel Excel untuk menampilkan tangkapan layar berikut.
Pertahankan garis kisi sambil mengisi warna dengan kode VBA
Pertahankan garis kisi sambil mengisi warna dengan kode VBA
Biasanya, tidak ada cara langsung bagi kami untuk menyelesaikan pekerjaan ini, tetapi, di sini, saya dapat memperkenalkan kode VBA untuk Anda. Harap lakukan sebagai berikut:
1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Di kiri Proyek-VBAProject panel, klik dua kali Buku Kerja Ini di bawah diperluas Proyek VBA, lalu salin dan tempel kode VBA berikut ke dalam Modul kosong:
Kode VBA: pertahankan garis kisi sambil mengisi warna
Dim xRgPre As Range
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
If Not xRgPre Is Nothing Then DrawBorders xRgPre
Set xRgPre = Target
End Sub
Private Sub DrawBorders(ByVal Rg As Range)
'Updateby Extendoffice 20160725
Dim xCell As Range
Application.ScreenUpdating = False
For Each xCell In Rg
If xCell.Interior.ColorIndex = xlNone Then
With xCell.Borders
If .ColorIndex = 15 Then
.LineStyle = xlNone
End If
End With
Else
With xCell.Borders
If .LineStyle = xlNone Then
.Weight = xlThin
.ColorIndex = 15
End If
End With
End If
Next
Application.ScreenUpdating = True
End Sub
3. Dan kemudian simpan dan tutup jendela kode, sekarang, saat Anda mengisi warna untuk rentang sel, garis kisi akan ditampilkan secara otomatis.
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!