• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Dlouhý kód ve VBA

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

Jméno
Kontrola
Text
	Ukázka

---

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

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse