MS Excel

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

@elnino
Pravda, eLCHa ví, co dělá :-) Beru zpět.citovat

AL(6.8.2017 12:43)#037168

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

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

AL(6.8.2017 16:25)#037172

@xlnc: v poriadku, nepriem sacitovat

Strana: « předchozí 1 2

Téma: Dlouhý kód ve VBA

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje