< návrat zpět

MS Excel

Téma: Dlouhý kód ve VBA rss

Zaslal/a Jirka32 3.8.2017 14:27

Dobrý den,

rád bych se zeptal na max velikost kodu ve VBA, napsal jsem asi dost dlouhý kod a při spuštění mi to hodí hlášku "Procedure too large"
Lze nějak optimalizovat kod, nebo vložit nějakou proceduru, či větu, která akceptuje i delší kod VBA?
Nevím co jinak s tím, nápověda nabízí kod rozdělit, ale to u mě asi nepůjde, neboť to chci spouštět jedním tlačítkem.
Díky předem

Zaslat odpověď >
Strana:  « předchozí  1 2
xlnc(6.8.2017 12:43)#037167
avatar
@elnino
Pravda, eLCHa ví, co dělá :-) Beru zpět.citovat
icon AL(6.8.2017 12:43)#037168
avatar
Ide, ale iba na skrytie, a aj to iba na xlSheetHidden. Na skrytie pomocou xlSheetVeryHidden pole nefunguje.
Prosím?
Možno mi niečo uniká, ale toto predsa funguje pre každú z hodnôt vlastnosti Visible:Sub test()
Dim myArr As Variant, i As Byte
myArr = Array("Sheet1", "Sheet3", "Sheet5")
For i = LBound(myArr) To UBound(myArr)
Sheets(myArr(i)).Visible = xlSheetVisible
' Sheets(myArr(i)).Visible = xlSheetHidden
' Sheets(myArr(i)).Visible = xlSheetVeryHidden
Next i
End Subcitovat
xlnc(6.8.2017 16:14)#037171
avatar

AL napsal/a:

Ide, ale iba na skrytie, a aj to iba na xlSheetHidden. Na skrytie pomocou xlSheetVeryHidden pole nefunguje.
Prosím?
Možno mi niečo uniká, ale toto predsa funguje pre každú z hodnôt vlastnosti Visible:Sub test()
Dim myArr As Variant, i As Byte
myArr = Array("Sheet1", "Sheet3", "Sheet5")
For i = LBound(myArr) To UBound(myArr)
Sheets(myArr(i)).Visible = xlSheetVisible
' Sheets(myArr(i)).Visible = xlSheetHidden
' Sheets(myArr(i)).Visible = xlSheetVeryHidden
Next i
End Sub


Postrádá v tom Array smysl. Jestli For..Each nebo tohle je už jedno. Buď můžu pracovat s listy naráz (což jsem myslel, že půjde přes Array) nebo v cyklu/kolekci.citovat
icon AL(6.8.2017 16:25)#037172
avatar
@xlnc: v poriadku, nepriem sacitovat

Strana:  « předchozí  1 2

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

Makro smyčka

MilanKop • 19.4. 10:46

Makro smyčka

elninoslov • 19.4. 9:02

Čas od do

elninoslov • 19.4. 8:46

Čas od do

jarek1111 • 18.4. 13:46

Čas od do

lubo • 18.4. 11:13

Čas od do

jarek1111 • 18.4. 8:32

Čas od do

jarek1111 • 18.4. 8:31