-
IT café
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
m.zmrzlina
senior tag
-
Delila_1
Topikgazda
válasz Pityke78 #10813 üzenetére
Tegyél ki ehhez a makróhoz egy gombot, a futtatás után a szűrt oszlopok fejléce (1. sor) piros hátterű lesz.
Sub AutoSzuro()
Dim AF As AutoFilter, F As Filter, oszlop As Long
Set AF = ActiveSheet.AutoFilter
For oszlop = 1 To AF.Filters.Count
Set F = AF.Filters(oszlop)
If F.On Then
Cells(1, oszlop).Interior.ColorIndex = 3
Else
Cells(1, oszlop).Interior.ColorIndex = -4142
End If
Next
End SubMajd jön ide valaki, aki megmondja, hogy lehet a szűrés változásához hozzárendelni, hogy ne kelljen külön gombot nyomogatni.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz Pityke78 #10813 üzenetére
Játszottam a szűrővel.
Hagyd üresen az első és második sort, és adj ezeknek a celláknak szöveg formátumot. A lenti makró (gombhoz rendelheted) ezekbe a sorokba kiírja a szűrés feltételeit zöld háttérrel.Sub Crit_1_2_sorba() '1:2 sorba írja a feltételeket zöld háttérrel
Dim AF As AutoFilter, F As Filter, sz$, oszlop%
Set AF = ActiveSheet.AutoFilter
For oszlop% = 1 To AF.Filters.Count
Range(Cells(1, oszlop%), Cells(2, oszlop%)) = ""
Range(Cells(1, oszlop%), Cells(2, oszlop%)).Interior.ColorIndex = -4142
Set F = AF.Filters(oszlop%)
If F.On Then
Cells(1, oszlop%) = F.Criteria1
Cells(1, oszlop%).Interior.ColorIndex = 4
If F.Operator > 0 Then
If F.Operator = xlAnd Then sz$ = "és " Else sz$ = "vagy "
Cells(2, oszlop%) = sz$ & F.Criteria2
Cells(2, oszlop%).Interior.ColorIndex = 4
End If
End If
Next
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
Új hozzászólás Aktív témák
- Székesfehérvár és környéke adok-veszek-beszélgetek
- OnePlus 7 - magabiztos folytatás
- Apple Watch Sport - ez is csak egy okosóra
- Energiaital topic
- Internet Rádió építése (hardver), és programozása
- Vodafone otthoni szolgáltatások (TV, internet, telefon)
- Külföldi rendelések: boltok, fizetés, postázás
- TCL LCD és LED TV-k
- Nem indul és mi a baja a gépemnek topik
- Koreai autók topic (Kia, Hyundai, stb.)
- További aktív témák...
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: Ozeki Kft.
Város: Debrecen