Excel'de bir sütun veya sütun başlığı filtrelendiyse nasıl vurgulanır?

Birden fazla sütuna sahip bir tablo için, filtrelenmiş sütun için belirgin bir sembol olmadığından, hangi sütunun filtrelendiğini hemen fark etmek kolay değildir. işaret. Eğer filtrelenmiş sütunu bir tabloda öne çıkarmak istiyorsanız, bu makaledeki yöntem size yardımcı olabilir.

VBA kodu ile sütun başlığını veya tüm sütunu filtrelenirse vurgulama

VBA kodu ile sütun başlığını veya tüm sütunu filtrelenirse vurgulama

Aşağıdaki ekran görüntüsünde gösterildiği gibi, bu sütun bir tablo aralığında filtrelendiyse, tüm sütunu veya yalnızca sütun başlığını vurgulamanız gerekiyorsa, lütfen aşağıdaki VBA kodlarını uygulayın.

1. Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına basın.

2. Microsoft Visual Basic for Applications penceresinde, lütfen Ekle > Modül'e tıklayın. Ardından aşağıdaki VBA kodunu Modül penceresine kopyalayın.

VBA kodu: Sütun başlığını, sütun filtrelenirse vurgula

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 filtrelenirse tüm sütunu vurgulamak için lütfen aşağıdaki VBA kodunu Modül penceresine kopyalayıp yapıştırın.

VBA kodu: Tüm sütunu, sütun filtrelenirse vurgula

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. Kodu çalıştırmak için F5 tuşuna basın. Açılan Kutools for Excel iletişim kutusunda, lütfen filtrelenmiş sütun başlığını veya tüm filtrelenmiş sütunu vurgulamak istediğiniz tablonun ilk hücrenini seçin ve ardından Tamam düğmesine tıklayın.

Daha sonra, sütun belirli bir tabloda filtrelendiyse, sütun başlığı veya tüm sütun hemen vurgulanacaktır. Ekran görüntüleri:

Sütun başlığını, sütun tabloda filtrelendiyse vurgulama:

Tüm sütunu, tabloda filtrelendiyse vurgulama:

Kutools AI ile Excel Sihirini Keşfedin

• Akıllı Yürütme: Hücre işlemleri gerçekleştirin, verileri analiz edin ve grafikler oluşturun—tümü basit komutlarla sürülür.
• Özel Formüller: İş akışlarınızı hızlandırmak için özel formüller oluşturun.
• VBA Kodlama: VBA kodunu kolayca yazın ve uygulayın.
• Formül Yorumlama: Karmaşık formülleri kolayca anlayın.
• Metin Çevirisi: Elektronik tablolarınız içindeki dil engellerini aşın.

Yapay zeka destekli araçlarla Excel yeteneklerinizi geliştirin. Şimdi İndirin ve daha önce hiç olmadığı gibi bir verimlilik deneyimi yaşayın!