İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Exceldə süzülürsə sütun və ya sütun başlığını necə göstərmək olar?

Bir neçə sütunlu bir masa üçün bir bakışta hansı sütunun filtrelendiğini tapmaq asan deyil, çünki süzülmüş sütun üçün açıq bir simge yoxdur marka. Süzülmüş sütunu bir masada üstün etmək istəyirsinizsə, bu yazıda bir üsul sizə kömək edə bilər.

VBA koduyla süzülsə sütun başlığını və ya bütün sütunu vurun


VBA koduyla süzülsə sütun başlığını və ya bütün sütunu vurun


Aşağıda göstərilən ekran göründüyü kimi, bu sütun bir masa aralığında süzülürsə, bütün sütunu və ya yalnız sütun başlığını vurğulamalısınız, aşağıdakı VBA kodlarını tətbiq edin.

1. Basın Dayandırmaq + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. Microsoft Visual Basic for Applications proqramı penceresinde, klikləyin Taxmaq > Modules. Aşağıdakı VBA kodunu Modul pəncərəsinə kopyalayın.

VBA kodu: Sütun süzgəcinə sütun başlığını vurun

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

Bütün sütunları bir sütunda süzdükdə işıqlandırmaq üçün, aşağıdakı VBA kodunu Module pəncərəsinə köçürün və yapışdırın.

VBA kodu: Süzgəc olunarsa bütün sütunu vurun

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. Basın F5 kodunu çalıştırmak üçün düyməsini basın. Popping up Excel üçün Kutools informasiya qutusundan, süzülmüş sütun başlığını və ya bütün süzülmüş sütunu vurğulamağınız üçün lazım olan masanın ilk hüceyrəsini seçin və sonra OK düyməsini basın.

Sonra sütun müəyyən bir masada süzülürsə, sütun başlığı və ya bütün sütun dərhal vurğulanacaq. Ekranlara baxın:

Sütun masaya süzülsə sütun başlığını vurun:

Cədvəldə süzgəc olunarsa bütün sütunu vurun:



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    MakeItSimple · 3 months ago
    this would be fantastic for me, but I couldn't make it work. I used the code to color the whole column. when I filtered the first time, the column turned blue. however when I cleared the filter, the blue remained. Afterwards, filtering another column had no effect. so at the moment I am left with one blue column. using latest Excel of Office 365.
    • To post as a guest, your comment is unpublished.
      crystal · 2 months ago
      Hi,
      Thank you for your comment.
      The problem you mentioned is too complicated to acheive now. We will try our best to solve it as soon as possible and let you know after we figure it out.