Příspěvky uživatele

Pokud jsem porušil nějaké krédo, tak se omlouvám.

Pokud vám někdo soubor odemkne, je to jeho volba. Nicméně by to mělo být formou, že vy zašlete uzamčený soubor a dostanete zpět odemknutý.
V žádném případě by tu nikdo neměl umístit návod nebo odkaz, jak se to dělá - stejně mu to smažu.

A to krédo je, že pokud někdo něco uzamkl, měl k tomu důvod a měl by to být on, kdo to odemkne.

@elninoslov
Ale keď má eLCHa podstatne rýchlejší nápad, tak myslím, že je dokončenie tohoto aj zbytočné... Inak s tými externými súbormi to trvá cca rovnako dlho 20 s (u mňa).

Není to zbytečné. já myslím, že jemu nezáleží na tom, jestli to jede 20s nebo 40s, ale jestli to funguje a správně. A když už to máte skoro hotové...

Mně opravdu jen zajímalo, jestli je textový řetězec opravdu to nejrychlejší a moc se mi to nechtělo líbit.
Zkusil jsem fci Filter, ale ta byla pomalejší a pak mně napadlo Collection + named key.

Jinak já běžně také používám stringy, ale ne na tak rozsáhlá pole.

Další možností je ADO a příkaz JOIN, také by bylo zajímavé otestovat, jak to vychází...

@elninoslov

Nedalo mi to a musel jsem to vyzkoušet.
Váš kód jede na mém PC 40 vteřin.

Využití Collection mi vychází 4x rychlejší (jel 8 vteřin), navíc má výhodu, že odhalí duplicity (proto se naše výsledky nebudou shodavat - nějaké tam máte). A je obecný (nepoužívá transpose)
Ještě by to šlo možná optimalizovat, ale už nemám čas ;))

Pokud máte stálý počet produktů, můžete pužít SUMIFS.
Já bych šel do kontingenční tabulky.

@elninoslov
Já věřím, že tam není ;)

Funkci MAXIFS si můžete vyzkoušet i v online verzi excelu a stejně tak mi ji nabízí android.
Na desktopu mám e2010, takže tam nevím.
Dle tohoto je v e2016, ale když ji nemůžete najít...

V excelu 2016 lze navíc nativně využít i Power Query.

zvykněte si psát verzi excelu

Máte tam?
MAXIFS

jinak maticově=MAX(KDYŽ($D$7:$D$11=$G$2;$E$7:$E$11;0))

@David123
Jakou máte verzi excelu. Tohle totiž úplně jednoduše zvládne Power query (Sloučit dotazy a použít Levé Anti)

Jinak, komentáře nepíšu. On je to jednoduchý kód a nejlépe to stejně pochopíte, když na to přijdete sám (jé, tohle dělá tohle, ahá...)

Jedna z milionu cest.
Seznam hodnot ukládám do pole sValues.
Počet zjistíte pomocí Ubound(sValues)Sub test()
Dim rRange1 As Range
Set rRange1 = Range("A1").CurrentRegion
Set rRange1 = rRange1.Offset(1, 0).Resize(rRange1.Rows.Count - 1, 1)
Dim rRange2 As Range
Set rRange2 = Range("D1").CurrentRegion
Set rRange2 = rRange2.Offset(1, 0).Resize(rRange2.Rows.Count - 1, 1)

Dim sValues() As String
ReDim sValues(1 To 1)
sValues(1) = vbNullString

For Each rCell In rRange1.Cells
If Application.WorksheetFunction.CountIf(rRange2, rCell.Value2) = 0 Then
If Not Len(sValues(1)) = 0 Then
ReDim Preserve sValues(1 To UBound(sValues) + 1)
End If
sValues(UBound(sValues)) = rCell.Value2
End If
Next rCell
Set rCell = Nothing

Set rRange1 = Nothing
Set rRange2 = Nothing
End Sub

=COUNTIFS($C7:$AF7;"X";$C$6:$AF$6;">="&DATUM(ROK(DNES());MĚSÍC(DNES());1);$C$6:$AF$6;"<="&DNES())

No, jak by mohlo dojít ke změně z jiného listu, to teda nevím
To nemusíte. Asi se všichni s tímto jevem jednou setkáme (ano, i já) - většinou nepřijdete na to, proč se děje to, co se děje, protože při ladění bude vše správně. I u mne docházelo ke spouštění událostí z objektu, kde to nedávalo smysl.

Pokud pracujete s konkrétním listem, vždy ho v kódu specifikujte. Např. tak, jak píše Vovka.

ActiveWorkbook, ActiveSheet a vlastně ActiveCokoliv používejte pouze výjimečně - pouze v případech, kdy opravdu potřebujete pracovat s aktivním objektem (tedy neznáte jeho přesnou definici).

Samozřejmě alt+;
Děkuji za upozornění.
Já k tomu používám ctrl+enter, taxe mi to asi spojilo.

@mepexg
OK. Já jsem se lekl, že je tam nějaký technický problém.

@mepexg
1/ bat je na vytvorenie cesty (substitúcie adresára na disk Q:) ku zdrojovým súborom.

Tady bych se z dovolením zeptal.
Má nějaký důvod, proč používáte bat a ne buňku v daném souboru, případně v kombinaci s funkcí POLÍČKO (CELL)?

@elninoslov
jj
já to napsal takto
Nebudu se vás ptát proč to děláte tak, jak to děláte.

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje