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 vloženo 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 v tomto článku vytvořili výčty. Problém s příkazem Enum, protože může obsahovat pouze DLOUHÝ datový typ. Abychom proměnné seskupili do různých datových typů, můžeme použít příkaz „VBA TYPE“. 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 Typ konce
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
Dobře, začneme proces deklarace proměnných pomocí příkazu 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: V mobilních značkách, jaké věci 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 datum ú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 dílčí proceduře deklarováním proměnné jako Type, Name, tj. MobileBrands, můžeme přistupovat ke všem těmto datovým typům proměnných.
Step 7: Create a subprocedure.
Code:
Sub Type_Example1() End Sub
Step 8: Now declare the variable “Mobile” as MobileBrnads.
Code:
Sub Type_Example1() Dim Mobile As Mob End Sub
Step 9: Now, with the variable name “Mobile,” we can access all the variables of “MobileBrands.”
Code:
Step 10: Now store each value like the below.
Code:
Type MobileBrands Name As String LaunchDate As Date Storage As Integer RAM As Integer Price As Long End Type 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.Price End Sub
Finally, show the result in a VBA message box like the below one.
Code:
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.Price End Sub
Now run the code using the F5 key or manually and see the result in a message box.
Like this, we can use the “VBA Type” statement to define new data types in the subprocedure.
VBA Types vs. VBA Class
VBA Type is often compared to VBA Class modules. There are certain differences between them. Below are the common differences.
- 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.
