Les galetes ens ajuden a lliurar els nostres serveis. En utilitzar els nostres serveis, accepteu el nostre ús de cookies.
Consell: altres idiomes es tradueixen en Google. Pots visitar el English versió d'aquest enllaç.
Iniciar Sessió
x
or
x
x
Registre
x

or

Com es pot destacar l'encapçalament de columna o columna si es filtra a Excel?

Per a una taula amb diverses columnes, no és fàcil esbrinar quina columna es filtra d'un cop d'ull ja que no hi ha un símbol obvi per a la columna filtrada, tret d'un senyal. Si voleu que la columna filtrada es destaqui en una taula, un mètode en aquest article us pot ajudar.

Ressalteu l'encapçalament de la columna o la columna sencera si es filtra amb el codi VBA


Ressalteu l'encapçalament de la columna o la columna sencera si es filtra amb el codi VBA


A continuació, com es mostra la captura de pantalla, heu de destacar tota la columna o només l'encapçalament de columna si aquesta columna es filtra en un interval de taula, si us plau, apliqueu els codis VBA següents.

1. Premeu el botó Alt + F11 claus per obrir el Microsoft Visual Basic per a aplicacions finestra.

2. A la finestra de Microsoft Visual Basic per a aplicacions, feu clic a Insereix > Mòduls. A continuació, copieu el codi VBA següent a la finestra Mòdul.

Codi VBA: ressaltar encapçalament de columna si la columna es filtra

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

Per ressaltar la columna sencera si es filtra en una taula, copieu i enganxeu el codi VBA següent a la finestra Mòdul.

Codi VBA: ressalta la columna sencera si es filtra

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. Premeu el botó F5 clau per executar el codi. En el popping up Kutools for Excel quadre de diàleg, seleccioneu la primera cel·la de la taula que necessiteu per ressaltar l'encapçalament de la columna filtrada o la columna filtrada sencera i feu clic a la OK botó.

A continuació, l'encapçalament de la columna o la columna sencera es ressaltarà immediatament si la columna es filtra en una determinada taula. Veure captures de pantalla:

Ressaltar l'encapçalament de la columna si la columna es filtra a la taula:

Ressalteu la columna sencera si es filtra a la taula:



Eines de productivitat recomanades

Pestanya d'Office

estrella d'or1 Porteu les pestanyes pràctiques a l'Excel i a un altre programari d'Office, igual que Chrome, Firefox i el nou Internet Explorer.

Kutools for Excel

estrella d'or1 Increïble! Incrementeu la productivitat en 5 minuts. No necessites cap habilitat especial, estalvieu dues hores cada dia.

estrella d'or1 300 Noves característiques per a Excel, Excel molt fàcil i potent:

  • Combina cel·les / files / columnes sense perdre dades.
  • Combina i consolida diverses fulles i llibres.
  • Comparar intervals, copiar diversos rangs, convertir text a data, unitat i conversió de divises.
  • Compte per colors, subtotals de paginació, classificació avançada i filtre súper,
  • Més Seleccioneu / Insereix / Suprimeix / Text / Format / Enllaç / Comentari / Llibres / Eines de full de càlcul ...

Tret de pantalla de Kutools per a Excel

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 · 1 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 · 18 days 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.