Moi.
Minulla on 1 rivillä päivämääriä, ja sen alla soluja eri väreillä.
Miten saan napin autofiltertoiminnon toimimaan siten että se suodattaa tämän päivän kohdan tietyllä värillä olevat rivit?
Sain sillä tavalla toimimaan että sarakenumero on tietty (Field:=8)
Miten saan sen että nappi valitsee tämän päivän kohdalta sarakkeen (esim. AA1) ja suodattaa siitä punaisella värillä olevat solut (eli Field: ( tilalle AA1 vaastaava sarake tänään, huomenna AB1 sarake, jne
Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
On Error Resume Next
ActiveSheet.Range("$A$8:$CDZ$95").AutoFilter Field:=8, Criteria1:=RGB(255, 0 _
, 0), Operator:=xlFilterCellColor
Else
On Error Resume Next
ActiveSheet.Shapes.Range(Array("ToggleButton1")).Select
ActiveSheet.Range("$A$8:$CDZ$95").AutoFilter Field:=8
End If
End Sub
Autofilter Field kohtaan kaava
6
325
Vastaukset
automaatisesti löydät sarakkeen VBA:ssa
Application.WorksheetFunction.Match(cdbl(Date), Range("8:8"))
Keep EXCEling
@Kunde- yks.kysymys
Kyseessä on siis aikataulu, jossa eri tapahtumien soluja eri väreillä
Siis päivämäärät ovat rivillä 1
tapahtumat ovat alla olevilla riveillä vuoden ajalta, eli sarakkeet B:NB
Tarkoitin sellaista toimintoa että nappia alas painamalla näkyisi vain tämän päivän kohdalla vaikkapa punaisella värillä merkityt tapahtumat, eli valitaan sarakke tämän päivän kohdalta, ja siitä sarakkeesta suodatetaan punaiset solut eri riveiltä.
Sain tehtyä napin joka hakee tämän päivän mutta että samalla napilla vielä samalla suodattaisi värin mukaan... jos antamasi kaava toimii niin kuten sanoin postauksessani löydät oikean sarakkeen ko päivänä
Application.WorksheetFunction.Match(cdbl(Date), Range("8:8"))...
lisättynä toimivaan koodiisi
Private Sub ToggleButton1_Click()
On Error Resume Next
If ToggleButton1.Value = True Then
ActiveSheet.Range("$A$8:$CDZ$95").AutoFilter Field:=Application.WorksheetFunction.Match(CDbl(Date), Range("1:1")), Criteria1:=RGB(255, 0 _
, 0), Operator:=xlFilterCellColor
Else
ActiveSheet.Shapes.Range(Array("ToggleButton1")).Select
ActiveSheet.Range("$A$8:$CDZ$95").AutoFilter Field:=Application.WorksheetFunction.Match(CDbl(Date), Range("1:1"))
End If
End Sub
Keep EXCEling
@Kunde- yks.kysymys
Kiitos.
Saisiko vielä suodatusta niin että se valitsisi kaikki muut värit paitsi valkoisen.
En saanut erisuuri merkkiä (<>) toimimaan = merkin tilalla - yks.kysymys
Tällainen koodi ei siis toimi:
Criteria1:<>RGB(255, 255, 255), Operator:=xlFilterCellColor
Mikä toimisi jotta suodattaisi muut paitsi valkoiset?
- Kundepuu
väreillä hiukan vaikeempaa, mutta lisäämällä apusarakkeen ja siihen koodaamalla värikoodit ja arvojen perusteella voi sitten suodattaa(-4142 on ei täyttöä ja värit sitten positiivisiä) , eli nyt lisäsin CEA sarakkeen suodatusalueeseen ja sitä hyödynsin... ;-)
muuta tarvittaessa sarake koodiin
sarake CAE on Field:=2159
Private Sub ToggleButton1_Click()
Dim Sarake As Long
Dim i As Long
On Error Resume Next
If ToggleButton1.Value = True Then
Range("CEA:CEA") = ""
Sarake = Application.WorksheetFunction.Match(CDbl(Date), Range("1:1"))
For i = 9 To 95
Range("CEA" & i) = Cells(i, Sarake).Interior.ColorIndex
Next
ActiveSheet.Range("$A$8:$CEA$95").AutoFilter Field:=2159, Criteria1:=">0"
Else
ActiveSheet.Shapes.Range(Array("ToggleButton1")).Select
ActiveSheet.Range("$A$8:$CEA$95").AutoFilter Field:=Sarake
End If
End Sub
Keep EXCEling
@Kunde
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Haluan sinut, kuuletko minua.
Haluan sinut. Toivon, että voisimme olla yhdessä. Mietin pystynkö täyttämään toiveesi, olemaan arvoisesi. Voisitko saad1011825- 591190
Alastomat miehet seksikeinussa lasten nähden PRIDEssä!
https://www.iltalehti.fi/kotimaa/a/adf62289-a0b6-4b4c-9672-9e19c01beb51 Eikö nyt muka mene jo aivan liian pitkälle että4601169- 1701053
Anteeksipyynnöstä
Uskotko anteeksipyynnön voimaan? Mikä tekee anteeksipyynnöstä vaikeaa? Onko se mielestäsi joskus turhaa, joko pyytäjän132837- 58831
Naiselle Kuuleppa Tämä
Tämä ei ole mikään vitsi. Minulla on ikävä sinua nainen! Naiselle mieheltä49776- 84773
- 51728
- 57691