• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: VBA filtr dle datumu

Zaslal/a Scraper 14.9.2012 10:33

Dobrý den ,
potřeboval bych poradit jak napsat makro .
Mám ve sloupci 5 položky (zadaný datum) formát buňky datový.
Pomocí InputBox a zadání rozsahu bych je chtěl filtrovat.
Něco jsem zkusil vytvořit , ale nechce mi to fungovat. Asi se nějak bijí formáty.Zmizí mi všechno.
Děkuji za pomoc jestli se někdo pokusíte .
Stanislav Vrzal

Sub filtrobdobi()

' filtr dle zadaného rozsahu data od do

Datumod = InputBox("Zadejte datum od DD.MM.RRRR : ")
Datumdo = InputBox("Zadejte datum do DD.MM.RRRR : ")
' sloupec 5 (E) ve sloupci format buněk datum tvar např . *14.3.2001

Selection.AutoFilter Field:=5, Criteria1:="=>" & CLng(datumod), Operator:=xlAnd, Criteria2:="<=" & CLng(CDate(Datumdo))

End Sub

Zaslat odpověď >

---

Milan-D(2.10.2012 12:21)#009685

S datumovym filtrem byvaji potize, ma na to taky vliv jazykoveho nastaveni Windows, ale hned prvnim pohledem tam je typicka chybka: do kriterii filtru uz musis dat hotovou textovou promennou, tedy nejdriv si ji musis vyskladat predem. Ja mam US excel, ktery pracuje s datumy ve formatu mm/dd/yyyy. Zde je napr. kousek meho kodu na toto tema:

dtDate = CLng(dtDate) 'zaoukrohli datum na cele dny
strSQL = CStr(Format(dtDate, "mm/dd/yyyy"))
strSQL = "<" & strSQL

'odfiltruj starsi zaznamy:
Range("A1").CurrentRegion.Select
Selection.AutoFilter Field:=9, Criteria1:=strSQLcitovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse