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

• #10823 Delila_1 veterán Pityke78 #10813

  Új Válasz 2011-07-12 15:46:16 #10823

  Ú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 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 Sub

• #10818 Delila_1 veterán Pityke78 #10813

  Új Válasz 2011-07-12 13:49:44 #10818

  Ú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 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 Sub

  Majd 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.

• #10816 föccer nagyúr Pityke78 #10813

  Új Válasz 2011-07-12 13:33:37 #10816

  Ú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

  

  föccer

  nagyúr

  válasz Pityke78 #10813 üzenetére

  Nekem a 2003-as excel kékre szinezi a legördíthető nyilacskát, ha az aktuális szűrő bw van kapcsolva.

  üdv, föccer

• #10815 m.zmrzlina senior tag Pityke78 #10813

  Új Válasz 2011-07-12 13:31:15 #10815

  Ú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

  

  m.zmrzlina

  senior tag

  válasz Pityke78 #10813 üzenetére

  Ha nem is a látványosság csúcsa, de azért be van építve ez a funkció:

  

  Ha eltűnne görgetés közben a fejléc akkor a Nézet>Ablak>Panelek rögzítése>Felső sor rögzítése menüpontban tudod mindig láthatóvá tenni. (feltéve ha a felső sorban van a szűrő)

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