MS Excel

Téma: pomalé SVYHLEDAT ve VBA

Zaslal/a MilaF 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ěď >

MilaF(18.9.2020 16:11)#048069

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

marjankaj(18.9.2020 16:59)#048070

Pokiaľ nedáš prílohu, tak môžeš diskutovať sám so sebou.
Už by si sa to mohol naučiť.citovat

Robert13(18.9.2020 19:46)#048071

Zadal si to na udalosť SelectionChange, takže kód sa spúšťa pri akomkoľvek pohybe po bunkách hárkacitovat

Robert13(18.9.2020 19:56)#048072

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)

Formulář Faktura

Formulář Faktura IV

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

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.