» Poradna » Programy

VBA - kritéria filtru

 |   | 

Rád bych Vás poprosil o radu ohledně filtru v excelu. Pokud chci pomocí makra dosadit jako kritérium filtru nějakou hodnotu (např. "abc") použiji příkaz:

Selection.AutoFilter Field:=1, Criteria1:="abc"

Já jsem ale v situaci, kdy mám odfiltrovaný seznam a potřebuji do proměnné získat hodnotu tohoto kritéria (něco jako "proměnná = kritérium, dle kterého je odfiltrován první sloupec")? Díky všem.

Odpovědi na otázku

 |   | 

Tak už jsem to našel, takže kdyby někdo potřeboval:


With Worksheets("detail")
If .AutoFilterMode Then
With .AutoFilter.Filters(1)
If .On Then c1 = .Criteria1
End With
End If
End With

Souhlasím  |  Nesouhlasím  |  Odpovědět

Související témata: Kritérium, Field, Proměnná




Určitě si přečtěte

Byli tam! Důkazy o přistání na Měsíci, Lunochody i čínská sonda jsou vidět z vesmíru

Byli tam! Důkazy o přistání na Měsíci, Lunochody i čínská sonda jsou vidět z vesmíru

** Sonda LRO pořídila z oběžné dráhy Měsíce zajímavé snímky ** Jsou na nich vidět artefakty všech misí programu Apolla, které přistály na povrchu Měsíce ** Jde například o části lunárních modulů, rovery a dokonce i vlajky

Petr Kubala | 69

Porno insider: Jak virtuální realita vstupuje do filmů pro dospělé

Porno insider: Jak virtuální realita vstupuje do filmů pro dospělé

** Pornografie údajně představuje třetinu internetové obsahu a je technologický tahounem ** Do erotického obsahu postupně zasahuje i virtuální realita ** Kromě vizuálního vjemu se pracuje také na virtuálním uspokojení toho hmatového

Jan Dudek | 32

Řidiče Tesly ukolébal autopilot, policisté ho zastavili až po 11 kilometrech

Řidiče Tesly ukolébal autopilot, policisté ho zastavili až po 11 kilometrech

** Policisty poblíž San Franciska zaujala Tesla se spícím řidičem ** Donutili vozidlo zpomalit a následně probudili překvapeného řidiče ** Vozidlo podle dostupných informací jelo v režimu autopilota

Karel Kilián | 70



Aktuální číslo časopisu Computer

Jak nastavit a ochránit nový mobil

Velký test bezdrátových klávesnicí a myší

Počítače v roce 2019

Srovnání barevných laserových multifunkcí