VBA tipa paziņojums (piemērs) Kā deklarēt mainīgos ar VBA tipu?

Tips ir paziņojums VBA, ko izmanto, lai definētu mainīgos, kas līdzīgi funkcijai DIM, to izmantoja lietotāja definētā līmenī, kur mums ir viena vai vairākas vērtības mainīgajā, tipa paziņojumam ir divas nomenklatūras, kas ir publiska vai privāta tie nav obligāti lietojami, taču ir nepieciešami mainīgā nosaukums un elementa nosaukums.

Kas ir tipa paziņojums programmā Excel VBA?

VBA tipa paziņojums tiek izmantots, lai definētu mainīgos zem viena grupas nosaukuma, katram mainīgajam piešķirot dažādus datu tipus. Tas palīdz mums grupēt vairākus mainīgos zem viena objekta, lai tos izmantotu zem definētā tipa nosaukuma.

Deklarējot paziņojumu Type, mēs varam izvairīties no klases moduļu izmantošanas VBA. Tam nav nepieciešami virkņu moduļi, jo tos var iegult jau esošajos moduļos, kas var ietaupīt mums vietu.

Vienā no iepriekšējiem rakstiem mēs esam apsprieduši “VBA ENUM”, lai visus mainīgos sagrupētu zem vienas grupas nosaukuma.

Piemēram, ja jums ir grupas nosaukums ar nosaukumu “Mobiles”, mums ir tādi grupas dalībnieki kā “Redmi, Oppo, Vivo, Samsung, LG un citi…”. Tātad Enum paziņojumu mēs varam grupēt kopā ar viņu attiecīgajām vērtībām.

Enum Mobiles

Redmi = 12000

Opo = 18000

Vivo = 18000

Samsung = 25000

LG = 15000

Beigas Enum

Šādi mēs šajā rakstā esam izveidojuši uzskaitījumus. Problēma ar Enum paziņojumu, jo tajā var ievietot tikai LONG datu tipu. Lai grupētu mainīgos ar dažādiem datu tipiem, mēs varam izmantot “VBA TYPE paziņojumu”. Šajā rakstā mēs parādīsim, kā VBA izveidot tipa paziņojumu. Turpini lasīt…

Sintakse

Pirms deklarējat mainīgos, izmantojot ierakstu Type, apskatiet sintaksi:

Tips Group Name   (Variable 1) kā Variable Data Type   (Variable 2) kā Variable Data Type   (Variable 3) kā Variable datu tips   (Variable 4) kā Variable datu tips   (Variable 5) kā Variable Datu tips  End Type

Šāda veida paziņojumus var deklarēt gan modulī, gan moduļa augšdaļā, piemēram, mūsu globālos mainīgos VBA.

VBA tips var saturēt objektu mainīgos. Tajā var ievietot masīvus. Tomēr tajā nevar būt procedūras, funkcijas.

VBA veida paziņojuma piemērs

Labi, ļaujiet sākt mainīgo deklarēšanas procesu ar paziņojumu Type. Mēs redzēsim to pašu piemēru, kā deklarēt mobilos zīmolus, piemēram, kā mēs esam izmantojuši VBA Enum.

1. solis: Moduļa augšdaļā sāciet vārdu “Tips” un piešķiriet grupas tipam nosaukumu.

Kods:

Tips MobileBrands End Type

2. solis: mobilajās preču zīmēs mēs parasti redzam lietas. Vispirms mēs redzam vārdu Vārds, tāpēc deklarējiet mainīgo kā Nosaukums kā virkni.

Kods:

Ierakstiet MobileBrands nosaukumu kā virknes beigu veidu

3. solis: Pēc nosaukuma mēs pārbaudām palaišanas datumu. Pasludiniet mainīgo kā LaunchDate kā datumu.

Kods:

Ierakstiet MobileBrands nosaukumu kā virkni LaunchDate kā datuma beigu veidu

4. solis: Nākamā lieta ir pārbaudīt krātuves ietilpību. Lai mainīgo mainītu kā Storage kā Integer.

Kods:

Ierakstiet MobileBrands nosaukumu kā virkni LaunchDate kā datuma krātuvi kā veselu skaitļa beigu veidu

5. solis: Nākamā lieta ir pārbaudīt RAM ietilpību.

Kods:

Ierakstiet MobileBrands nosaukumu kā virkni LaunchDate kā datumu krātuvi kā RAM kā veselu beigu veidu

6. solis: Beidzot mēs pārbaudām cenu.

Kods:

Ierakstiet MobileBrands nosaukumu kā virknes palaišanas datumu kā datuma krātuvi kā veselo RAM kā veselo cenu kā garo galu.

Tagad apakšprocedūrā, deklarējot mainīgo kā Type, Name, ti, MobileBrands, mēs varam piekļūt visiem šiem mainīgo datu tipiem.

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. atšķirība: VBA tips var saturēt tikai publiskos mainīgos. VBA klasē var būt gan publiskie, gan privātie mainīgie.
  • 2. atšķirība: VBA tips nevar saturēt procedūras un funkcijas. VBA klase satur abus kopā ar īpašībām.
  • 3. atšķirība: VBA tipu var deklarēt jebkurā no moduļiem un procedūrām. VBA klasi var deklarēt tikai īpašos klases moduļos.

Interesanti raksti...