Ky tutorial do të shpjegojë VBA Array, llojet e ndryshme të grupeve, variantet dhe metodat e grupeve me ndihmën e shembujve të programimit:
Një variabël e rregullt VBA është një mbajtës vendi që ruan vlera e një të dhënë të vetme. Ka një lidhje 1 me 1, pra 1 ndryshore për 1 vlerë.
Tani imagjinoni të ruani vlera të shumta që janë të të njëjtit lloj. Në vend që të krijoni variabla të shumta, mund të krijoni vetëm një variabël dhe të ruani të gjitha llojet e njëjta të vlerave. Kjo variabël quhet ARRAY.
Në këtë tutorial, do të mësoni se çfarë është një grup VBA, vargje njëdimensionale dhe dydimensionale së bashku me llojet e ndryshme të grupeve si Fixed dhe Dynamic. Do të kuptojmë gjithashtu metoda të ndryshme të grupeve që përdoren në VBA.
VBA Array
Arrays janë një lloj i veçantë variabli që mund të ruajë vlera të shumta të të njëjtit lloj të dhënash .
Për shembull, nëse keni emrat e 100 punonjësve, atëherë në vend që të krijoni 100 variabla të vargut të tipit të të dhënave, mund të krijoni vetëm një variabël vargu të tipit string dhe të caktoni 100 vlera tek e njëjta variabël e vargut.
Vargu njëdimensional
Një varg që i ka të gjithë elementët në një rresht ose në një kolonë të vetme quhet varg njëdimensional. Renditja e emrave të të gjithë nxënësve të klasës në një kolonë të vetme është një shembull i një grupi njëdimensional. Është deklaruar siç tregohetgrupi është deklaruar siç tregohet më poshtë.
Dim ArrayName(FirstIndex to LastIndex, FirstIndex to LastIndex) Si DataType.
Shembull: Shenjat e zbehta(1 në 3 , 0 në 2) Si numër i plotë
Q #3) Si të konvertohet Gama në Array?
Përgjigje: Mund të përdorim funksionin Transpozim për të kthyer diapazonin në një grup. Ky kod do të krijojë Mys[10]
Sub Example() Dim Mys As Variant Mys = Application.Transpose(Range("A1:A10")) End Sub
P #4) Çfarë është një variant grupi në VBA?
Përgjigje: Një grup variant do të pranojë të gjitha llojet e llojeve të të dhënave për indeksin e tij, d.m.th. ju mund të ruani lloje të ndryshme vlerash në një grup të vetëm.
Shembull:
Dim arrayData(3) As Variant
arrayData(0) = “Vikas Vipal”
arrayData(1) = 411234567890#
Mënyrat për të ndryshuar madhësinë e grupit gjatë koha e ekzekutimit dhe gjithashtu ruajtja e vlerave duke përdorur redim ruaj u diskutuan me shembuj. Së fundi, mësuam metodat e Array që do të na ndihmojnë në kryerjen e disa operacioneve.
më poshtë.Emri i grupit të zbehtë (lidhja e poshtme në kufirin e sipërm) si lloji i të dhënave
Ka shumë mënyra për të deklaruar një grup. Më poshtë janë dhënë disa shembuj.
Shembull:
#1) Dim MyArrayShembull(0 deri në 3) si numër i plotë
Krijon një grup me vendndodhjen 0,1,2,3 që do të pranojë vlerat e numrave të plotë.
#2) Dim MyArray2(3) As String
Parazgjedhur nga 0 në 3 dhe krijon një grup me vendndodhjen 0,1,2,3 që do të pranojë vlerat e vargut.
#3) Dim MyArray2(13 deri në 15) As Double
Krijon një grup duke filluar nga 13 d.m.th. 13, 14 dhe 15 dhe pranon vlera të dyfishta. Ne kemi përmendur kufirin e poshtëm si 13, kështu që grupi do të fillojë të ndajë vlera nga vendndodhja 13 në vend të 0.
Le të krijojmë një kod të thjeshtë dhe të kuptojmë të 3 mënyrat e deklarimit të grupit.
Shënim: Për të shkruar kodin VB, hapni Microsoft Excel (versionet e mbështetura janë Excel 2007, 2010, 2013, 2016, 2019). Navigo te Skeda e Zhvilluesit -> Visual Basic (Përndryshe përdorni shkurtoren Alt+F11). Në redaktorin VB, klikoni në Fut -> Modulo dhe ngjit kodin e mëposhtëm.
Shqyrto procedurën e mëposhtme që tregon llojet e ndryshme të deklaratave.
Private Sub arrayExample1() Dim firstQuarter(0 To 2) As String ‘creates array with index 0,1,2 firstQuarter(0) = "Jan" firstQuarter(1) = "Feb" firstQuarter(2) = "Mar" MsgBox "First Quarter in calendar " & " " & firstQuarter(0) & " " & firstQuarter(1) & " " & firstQuarter(2) End Sub Private Sub arrayExample2() Dim secondQuarter(2) As String ‘creates array with index 0,1,2 secondQuarter(0) = "April" secondQuarter(1) = "May" secondQuarter(2) = "June" MsgBox "Second Quarter in calendar " & " " & secondQuarter(0) & " " & secondQuarter(1) & " " & secondQuarter(2) End Sub Private Sub arrayExample3() Dim thirdQuarter(13 To 15) As String ‘creates array with index 13,14,15 thirdQuarter(13) = "July" thirdQuarter(14) = "Aug" thirdQuarter(15) = "Sep" MsgBox "Third Quarter in calendar " & " " & thirdQuarter(13) & " " & thirdQuarter(14) & " " & thirdQuarter(15) End Sub
Shtypni F5 ose shtypni butonin ekzekutim në shiritin e veglave për të ekzekutuar kodin.
Variabla e rregullt Vs Variabla e vargut
Tani e dimë se si funksionon një grup njëdimensional. Pra, le të marrim një moment për të kuptuar pse vargjet janë kaq të rëndësishme nëgjuhët e programimit.
Supozoni se duhet të futni pagën e 5 punonjësve. Për ta arritur këtë duke përdorur një variabël të rregullt, duhet të krijoni 5 variabla.
Public Sub RegularVariable() Dim shet As Worksheet Set shet = ThisWorkbook.Worksheets("Sheet1") ' Declare variable for each student Dim Emp1 As String Dim Emp2 As String Dim Emp3 As String Dim Emp4 As String Dim Emp5 As String ' Read student marks from cell Emp1 = shet.Range("A" & 2).Value Emp2 = shet.Range("A" & 3).Value Emp3 = shet.Range("A" & 4).Value Emp4 = shet.Range("A" & 5).Value Emp5 = shet.Range("A" & 6).Value ' Print student marks Debug.Print "Emp Name" Debug.Print Emp1 Debug.Print Emp2 Debug.Print Emp3 Debug.Print Emp4 Debug.Print Emp5 End Sub
Tani le të ndërtojmë të njëjtin kod duke përdorur një variabël Array.
Option Explicit Public Sub ArrayVarible() Dim shet As Worksheet Set shet = ThisWorkbook.Worksheets("Sheet1") Dim Employee(1 To 6) As String Dim i As Integer For i = 1 To 6 Employee(i) = shet.Range("A" & i).Value Debug.Print Employee(i) Next i End Sub
Këtu, sapo kemi përdorur një variabël të grupit që do të ruajë të gjithë emrat e punonjësve. Supozoni se ju duhet të shtoni 100 emra të tjerë punonjësish, atëherë thjesht duhet të ndryshoni madhësinë e grupit dhe nuk keni nevojë të krijoni një variabël të ri.
Kjo do të zvogëlojë numrin e rreshtave në kod dhe në këtë mënyrë do ta bëjë atë lehtësisht i kuptueshëm dhe i lexueshëm.
Vargu dydimensional
Një grup 2-dimensional ka 2 indekse – indeksi i parë do të përfaqësojë rreshtat dhe indeksi i dytë do të përfaqësojë kolonën. Ai ka shumë rreshta dhe kolona dhe zakonisht përfaqësohet në një format tabele.
Deklarimi i një grupi 2 dim është si më poshtë:
Dim ArrayName(FirstIndex Te LastIndex, FirstIndex Te LastIndex) Si DataType.
Merrni parasysh një shembull të ruajtjes së notave të 2 nxënësve të marra në 3 lëndë. Pra, ne do të krijojmë një grup 2-dimensional që merr 2 rreshta dhe 3 kolona.
Ne do të fillojmë grupin nga rreshti 1 në rreshtin 2 dhe kolona 1 në kolonën 3.
Sub Twodim() Dim totalMarks(1 To 2, 1 To 3) As Integer totalMarks(1, 1) = 23 totalMarks(2, 1) = 34 totalMarks(1, 2) = 33 totalMarks(2, 2) = 55 totalMarks(1, 3) = 45 totalMarks(2, 3) = 44 Msgbox “Total Marks in Row 2 and column 2 is “ &totalMarks(2,2) Msgbox “Total Marks in Row 1 and column 3 is “ &totalMarks(1,3) End Sub
Hitni F5 ose Shtypni butonin e ekzekutimit në shiritin e veglave për të ekzekutuar kodin.
Rreshti 2 dhe kolona 2
Rreshti 1 dhe Kolona 3
Vargjet e fiksuara
Vargjet fikse të quajtura edhe statikeVargjet kanë një kufi të poshtëm dhe të sipërm fiks dhe kjo madhësi nuk mund të ndryshohet në kohën e ekzekutimit. Madhësia e grupit specifikohet gjatë deklarimit brenda kllapave. Të gjithë shembujt e mësipërm janë vargje të fiksuara pasi e kemi përmendur madhësinë e tyre gjatë deklarimit.
Sarretet fikse zakonisht përdoren kur jeni të sigurt për madhësinë e grupit. Për shembull, numri i ditëve në javë, ju mund të krijoni një grup me kufirin e poshtëm 0 dhe kufirin e sipërm 6 dhe të jeni të sigurt se nuk do ta ndryshoni kurrë madhësinë e tij.
Vargjet dinamike
Arrays dinamike na lejojnë të ndryshojmë madhësinë e grupit gjatë kohës së ekzekutimit. Këto janë të dobishme kur nuk jeni të sigurt për madhësinë e grupit. Supozoni se në pranimin në kolegj, ju mund të mos jeni të sigurt se sa studentë do të marrin në të vërtetë pranimin, kështu që nuk mund të përcaktoni madhësinë në kohën e projektimit ose të deklarimit.
Deklarimi i një grupi dinamik është i ngjashëm me një statik grup me kllapa boshe.
Dim Employee() As String
REDIM
Kur duam të ndryshojmë madhësinë duhet të përdorim REDIM , duhet të kemi parasysh se kufiri i poshtëm nuk mund të ndryshohet, ne mund të ndryshojmë vetëm kufirin e sipërm të grupit.
Sub dynamicArray() Dim dynArray() As String Dim curdate As Date curdate = Now ReDim dynArray(2) ‘ Redim will help to change the array size during runtime dynArray(0) = "John" dynArray(1) = "Tom" dynArray(2) = "Tonny" MsgBox "Students Enrolled after " & curdate & " are “ & dynArray(0) & ", " & dynArray(1) & ", " & dynArray(2) End Sub
Tani, ne e dimë se mundemi ndryshojmë madhësinë e grupit gjatë kohës së ekzekutimit, kështu që ne mund të përdorim deklaratën ReDim sa herë që duhet të rrisim ubound-in e një grupi. Le të përpiqemi të rrisim madhësinë e grupit edhe një herë dhe të shtojmë një të reemri i studentit.
Sub RedimExample() Dim dynArray() As String Dim curdate As Date curdate = Now Dim size As Integer ReDim dynArray(2) dynArray(0) = "John" dynArray(1) = "Tom" dynArray(2) = "Tonny" MsgBox "Students Enrolled untill " & curdate & " are " & dynArray(0) & ", " & dynArray(1) & ", " & dynArray(2) ReDim dynArray(3) ‘ Redim will reinitialise the array and destroy the old values dynArray(3) = "John" MsgBox "Students Enrolled untill " & curdate & " are " & dynArray(0) & ", " & dynArray(1) & ", " & dynArray(2) & " , " & dynArray(3) End Sub
Do të kishit vërejtur se rezultati nuk shfaqi emrat e studentëve të shtuar më parë, ai jep një vlerë nule. Kjo është për shkak se deklarata Redim do të krijojë një grup të ri me një madhësi të re dhe do të shkatërrojë vlerat e vjetra.
ReDim Preserve
Deklarata Represerve na ndihmon të kapërcejmë kufizimin e ReDim duke ruajtur vlerat e vjetra dhe duke rritur kështu madhësinë e grupit.
Le të rishkruajmë kodin e mësipërm duke përdorur ReDim Preserve.
Sub preserveExample() Dim dynArray() As String Dim curdate As Date curdate = Now Dim size As Integer ReDim dynArray(2) dynArray(0) = "John" dynArray(1) = "Tom" dynArray(2) = "Tonny" MsgBox "Students Enrolled untill " & curdate & " are " & dynArray(0) & ", " & dynArray(1) & ", " & dynArray(2) ReDim preserve dynArray(3) ‘ Redim preserve will retain the old values dynArray(3) = "John" MsgBox "Students Enrolled untill " & curdate & " are " & dynArray(0) & ", " & dynArray(1) & ", " & dynArray(2) & " , " & dynArray(3) End Sub
Siç kemi përdorur Fjala kyçe ruaj, vlerat e futura më parë nuk humbasin dhe vlera e re shtohet me sukses.
Variant Array
Deri tani kemi parë një grup që pranon të njëjtin lloj vlerash. Tani le ta deklarojmë grupin si një variant dhe të ruajmë llojet e ndryshme të të dhënave si String, Date, Long, Integer në një grup të vetëm.
Shembull:
Sub arrayVariant() Dim arrayData(3) As Variant arrayData(0) = "Vikram Vikrant" arrayData(1) = 411234567890# arrayData(2) = 38 arrayData(3) = "06-09-1972" MsgBox "Details of person " & arrayData(0) & " is " & " Phone No " & arrayData(1) & " ,Id " & arrayData(2) & " ,DOB " & arrayData(3) End Sub
Metodat e vargjeve VBA
Ka disa metoda në vargjet VBA që do të na ndihmojnë të kryejmë funksione të ndryshme, siç përmendet më poshtë.
Sl. Nr | Emri | Sintaksa | Përshkrim |
---|---|---|---|
1 | Array | Array(arglist) | Konverton një variant të rregullt ndryshore në një grup. |
2 | Fshi | Fshi emrin e grupit | Përdoret për të riintalizuar grupin me madhësi fikse dhe liron memorien për "Dynamic"grupi. |
3 | IsArray | IsArray (emri i ndryshores) | Përcakton nëse një ndryshorja është një grup. |
4 | Lbound | LBound( Emri i grupit, [Dimensioni] ) | Kthen nënshkrimin më të ulët të një grupi. |
5 | Ubound | UBound( ArrayName , [Dimensioni] ) | Kthen nënshkrimin më të lartë të një grupi. |
6 | Ndarje | Ndarje (shprehje, [ përcaktues, [ limit, [ krahaso ]]]) | Ndan një varg në nënvargje të shumta dhe kthen një grup me bazë zero. |
7 | Bashkojuni | Bashkohuni (arrare burimore, [ delimiter ]) | Lidh nënvargje të shumta në një grup dhe kthen një vlerë vargu . |
8 | Filtri | Filtri(gazeta burimore, përputhje, [ përfshi, [ krahaso ]]) | Filtri do të na lejojë të kërkojmë një përputhje të specifikuar nga një grup. |
Le të diskutojmë secilën prej tyre në detaje me një shembull.
#1) Array
Le të deklarojmë një variabël të rregullt dhe ta përdorim atë si një grup. Kur dëshironi të ndryshoni një variabël variant të rregullt në një grup, ne duhet të përdorim një funksion ARRAY siç tregohet në shembullin e mëposhtëm.
Funksionet e vargut pranojnë një argument që përmban vlera të ndara me presje . Këto vlera janë caktuar si një element i grupit.
Sub variantArray() Dim varData As Variant varData = Array("Mon Bel", "+61 112334123", 567, "06-09-1972") MsgBox "Details of person " & varData(0) & " is " & " Phone No " & varData(1) & " ,Id " & varData(2) & " ,DOB " & varData(3) End Sub
Ju duhet të identifikoni një variabël vargu duke përdorur një indeks,prandaj në shembullin e mësipërm, vlerat janë marrë si varData(0) varData(2) varData(3).
#2) Erase
Ky funksion do të fshijë të gjitha vlerat e futura për një grupi me madhësi fikse dhe do të lirojë hapësirën e memories për një grup dinamik.
Sintaksa: Fshij emrin e grupit
Erase ka sjellje të ndryshme për lloje të ndryshme të dhënash siç është dhënë më poshtë.
- Për një numerikë fikse: Të gjitha vlerat janë rivendosur në zero.
- Për një lloj të dhënash vargu fiks: Të gjitha vlerat janë rivendosur në gjatësinë zero.
- Për një grup dinamik: Çliron kujtesën e përdorur nga grupi.
Shembull :
Sub eraseExample() Dim NumArray(3) As Integer Dim decArray(2) As Double Dim strArray(2) As String NumArray(0) = 12345 decArray(1) = 34.5 strArray(1) = "Erase Function" Dim DynaArray() ReDim DynaArray(3) MsgBox " Values before Erase " & (NumArray(0)) & "," & (decArray(1)) & " , " & (strArray(1)) Erase NumArray Erase decArray Erase strArray Erase DynaArray ' Free the memory ' All values are erased. MsgBox " Values after Erase " & NumArray(0) & "," & decArray(1) & " , " & strArray(1) End Sub
Rezultati para përdorimit të funksionit "Fshi"
Rezultati pas përdorimit të "Fshi"
#3) IsArray
Ky funksion përdoret për të përcaktuar nëse ndryshorja hyrëse e dhënë është një grup apo jo. Ajo kthen true nëse ndryshorja e futur është e vërtetë, përndryshe kthen false.
Sintaksa : IsArray (emri i ndryshores)
Shembull:
Sub isArrayTest() Dim arr1, arr2 As Variant arr1 = Array("Jan", "Feb", "Mar") arr2 = "12345" MsgBox ("Is arr1 an Array : " & IsArray(arr1)) MsgBox ("Is arr2 an Array : " & IsArray(arr2)) End
Rezultati nga kutia e parë e mesazheve
Rezultati nga kutia e dytë e mesazheve
#4) Lbound
E kthen nënshkrimin më të ulët të grupit të specifikuar si argument për funksionin Lbound.
Sintaksa: LBound(ArrayName, [Dimensioni] )
ArrayName është emri i grupit.
Dimensioni është vlera opsionale e numrit të plotë, nëse grupi ka dimensione të shumëfishta, atëherë mund të specifikonicilin dimension dëshironi të përcaktoni Lbound.
Shembull:
Sub lboundTest() Dim Result1, Result2, Result3 Dim ArrayValue(1 To 10, 5 To 15, 10 To 20) ' Declare array variables. Dim Arraywithoutlbound(10) Result1 = LBound(ArrayValue, 1) ' Returns 1. Result2 = LBound(ArrayValue, 3) ' Returns 10. Result3 = LBound(Arraywithoutlbound) MsgBox "Lowest subscript in first array " & Result1 & " lowest subscript in 3rd array " & Result2 & " Lowest subscript in Arraywithoutlbound " & Result3 End Sub
#5) Ubound
It kthen nënshkrimin e sipërm të grupit të specifikuar si argument në funksionin Ubound.
Sintaksa: UBound( ArrayName, [Dimension] )
ArrayName është emri i grupi.
Dimensioni është vlera opsionale e numrit të plotë, nëse grupi ka dimensione të shumëfishta, atëherë mund të specifikoni se cilin dimension dëshironi të përcaktoni Ubound.
Shembull:
Sub UboundTest() Dim Result1, Result2, Result3 Dim ArrayValue(1 To 10, 5 To 15, 10 To 20) ' Declare array variables. Dim ArraywithoutUbound(10) Result1 = UBound(ArrayValue, 1) Result2 = UBound(ArrayValue, 3) Result3 = UBound(ArraywithoutUbound) MsgBox "Lowest subscript in first array " & Result1 & " lowest subscript in 3rd array " & Result2 & " Lowest subscript in Arraywithoutlbound " & Result3 End Sub
#6) Split
Kthon një varg me një numër nënvargjesh që rrjedhin nga vargu i plotë i dhënë.
Sintaksa: Split(shprehje, [ kufizues, [ kufi, [ krahaso ]]])
- Shprehje: Ky është i gjithë vargu që do të përdoret për prodhojnë nënvargje.
- Delimiter: Duke përdorur ndarësin e specifikuar, do të krijohen nënvargje. Nëse kjo nuk përmendet, atëherë hapësira konsiderohet si ndarës.
- Limiti: Numri i nënvargjeve që do të kthehen.
- Krahaso: Pas është prodhuar nënvarg, ju mund të përdorni opsione të ndryshme krahasimi për të testuar rezultatin.
Shembull: Në shembullin e mëposhtëm, ne përdorim kufirin si – dhe limitin si 3.
Prandaj funksioni i ndarjes do të ndajë të gjithë vargun në nënvarg bazuar në kufizuesin. Por ne e kemi përmendur edhe kufirin si 3 kështu që nënvargjet nuk do të formohen pas kufirit 3. Kështu kufizuesi i fundit -do të anashkalohet.
Sub splitExample() Dim MyString As String Dim Result() As String Dim DisplayText As String MyString = "This is the example for-VBA-Split-Function" Result = Split(MyString, "-",3) MsgBox Result(0) & vbNewLine & Result(1) & vbNewLine & Result(2) & vbNewLine & Result(3) End Sub
#7) Bashkohu
Kjo është vetëm e kundërta e ndarjes, Join do të krijojë një varg duke kombinuar disa nënvargje.
Sintaksa: Join(array burimi, [ delimiter ])
Sourcearray: Grare njëdimensionale vargjesh që dëshironi t'i bashkoni në një.
Delimiter: Kufizuesi i specifikuar do të shtohet pas çdo vargu gjatë bashkimit.
Shembull:
Sub joinExample() Dim Result As String Dim dirarray(0 To 2) As String dirarray(0) = "D:" dirarray(1) = "SoftwareTestingHelp" dirarray(2) = "Arrays" Result = Join(dirarray, "\") MsgBox "Date after joining " & Result End Sub
Të 3 vlerat janë i bashkuar dhe \ vendoset ndërmjet secilës fjalë, siç e kemi përmendur \ si ndarës.
#8) Filtri
Filtri do të na lejojë të kërkoni për një përputhje të caktuar nga një grup. Bazuar në kriteret e filtrit, nëngrupi i një grupi vargjesh do të kthehet.
Sintaksa: Filter(arresë burimore, përputhje, [ përfshi, [ krahaso ]])
Shembull:
Sub filterExample() Dim Mystring As Variant Mystring = Array("Software Testing", "Testing help", "Software help") filterString = Filter(Mystring, "help") MsgBox "Found " & UBound(Mystring) - LBound(Mystring) + 1 & " words matching the criteria " End Sub
Ky shembull do të kërkojë fjalën "ndihmë" në të gjithë vargun e grupit duke përdorur funksionin e filtrit.
Pyetjet e bëra më shpesh
P #1) Si të merrni gjatësinë e një grupi në VBA?
Përgjigja: Për të marrë gjatësinë e një grup, ne përdorim funksionin Ubound. Ky funksion do të na japë një nënshkrim të sipërm të një grupi të caktuar.
P #2) Si të deklarojmë një grup në VBA?
Përgjigje: Një- grupi dimensional është deklaruar siç tregohet më poshtë.
Emri i grupit të zbehtë (lidhja e poshtme në kufirin e sipërm) si tipi i të dhënave
Shembull: Dim Myarray(0 në 2) si numër i plotë
Një dydimensionale