Tipas yra sakinys VBA, kuris naudojamas apibrėžti kintamuosius, panašius į DIM funkciją. Jis naudojamas vartotojo nustatytame lygyje, kai kintamajame yra viena ar daugiau reikšmių, yra dvi nomenklatūros tipo teiginiams, kurie yra vieši ar privatūs tai naudoti nebūtina, tačiau būtina nurodyti kintamojo pavadinimą ir elemento pavadinimą.
Kas yra „Excel VBA“ tipo teiginys?
VBA tipo pareiškimas naudojamas apibrėžti kintamuosius vienu grupės pavadinimu, kiekvienam kintamajam priskiriant skirtingus duomenų tipus. Tai padeda mums sugrupuoti kelis kintamuosius po vienu objektu, kad juos būtų galima naudoti pagal apibrėžtą tipo pavadinimą.
Deklaruodami „Type“ sakinį galime išvengti „Class“ modulių naudojimo VBA. Jai nereikia jokių styginių modulių, nes jas galima įterpti į jau esamus modulius, o tai gali mums sutaupyti vietos.
Viename iš ankstesnių straipsnių aptarėme „VBA ENUM“, kad visi kintamieji būtų sugrupuoti pagal vieną grupės pavadinimą.
Pavyzdžiui, jei turite grupės pavadinimą, vadinamą „Mobilieji telefonai“, turime grupės narių, tokių kaip „Redmi“, „Oppo“, „Vivo“, „Samsung“, „LG“ ir kt. “. Taigi„ Enum “pareiškimą galime sugrupuoti kartu su jų atitinkamomis vertybėmis.
„Enum“ mobilieji telefonai
Redmi = 12000
Oppo = 18000
„Vivo“ = 18000
„Samsung“ = 25000
LG = 15000
Pabaiga Enum
Taip sukūrėme tame straipsnyje išvardijimus. „Enum“ sakinio problema, nes jame gali būti tik ilgas duomenų tipas. Norėdami sugrupuoti kintamuosius su skirtingais duomenų tipais, galime naudoti „VBA TYPE pareiškimą“. Šiame straipsnyje mes parodysime, kaip sukurti tipo teiginį VBA. Skaityk…
Sintaksė
Prieš deklaruodami kintamuosius naudodami tipo sakinį, pažvelkite į sintaksę:
Įveskite grupės pavadinimą (1 kintamasis) kaip kintamą duomenų tipą (2 kintamasis) kaip kintamą duomenų tipą (3 kintamasis) kaip kintamojo duomenų tipą (4 kintamasis) kaip kintamojo duomenų tipą (5 kintamasis) kaip kintamo duomenų tipo pabaigos tipą
Tokio tipo teiginius galima deklaruoti modulyje, taip pat modulio viršuje, kaip mūsų visuotiniai kintamieji VBA.
„VBA Type“ gali turėti objektų kintamuosius. Jame gali būti masyvai. Tačiau jame negali būti procedūrų, funkcijų.
Tipo teiginio pavyzdys VBA
Gerai, leiskite pradėti kintamųjų deklaravimo procesą su tipu. Pamatysime tą patį pavyzdį, kaip deklaruoti „Mobile“ prekės ženklus, pavyzdžiui, kaip mes naudojome „VBA Enum“.
1 žingsnis: Modulio viršuje pradėkite žodį „Tipas“ ir pavadinkite grupės tipą.
Kodas:
Tipas „MobileBrands“ pabaigos tipas
2 žingsnis: „Mobile Brands“ - ką mes dažniausiai matome. Pirmiausia matome „Name“, todėl deklaruokite kintamąjį kaip pavadinimą kaip eilutę.
Kodas:
Įveskite „MobileBrands“ pavadinimą kaip eilutės pabaigos tipą
3 žingsnis: Po pavadinimo mes patikriname paleidimo datą. Paskelbkite kintamąjį kaip „LaunchDate“ kaip datą.
Kodas:
Įveskite „MobileBrands Name“ kaip eilutę „LaunchDate“ kaip datos pabaigos tipą
4 žingsnis: Kitas dalykas - patikriname saugojimo talpą. Paskelbti kintamąjį kaip „Storage as Integer“.
Kodas:
Įveskite „MobileBrands“ pavadinimą kaip eilutę „LaunchDate“ kaip datos saugyklą kaip sveikojo pabaigos tipą
5 žingsnis: Kitas dalykas yra patikrinti RAM talpą.
Kodas:
Įveskite „MobileBrands“ pavadinimą kaip eilutę „LaunchDate“ kaip datos saugyklą kaip RAM kaip sveiko pabaigos tipą
6 žingsnis: Pagaliau patikriname kainą.
Kodas:
Įveskite „MobileBrands“ pavadinimą kaip eilutės paleidimo datą kaip datos saugojimą kaip sveiką RAM, kaip sveiką kainą, kaip ilgą tipą
„Sub“ procedūroje paskelbdami kintamąjį kaip „Type“, „Name“, ty „MobileBrands“, galime pasiekti visus šiuos kintamųjų duomenų tipus.
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.
- 1 skirtumas: VBA tipe gali būti tik viešieji kintamieji. VBA klasėje gali būti tiek viešųjų, tiek privačių kintamųjų.
- 2 skirtumas: VBA tipe negali būti procedūrų ir funkcijų. VBA klasėje yra ir jų, ir savybių.
- 3 skirtumas: VBA tipą galima nurodyti bet kuriame modulyje ir procedūroje. VBA klasę galima deklaruoti tik tam skirtuose klasės moduliuose.
