MS Excel

Téma: deklarace a hodnota proměnné

Zaslal/a culibrk 16.10.2015 20:16

Dobrý večer,
mám dotaz ohlledně proměnných. Pokud mám v souboru více procedur a ve všech chci použít proměnnou např. wbPracovni.
Deklaruji ji jako Public wbPracovni as Workbook a to platí pro všechny procedury, ale jak se dá nastavit aby wbPracovni byl ThisWorkbook aby to platilo taky pro všechny procedury?

Zaslat odpověď >

elninoslov(16.10.2015 20:54)#027511

Public wbPracovni As Workbook

Sub pok1()
Set wbPracovni = ThisWorkbook
End Sub

Sub pok2()
MsgBox wbPracovni.Name
End Sub

To nastavenie premennej urobte rovno v Workbook_Open
Ale prečo nepoužijete rovno volanie ThisWorkbook namiesto wbPracovni ?

PS: A naplnenie môžete robiť pri otvorení zošita
Private Sub Workbook_Open()
Call pok1
End Subcitovat

Vovka(16.10.2015 21:19)#027512

Obecně platí, že Dim Sesit vytvoří "pouzdro" pro objekt, který definujeme pomocí As, např. Dim Sesit as Workbook. Proměnnou Sesit pak můžeme naplnit objektem typu Workbook. Zatím ale je objektová proměnná Sesit prázdná (Sesit is Nothing). Teprve příkaz Set tuto proměnnou naplní potřebným obsahem, např. Set Sesit = ThisWorkbook. Od té chvíle, pokud oslovíme proměnnou Sesit, oslovujeme tím objekt ThisWorkbook.citovat

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.