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

• #10830 m.zmrzlina senior tag Delila_1 #10828

  Új Válasz 2011-07-12 18:15:54 #10830

  Ú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 Delila_1 #10828 üzenetére

  Ha kiegészítem ezzel a sorral:

  Application.Volatile

  akkor úgy tűnik működik.
  Innen szedtem.

  Valójában egyetlen sorát sem értem ennek a függvénynek (na jó az elsőt és az utolsót igen .), de ilyen egymásba ágyazott With..End With szerkezetet nem láttam soha

• #10829 Fire/SOUL/CD félisten Delila_1 #10828

  Új Válasz 2011-07-12 18:08:27 #10829

  Ú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 Delila_1 #10828 üzenetére

  Tegyél a munkalapra pl. egy MOST() fx-et és az Worksheet Calculate eseményébe tedd a kódot. Ez meg egy másik megközelítés, a Filterhez

  Private Sub Worksheet_Calculate()
  'Szűrt terület sorainak teljes száma, a címsort is beleértve
  MsgBox (AutoFilter.Range.Rows.Count)
  'Szűrt terület aktuális (szűrt) sorainak száma, címsort is beleértve
  MsgBox (AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Count)
  End Sub

  Értelem szerűen, ha az a két érték egyenlő, akkor nincs szűrés, más esetben meg igen.

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