Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Keresés

Hirdetés

100 000 érv a ReGalaxy mellett: Vásárolj Galaxy Z Fold7 I Z Flip7 vagy Galaxy S25 szériás készüléket, és régi mobilod felújítását 100 000 Ft-ig mi álljuk!
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    Mobilarena

    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

  • #36962 Delila_1 veterán p5quser #36959
    Új Válasz #36962
    Ú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 p5quser #36959 üzenetére

    A laphoz rendelt gomb csak a saját lapján tud dolgozni. Helyette tegyél a lapra (mondjuk az elsőre) egy alakzatot, pl. a lekerekített téglalapot.

    Modulba másold be a makrót:

    Sub Szures()
    Dim lap As Integer

    Application.ScreenUpdating = False
    For lap = 2 To Sheets.Count
    Sheets(lap).Select
    ActiveSheet.Range("$A$1:$N$330").AutoFilter Field:=11, Criteria1:=">1"
    ActiveSheet.AutoFilter.Range.Select
    Selection.Interior.Color = 5296274
    ' ActiveSheet.Range("$A$1:$N$330").AutoFilter Field:=11 'összes sor mutatása
    Next
    ' Sheets(1).Select 'első lapra állás
    Application.ScreenUpdating = True
    End Sub

    Az alakzathoz rendeld hozzá a Szures makrót. Ez a másodiktól az utolsó lapig halad, és mindenhol végrehajtja a szűrést, színezést.

    Nézd meg, kell-e a két sor a makróban, amikhez megjegyzést fűztem.

  • #36961 Pakliman tag p5quser #36959
    Új Válasz #36961
    Ú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

    Pakliman

    tag

    válasz p5quser #36959 üzenetére

    Szia!
    Nem próbáltam ki, mert dokinál vagyok, de mennie kellene:

    Sub CommandButton2_Click()
    'Kijelölés
    Dim ws as worksheet
    Dim act as worksheet

    Set act=activesheet


    For each ws in worksheets
    If not ws is act then
    Ws.activate
    Ws.Range("$A$1:$N$330").AutoFilter Field:=11, Criteria1:=">1", _
    Operator:=xlAnd
    Ws.AutoFilter.Range.Select
    With Selection.Interior
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
    .Color = 5296274
    .TintAndShade = 0
    .PatternTintAndShade = 0
    End With
    Ws.ShowAllData

    Ws.Range("$A$1:$N$330").AutoFilter Field:=11, Criteria1:="<-1", _
    Operator:=xlAnd
    Ws.AutoFilter.Range.Select
    With Selection.Interior
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
    .Color = 255
    .TintAndShade = 0
    End With
    Ws.ShowAllData

    Ws.Range("$A$1:$N$316").AutoFilter Field:=11, Criteria1:=">1", _
    Operator:=xlOr, Criteria2:="<-1"
    Endif
    Next ws
    End Sub
    (Baromi nehéz telefonon írni :DD )

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