Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Keresés
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    LOGOUT

    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

  • #51362 Delila_1 veterán vamzi #51360
    Új Válasz #51362
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    Delila_1

    veterán

    válasz vamzi #51360 üzenetére

    Egy másik megoldás Fire-éhez képest, hogy a laphoz rendelsz egy kódot (lásd az Összefoglalóban).
    Private Sub Worksheet_Change(ByVal Target As Range)
        Application.EnableEvents = False
        If Target.Address = "$G$1" And Target = "" Then
            Range("A1").AutoFilter: Range("A:E").AutoFilter
            Range("G1:K1").ClearContents
            Application.EnableEvents = True
            Exit Sub
        End If
        
        If Target.Row = 1 Then
            Select Case Target.Column
                Case 7
                    ActiveSheet.Range("$A:$E").AutoFilter Field:=1, Criteria1:=Target.Value
                Case 8
                    ActiveSheet.Range("$A:$E").AutoFilter Field:=2, Criteria1:=Target.Value
                Case 9
                    ActiveSheet.Range("$A:$E").AutoFilter Field:=3, Criteria1:=Target.Value
                Case 10
                    ActiveSheet.Range("$A:$E").AutoFilter Field:=4, Criteria1:=Target.Value
                Case 11
                    ActiveSheet.Range("$A:$E").AutoFilter Field:=5, Criteria1:=Target.Value
            End Select
        End If
        Application.EnableEvents = True
    End Sub

    G1-be beviszed az A oszlop egyik értékét, mire az autoszűrő szűri erre az állományt. A H1-be a szűrt állomány B oszlopából veszed a következő értéket, ekkor folytatódik a szűrés a B oszlopra is. És így tovább a K oszlopig, amikor A-tól E-ig minden oszlop szűrve van.
    Mikor törlöd a G1 cella értékét, a szűrő "kinyit", a G1: K1 tartományból törlődnek az értékek.

  • #51361 Fire/SOUL/CD félisten vamzi #51360
    Új Válasz #51361
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    Fire/SOUL/CD

    félisten

    válasz vamzi #51360 üzenetére

    Őszintén szólva ez esetben nem látom értelmét feleslegesen túlbonyolítani a dolgot, hiszen a kódok készen vannak, nem kell semmit generálni, csak összefűzni az A-E oszlopokat egy pl. F oszlopba, aztán mehet a szűrő.

Új hozzászólás Aktív témák