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

• #9776 Delila_1 veterán Jarod1 #9774

  Új Válasz 2011-03-26 19:43:20 #9776

  Ú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 Jarod1 #9774 üzenetére

  Lehet, hogy igaza van Fire-nek az elírással kapcsolatban, de én úgy értettem a kérdést, hogy az érdekel, hány oszlopban van beállítva valamilyen feltétel szerinti szűrés.

  Arra itt a makró hozzá:

  Sub SzűrtOszlopok()
  Dim oszlop As Integer, sz As Integer
  Dim w As Worksheet
  Dim FiltOszlop As String
  
  Set w = Worksheets("Munka1")
  
  With w.AutoFilter
  FiltOszlop = .Range.Address
  For oszlop = 1 To .Filters.Count
  If w.AutoFilter.Filters.Item(oszlop).On Then sz = sz + 1
  Next
  End With
  MsgBox sz
  End Sub

  [ Szerkesztve ]

• #9775 Fire/SOUL/CD félisten Jarod1 #9774

  Új Válasz 2011-03-26 18:59:56 #9775

  Ú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 Jarod1 #9774 üzenetére

  MsgBox (Worksheets("Munka1").AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Count - 1)

  A Munka1 annak a munkalapnak a neve, amelyikben az AutoFilter/Szűrő használva van

  UI: Feltételezem, az csak szimpla elírás részedről, hogy a "szűrt oszlopokat" számolja, hisz szűrt sorok vannak, az oszlopok száma szűrve és szűrés nélkül is fix...

  [ Szerkesztve ]

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