Prohlášení o typu VBA (příklad) | Jak deklarovat proměnné pomocí typu VBA?

Typ je příkaz ve VBA, který se používá k definování proměnných podobných funkci DIM, používá se na úrovni definované uživatelem, kde máme jednu nebo více hodnot v proměnné, existují dvě nomenklatury pro příkaz typu, který je veřejný nebo soukromý tyto jsou volitelné, ale název proměnné a název prvku jsou povinné.

Co je prohlášení o typu v aplikaci Excel VBA?

VBA Type Statement se používá k definování proměnných pod jedním názvem skupiny s různými datovými typy přiřazenými každé proměnné. To nám pomáhá seskupit více proměnných pod jeden objekt a použít je pod definovaným názvem typu.

Deklarováním příkazu Type se můžeme vyhnout použití modulů třídy ve VBA. Nepotřebuje žádné řetězcové moduly, protože může být zabudováno do již existujících modulů, což nám může ušetřit místo.

V jednom z dřívějších článků jsme diskutovali „VBA ENUM“ pro seskupení všech proměnných pod názvem jedné skupiny.

Například pokud máte název skupiny s názvem „Mobily“, máme členy skupiny jako „Redmi, Oppo, Vivo, Samsung, LG atd.“. Prohlášení Enum tedy můžeme seskupit společně s jejich příslušnými hodnotami.

Enum Mobily

Redmi = 12000

Oppo = 18000

Vivo = 18000

Samsung = 25 000

LG = 15000

End Enum

Takto jsme vytvořili výčty v tomto článku. Problém s příkazem Enum, protože může obsahovat pouze DLOUHÝ datový typ. Abychom mohli seskupit proměnné s různými datovými typy, můžeme použít „VBA TYPE Statement“. V tomto článku vám ukážeme, jak vytvořit příkaz typu ve VBA. Číst dál…

Syntax

Než deklarujete proměnné pomocí příkazu Type, podívejte se na syntaxi:

Typ Název skupiny             [Proměnná 1] jako proměnný datový typ             [Proměnná 2] jako proměnný datový typ             [Proměnná 3] jako proměnný datový typ             [Proměnná 4] jako proměnný datový typ             [Proměnná 5] jako proměnný datový typ Konec Typ

Tyto typy příkazů lze deklarovat v rámci modulu i v horní části modulu, jako jsou naše globální proměnné ve VBA.

Typ VBA může obsahovat proměnné objektu, může obsahovat pole. Nemůže však obsahovat postupy, funkce.

Příklad výpisu typu ve VBA

Tuto šablonu prohlášení o typu VBA si můžete stáhnout zde - Šablona prohlášení o typu VBA

Dobře, začněme proces deklarace proměnných příkazem Type. Uvidíme stejný příklad deklarace značek mobilních telefonů, jako jsme použili ve VBA Enum.

Krok 1: V horní části modulu začněte slovem „Typ“ a pojmenujte Typ skupiny.

Kód:

 Typ MobileBrands End Type 

Krok 2: Co v mobilních značkách obvykle vidíme. Nejprve vidíme Název, takže deklarujeme proměnnou jako Název jako řetězec.

Kód:

 Zadejte název MobileBrands jako typ konce řetězce 

Krok 3: Za jménem zkontrolujeme datum spuštění. Deklarujte proměnnou jako LaunchDate jako datum.

Kód:

 Zadejte název MobileBrands jako řetězec LaunchDate As Date End Type 

Krok 4: Další věcí je kontrola kapacity úložiště. Deklarovat proměnnou jako úložiště jako celé číslo.

Kód:

 Zadejte název MobileBrands jako řetězec LaunchDate jako datové úložiště jako celočíselný typ ukončení 

Krok 5: Další věcí je kontrola kapacity RAM.

Kód:

 Zadejte název MobileBrands jako řetězec LaunchDate jako datum úložiště jako RAM jako celé číslo Typ konce 

Krok 6: Nakonec zkontrolujeme cenu.

Kód:

 Zadejte název MobileBrands jako řetězec LaunchDate jako datum úložiště jako celé číslo RAM jako celé číslo cena jako typ dlouhého konce 

Nyní v Sub proceduře deklarováním proměnné jako Type Type tj. MobileBrands můžeme přistupovat ke všem těmto datovým typům proměnných.

Krok 7: Vytvořte podproces.

Kód:

 Sub Type_Example1 () End Sub 

Krok 8: Nyní deklarujte proměnnou „Mobile“ jako MobileBrnads.

Kód:

 Sub Type_Example1 () Dim Mobile As Mob End Sub 

Krok 9: Nyní s názvem proměnné „Mobile“ můžeme přistupovat ke všem proměnným „MobileBrands“.

Kód:

Krok 10: Nyní uložte každou hodnotu jako níže.

Kód:

 Zadejte název MobileBrands jako řetězec LaunchDate jako datum úložiště jako celé číslo RAM jako celé číslo cena jako dlouhý konec typ Sub Type_Example1 () Dim Mobile jako MobileBrands Mobile.Name = "Redmi" Mobile.LaunchDate = "10.01.2019" Mobile.Storage = 62 Mobile.RAM = 6 Mobile.Price = 16500 MsgBox Mobile.Name & vbNewLine & Mobile.LaunchDate & vbNewLine & _ Mobile.Storage & vbNewLine & Mobile.RAM & vbNewLine & Mobile.Price End Sub 

Nakonec ukažte výsledek v okně se zprávou VBA, jako je níže uvedené.

Kód:

 Sub Type_Example1 () Dim Mobile As MobileBrands Mobile.Name = "Redmi" Mobile.LaunchDate = "10-Jan-2019" Mobile.Storage = 62 Mobile.RAM = 6 Mobile.Price = 16500 MsgBox Mobile.Name & vbNewLine & Mobile. LaunchDate & vbNewLine & _ Mobile.Storage & vbNewLine & Mobile.RAM & vbNewLine & Mobile.Cena End Sub 

Nyní spusťte kód pomocí klávesy F5 nebo ručně a podívejte se na výsledek v okně se zprávou.

Takto můžeme použít příkaz „VBA Type“ k definování nového datového typu v podprocesu.

Typy VBA vs. třída VBA

Typ VBA se často porovnává s moduly třídy VBA. Existují mezi nimi určité rozdíly. Níže uvádíme běžné rozdíly.

  • Rozdíl 1: Typ VBA může obsahovat pouze veřejné proměnné. Třída VBA může obsahovat jak veřejné, tak soukromé proměnné.
  • Rozdíl 2: Typ VBA nemůže obsahovat procedury a funkce. Třída VBA obsahuje oba spolu s vlastnostmi.
  • Rozdíl 3: Typ VBA lze deklarovat v kterémkoli z modulů a postupů. Třídu VBA lze deklarovat pouze ve vyhrazených modulech tříd.

$config[zx-auto] not found$config[zx-overlay] not found