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

MS Excel

Téma: Aut.filtr VBA

Zaslal/a Marekh 4.10.2020 19:12

Zdravím,
jak si vysvětlit proč pro kritérium "=" se nezobrazí daný řádek ? Když u kritérií použiji "> nebo <" tak se to chová podle plánu.

Příloha: 48222_sesit2.xls (30kB, staženo 24x)

Zaslat odpověď >

---

Lugr(4.10.2020 19:42)#048223

Private Sub CommandButton1_Click()

Dim Datum As String

Datum = Range("C2")

Range("A2").AutoFilter Field:=1, Criteria1:=Datum

End Subcitovat

Marekh(4.10.2020 19:52)#048224

Chová se mi to stejně (E2003).citovat

Lugr(4.10.2020 20:32)#048225

Normálně mi to funguje. Bohužel já to zkouším na E2016.

Zde ještě odkaz.

https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa221844(v=office.11)

Příloha: 48225_48222_sesit2.xls (44kB, staženo 24x)

citovat

elninoslov(5.10.2020 7:51)#048227

Skúste
Range("A2").AutoFilter Field:=1, Criteria1:=Format(Datum, "d.m.yyyy")citovat

Marekh(5.10.2020 8:06)#048228

Bohužel stejný výsledek. Když zadám napevno do kritéria datum ve formátu 1/2/2000 tak to zobrazí. Provedl jsem tedy změnu formátu pro vstupní buňku C2 a zase nic. Ve vlastnostech vlastního filtru je vidět že hledá 1/2/2000 což tam samozřejmě není.citovat

Marekh(5.10.2020 8:13)#048229

Když to tak zkouším s našim formátem datumu, tak by stačilo otevřít okno s nastavením vlastního filtru a potvrdit tlač. OK. Pak to zobrazícitovat

elninoslov(5.10.2020 8:44)#048230

Uveďte ešte verziu Office a jazyk, a aj OS.
Ja mám Office 2019 x64 Pro SK (1808), a Win 10 x64 Pro SK (1909). Nech to môže skúsiť pozrieť niekto, kto má rovnaké podmienky.citovat

Marekh(5.10.2020 9:24)#048231

Office 2003 CZ Pro, CZ Win 7 Pro nebo taky CZ Win 10 Pro včetně posledních aktualizacícitovat

Marekh(5.10.2020 21:27)#048232

Nakonec jsem to vyřešil jiným způsobem.

Příloha: 48232_sesit1.xls (45kB, staženo 16x)

citovat

JoKe(5.10.2020 21:32)#048233

Private Sub CommandButton1_Click()
Dim Datum As Date
Datum = Range("C2")
Range("A2").AutoFilter Field:=1, Criteria1:=Datum
End Subcitovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje