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.
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.
Vastaukset 2
Vanhimmat
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