MS Excel

Potřeboval bych poradit s kódem pro inicializaci Userformu, konkrétně se jedná o načítání dat do Listboxu, na mém počítači to načítá v řádu sekund, ale na jiném v řádu minut a to je už nepoužitelné pro praxi. Problém je asi v tom, že načítám data z jiného zavřeného sešitu. Poradí někdo kde by mohl být zakopaný pes? Díky

Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
Application.DisplayAlerts = False

ListBox1.ColumnCount = 7
ListBox1.ColumnWidths = "60;60;30;130;40;40;130"

Dim path As String
Dim workbookName As String
Dim worksheetName As String
Dim cell As String
Dim returnedValue As String
r = 5
c = 1
x = 0
path = "P:\Slozka\"
workbookName = "Soubor.xlsm"
worksheetName = "List"
cell = Cells(r, c).Address

returnedValue = "'" & path & "[" & workbookName & "]" & worksheetName & "'!" & Range(cell).Address(True, True, xlR1C1)
hodnota = ExecuteExcel4Macro(returnedValue)
Do While hodnota <> 0
ListBox1.AddItem
For y = 0 To 6
returnedValue = "'" & path & "[" & workbookName & "]" & worksheetName & "'!" & Range(cell).Offset(x, 0).Address(True, True, xlR1C1)
returnedValue1 = "'" & path & "[" & workbookName & "]" & worksheetName & "'!" & Range(cell).Offset(x, y).Address(True, True, xlR1C1)
hodnota1 = ExecuteExcel4Macro(returnedValue1)
If hodnota1 = 0 Then hodnota1 = ""

ListBox1.List(x, y) = hodnota1
Next y
hodnota = ExecuteExcel4Macro(returnedValue)
x = x + 1
Loop

Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Zaslat odpověď >

Strana: « předchozí 1 2 3 další »

eLCHa(31.8.2015 9:05)#026533

O formě zápisu pomocí R1C1 si zcela jistě něco dohledáte na internetu.

Na vysvětlenou
Do oblasti A1:A50 vkládám odkazy na oblast 'Cesta\[Nazev]List'!O11:O60"

Sloupec O je 15. sloupec v listu - proto absolutně C15
Začínám o 10 řádků níže - tedy relativně R[10]citovat

Vaclav-Vesely(31.8.2015 9:20)#026535

Diky, uz jsem googlil a podle vaseho vysvetleni to chapu spravne, ale nedopracoval jsem se k tomu jak dostat do listu na pozice A1:C100 hodnoty z druheho sesitu z bunek A5:C105, tzn. R5C1:R105:C3citovat

Vaclav-Vesely(31.8.2015 9:22)#026536

Oprava: R5C1 - R105C3citovat

eLCHa(31.8.2015 9:34)#026537

=R[4]Co 4 řádky níže a stejné sloupce

edit:
Pokud je to pro Vás snazší - můžete použít i=R[4]C[0]citovat

Vaclav-Vesely(31.8.2015 9:57)#026541

No tak to jsem pochopil i zkousel spravne, ale nefungovalo to, sesit asi musi byt prepnuty do rezimu zapisu R1C1 je to tak?citovat

eLCHa(31.8.2015 10:04)#026543

Nemusí - pokud zadáváte pomocí kódu a používáte FormulaR1C1

Pokud vkládáte vzorec do buňky ručně, tak samozřejmě musí.citovat

Vaclav-Vesely(31.8.2015 10:25)#026544

Tak jeste bych potreboval poradit proc nefunguje zapis se vzorcem

Range("A1:C150").FormulaR1C1 = "=IF('[nazev.xlsm]jmeno'!R[4]C=0,"",'[nazev.xlsm]jmeno'!R[4]C)"
citovat

eLCHa(31.8.2015 10:58)#026547

4 uvozovky místo 2Range("A1:C150").FormulaR1C1 = "=IF('[nazev.xlsm]jmeno'!R[4]C=0,"""",'[nazev.xlsm]jmeno'!R[4]C)"citovat

Vaclav-Vesely(31.8.2015 11:04)#026549

Super diky!citovat

Vovka(31.8.2015 11:08)#026550

Mám upřímný (a zcela neosobní) dotaz: je opravdu nutné řešit nastavení těch vzorců v notaci R1C1? Podle mých zkušeností (s výjimkou několika málo situací, v nichž help přímo uvádí povinnost použít specifickou notaci) lze vzorec psát, "jak mi zobák narostl" a teprve na samém konci (v případě nezbytnosti) použít převod na R1C1. Domníval jsem se, že nedávná diskuse o automatických převodech notace vzorců do věci vnesla jasno. Je možné, že jsem něco podstatného přehlédl ?!?citovat

Strana: « předchozí 1 2 3 další »

Téma: VBA Excel - Pomalé načítání dat do Listboxu

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje