Bagaimana cara menyorot tajuk kolom atau kolom jika disaring di Excel?
Untuk tabel dengan banyak kolom, tidak mudah untuk mengetahui kolom mana yang difilter secara sekilas karena tidak ada simbol yang jelas untuk kolom yang difilter kecuali untuk a menandai. Jika Anda ingin membuat kolom yang difilter menonjol dalam sebuah tabel, metode dalam artikel ini dapat membantu Anda.
Sorot header kolom atau seluruh kolom jika difilter dengan kode VBA
Sorot header kolom atau seluruh kolom jika difilter dengan kode VBA
Seperti gambar di bawah ini yang ditampilkan, Anda perlu menyorot seluruh kolom atau hanya tajuk kolom jika kolom ini difilter dalam rentang tabel, harap terapkan kode VBA berikut.
1. tekan lain + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Di jendela Microsoft Visual Basic for Applications, klik Menyisipkan > Modul. Kemudian salin kode VBA di bawah ini ke jendela Modul.
Kode VBA: Sorot header kolom jika kolom difilter
Sub HighLightTitle()
'Updated by Extendoffice 2017/9/12
Dim xRg As Range
Dim I As Integer
Dim xCount As Long
Dim xRgCol As Long
Dim xAddress As String
Dim xFilterCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the first cell of the table range:", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
xRg.Select
With xRg(1).Parent.AutoFilter
xFilterCount = .Range.Columns.Count
xRgCol = xRg.Offset(1).Column - .Range.Column + 1
For I = xRgCol To xFilterCount
xCount = xRg.Offset(, I - xRgCol).Column - .Range.Column + 1
With .Filters(xCount)
If .On Then
xRg.Offset(, I - xRgCol).Interior.Color = 16736553
End If
End With
Next
End With
End Sub
Untuk menyorot seluruh kolom jika difilter dalam tabel, harap salin dan tempel kode VBA di bawah ini ke jendela Modul.
Kode VBA: Sorot seluruh kolom jika difilter
Sub HighLightCols()
'Updated by Extendoffice 2017/9/12
Dim xRg As Range
Dim xCount As Long
Dim xRgCol As Long
Dim xAddress As String
Dim xRgFilter As Range
Dim xFilterCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the first cell of the table range:", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
xRg.Select
With xRg(1).Parent.AutoFilter
xFilterCount = .Range.Columns.Count
xRgCol = xRg(1).Column - .Range.Column + 1
For I = xRgCol To xFilterCount
xCount = xRg.Offset(, I - xRgCol).Column - .Range.Column + 1
With .Filters(xCount)
Set xRgFilter = xRg.Offset(, I - xRgCol).Parent.AutoFilter.Range.Columns(xCount)
If .On Then
xRgFilter.Interior.Color = 16736553
End If
End With
Next
End With
End Sub
3. tekan F5 kunci untuk menjalankan kode. Dalam bermunculan Kutools untuk Excel kotak dialog, pilih sel pertama dari tabel yang Anda perlukan untuk menyorot tajuk kolom yang difilter atau seluruh kolom yang difilter, lalu klik OK .
Kemudian tajuk kolom atau seluruh kolom akan langsung disorot jika kolom difilter dalam tabel tertentu. Lihat tangkapan layar:
Sorot tajuk kolom jika kolom difilter dalam tabel:
Sorot seluruh kolom jika difilter di tabel:
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!