Auto filter

asiasta tietämätön

Hei!

Tietääkö kukaan, saako "autofilteröintiflägin" värin muutettua? Nyt se on sininen ja vaikea havaita, mikä sarake on suodatettu ja mikä ei.
Kiitos, jos joku tietää mitä tarkoitan ja osaa sanoa voiko värin muuttaa vai ei.

2

313

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • googlaili

      niin vastaus tuntuu olevan ettei sitä voi vaihtaa...

      • mutta voihan suodatettavan kentän otsikkorivin vaihtaa helposti...
        alla oleva koodi vaatii jonkun excelin VOLATILE funktion käyttämistä ko taulukossa
        jaa, että mitä ne VOLATILE funktiot on? Jääköön se lukijan selvitettäväksi, mutta lisää taulukkoosi johonkin soluun kaavaksi esim lontoonkielellä =TODAY tai suomiversiossa =TÄMÄ.PÄIVÄ() niin allaoleva koodi toimii...
        eli koodi muuttaa suodatetun kentän taustavärin nyt keltaiseksi, joten sen ainakin huomaa

        taulukon moduuliin...

        Private Sub Worksheet_Calculate()
        Dim SuodatusRivi As Integer
        Dim laskuri As Integer
        Dim Kentat As Integer
        On Error Resume Next
        Application.EnableEvents = False
        SuodatusRivi = Me.AutoFilter.Range.Row
        Kentat = Me.AutoFilter.Filters.Count
        Range(Cells(SuodatusRivi, 1), Cells(SuodatusRivi, Kentat)).Interior.ColorIndex = xlNone
        If ActiveSheet.FilterMode = True Then
        For laskuri = 1 To Kentat
        If ActiveSheet.AutoFilter.Filters.Item(laskuri).On Then
        'nyt keltainen muuta allaolevaa numeroa
        Cells(SuodatusRivi, laskuri).Interior.ColorIndex = 6
        End If
        Next laskuri
        End If
        Application.EnableEvents = True
        On Error GoTo 0
        End Sub


    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Kuka oli töllöntyön tekijä?

      Ketä on nyt pidätetty? Oliko syy mustasukkaisuus tyttöystävästä tai oliko muita lieventäviä seikkoja? Katuuko tekijä nyt
      Pieksämäki
      41
      4618
    2. Kotikasvatus siitä se lähtee eli missä meni vikaan että lapsesta tuli puukottaja

      Ottakaa muut oppia, normaali kotielämä. Ei liikaa edes hengellisyyttä.
      Pieksämäki
      53
      2504
    3. Jenkkilahkojen kastekaava

      Jenkkilahkojen yhteinen kastekaava on kirjoitettuna Mormonin Kirjaan, Moroni, luku-8 Pienten lapsien vanhempia uhataan
      Kaste
      139
      1014
    4. Pasi Turunen: Ensimmäisenä Helluntaina ei kastettu sylivauvoja!

      Tänään 31.5.2026 Pasi Turunen noin vastasi soittajan kysymykseen! Raamattu EI KERRO ketä kastettiin
      Kaste
      161
      995
    5. Odotan sitä hetkeä

      kun nähdään taas. Tiedän, että sinäkin odotat. Kun se päivä koittaa, katseesi hakee minua. Ehkä arkailemme toisiamme väh
      Ikävä
      68
      879
    6. Leijonat Maailmanmestareita!

      Ihanaa Leijonat, ihanaa!!!
      Maailman menoa
      113
      868
    7. Olen melko vakuuttunut

      etten tule olemaan koskaan täysin onnellinen ilman sinua. En uskonut, että näin kävisi kenenkään kanssa. Kunnes sain kok
      Ikävä
      70
      844
    8. Mitä ajatuksia miehet, jos..?

      Nainen on 40v eikä ole omia lapsia?
      Ikävä
      137
      795
    9. Se mies rakastaa minua

      Ja minä rakastan häntä. 😌
      Ikävä
      48
      780
    10. Taas mietin että

      mitä ihmettä sanoisin, jos laittaisin viestiä. Aina voi toivottaa jotain, vaikka hyvää kesää, ja jos ei tule vastausta,
      Ikävä
      48
      726
    Aihe