Excel'de filtrelenmişse sütun veya sütun başlığı nasıl vurgulanır?
Birden çok sütunu olan bir tablo için, hangi sütunun filtrelendiğini bir bakışta bulmak kolay değildir, çünkü filtrelenmiş sütun için açık bir sembol yoktur. işaret. Filtrelenmiş sütunu bir tabloda olağanüstü hale getirmek istiyorsanız, bu makaledeki bir yöntem size yardımcı olabilir.
VBA koduyla filtrelenmişse sütun başlığını veya tüm sütunu vurgulayın
VBA koduyla filtrelenmişse sütun başlığını veya tüm sütunu vurgulayın
Aşağıda gösterilen ekran görüntüsü gibi, tüm sütunu veya yalnızca bu sütun bir tablo aralığında filtrelendiyse yalnızca sütun başlığını vurgulamanız gerekir, lütfen aşağıdaki VBA kodlarını uygulayın.
1. Tuşuna basın. Ara Toplam + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. Uygulamalar için Microsoft Visual Basic penceresinde, lütfen tıklayın Ekle > modül. Ardından aşağıdaki VBA kodunu Modül penceresine kopyalayın.
VBA kodu: Sütun filtrelendiyse sütun başlığını vurgulayın
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
Bir tabloda filtrelenmişse tüm sütunu vurgulamak için lütfen aşağıdaki VBA kodunu kopyalayıp Modül penceresine yapıştırın.
VBA kodu: Filtrelenmişse tüm sütunu vurgulayın
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. Tuşuna basın. F5 kodu çalıştırmak için anahtar. Haşhaşta Kutools for Excel iletişim kutusu, lütfen filtrelenmiş sütun başlığını veya filtrelenmiş sütunun tamamını vurgulamak için ihtiyacınız olan tablonun ilk hücresini seçin ve ardından OK düğmesine basın.
Ardından, sütun belirli bir tabloda filtrelenmişse, sütun başlığı veya tüm sütun hemen vurgulanacaktır. Ekran görüntülerine bakın:
Tabloda sütun filtrelendiyse, sütun başlığını vurgulayın:
Tabloda filtrelenmişse tüm sütunu vurgulayın:
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!