» Poradna » Programy

VBA SVyhledat/VLookUp v paměti (na 2D polích)

 |   |  Microsoft Windows 7 Firefox 28.0

Potřeboval bych ve vba kódu použít funkci SVyhledat, ovšem tak, že nebude hledat v listech/Rangech, ale mezi dvěmi 2D variant-value poli (do kterých jsem načetl potřebné části listů). Jde mi o toto řešení, protože klasická implementace SVyhledat v podobě cyklus v cyklu s prací v paměti (ta 2D value2 pole) je proti této funkci neuvěřitelně pomalá i když je v ní zabudováno zkracování vnitřního cyklu při nálezu kýžené hodnoty(viz příklad níže).příklad kódu, 2D pole EF a SK, každý cca 120.000 řádků dat, 5/2 sloupce For J = 2 To UBound(EF, 1) N = 0 For I = 2 to UBound(SK, 1) If EF(J, 1) = SK(I, 1) Then EF(J, 3) = SK(I, 2) N = 1 Exit For End If Next NextPOZN: vím, že je to značné množství dat, ale stejné množství musí přece zpracovat i SVyhledat, když jí použiju vzorcem v buňkách nějakého listu

Odpovědi na otázku

 |   |  Microsoft Windows 7 Firefox 28.0

Vypadla mi tam podmínka [If N = 0 Then EF(J, 3) = "Nenaskladněno"] před posledním NEXT.

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

Související témata: Stejné množství, Značné množství, Množství dat, Implementace


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

Nejlepší příslušenství k počítači. Tipy na osvědčené klávesnice, tiskárny, routery…

Nejlepší příslušenství k počítači. Tipy na osvědčené klávesnice, tiskárny, routery…

** Tipy na klávesnice, myši, routery, tiskárny, sluchátka a další věci k počítačům ** Poradíme, s jakými produkty neuděláte chybu ** Vybíráme jak příslušenství na běžnou práci, tak na hraní her

David Polesný | 20

Nové iPhony, hodinky a další novinky Applu: Zase bude za co utrácet

Nové iPhony, hodinky a další novinky Applu: Zase bude za co utrácet

Dnes proběhla další velká prezentační akce Applu, na které došlo k odhalení nových iPhonů a dalších novinek. Událost jsme sledovali online, a tak se můžete podívat na chronologický zápis těch nejdůležitějších informací.

David Polesný | 136

Nejlepší notebooky do 20 000 Kč. Tipy, co se dnes vyplatí koupit

Nejlepší notebooky do 20 000 Kč. Tipy, co se dnes vyplatí koupit

** S cenou do 20 tisíc lze vybrat solidní notebook na práci i hry ** Přenosné notebooky nabídnou i kovová těla a rychlý hardware ** Na hraní se hodí více peněz, ale na použitelný základ dvacet tisíc stačí

Tomáš Holčík, David Polesný | 39

Vyzkoušeli jsme chytrou čínskou zásuvku Sonoff S26 za tři stovky. Nevyhořeli jsme

Vyzkoušeli jsme chytrou čínskou zásuvku Sonoff S26 za tři stovky. Nevyhořeli jsme

** Je sice z Aliexpressu, ale funguje ** Můžete ji ovládat hlasem přes Amazon Echo nebo Google Home ** Za tři stovky zautomatizuje menší 230V spotřebič

Jakub Čížek | 109

Vybrali jsme 21 programovatelných hraček a stavebnic pro děti i jejich rodiče

Vybrali jsme 21 programovatelných hraček a stavebnic pro děti i jejich rodiče

** Získejte děti pro matematiku a základy techniky ** Kupte jim hračku nebo stavebnici, které vdechnou vlastní život ** Vybrali jsme 21 stavebnic pro malé caparty i budoucí experty na A.I.

Jakub Čížek | 10


Aktuální číslo časopisu Computer

Megatest: 20 powerbank s USB-C

Test: mobily do 3 500 Kč

Radíme s výběrem routeru

Tipy na nejlepší vánoční dárky