< návrat zpět

MS Excel


Téma: pomalé SVYHLEDAT ve VBA rss

Zaslal/a 18.9.2020 15:19

Dobrý den,

mám tento kód, který funguje jako SVYHLEDAT funkce. Jakmile jej ale použiji do souboru s cca 4.000 řádky, tak je pohyb šipkami po souboru hodně pomalý, a téměř se zasekne. V budoucnu se počítá s tím, že soubor naroste na cca 50.000 řádků. Nevíte, co s tím, jak to zrychlit?

V souboru mám dalších 5 listů, kde jsou data cca ve 30 řádcích, takže podle mě nic náročného.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim list As Worksheet, dataListu As Worksheet
Dim posledniradekVTabulceZmen As Long, posledniRadekVKS As Long, x As Long
Dim dataRng As Range

Set list = ThisWorkbook.Worksheets("EVIDENCE ZMĚN")
Set dataListu = ThisWorkbook.Worksheets("KS")

posledniradekVTabulceZmen = list.Range("R" & Rows.Count).End(xlUp).Row
posledniRadekVKS = dataListu.Range("A" & Rows.Count).End(xlUp).Row

Set dataRng = dataListu.Range("A2:P450")

For x = 2 To posledniradekVTabulceZmen
On Error Resume Next
list.Range("T" & x).Value = Application.WorksheetFunction.VLookup( _
list.Range("R" & x).Value, dataRng, 11, False)

Next x

For x = 2 To posledniradekVTabulceZmen
On Error Resume Next
list.Range("U" & x).Value = Application.WorksheetFunction.VLookup( _
list.Range("R" & x).Value, dataRng, 12, False)

Next x

End Sub

Zaslat odpověď >

#048069
avatar
Už to asi chápu. Excel to prohledává neustále.
Šlo mi o to, že až si naloaduji data do tabulky Evidence změn, tak aby došlo k prohledávání.
Namísto v tabulce evidence změn jsem daný kód vložil do makra při loadování dat a již mi velká tabulka funguje rychle.citovat
#048070
avatar
Pokiaľ nedáš prílohu, tak môžeš diskutovať sám so sebou.
Už by si sa to mohol naučiť.citovat
#048071
avatar
Zadal si to na udalosť SelectionChange, takže kód sa spúšťa pri akomkoľvek pohybe po bunkách hárkacitovat
#048072
avatar
Daj to do všeobecného modulu a spúšťaj jedorazovi v prípade potreby, napr tlačidlomcitovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

rozpis zápasů hráčů pro utkání dvou týmů

Anonym • 25.5. 11:54

Hromadné přepsání

elninoslov • 24.5. 10:29

Hromadné přepsání

Nomi • 24.5. 8:32

Index - každý rok začít od 1 Power Query

Alfan • 23.5. 9:17

nepřímý odkaz

elninoslov • 23.5. 0:00

nepřímý odkaz

bordov • 22.5. 18:35

vrácené hodnoty

Anonym • 22.5. 15:46