Ú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

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