Այս ձեռնարկը ծրագրավորման օրինակների օգնությամբ կբացատրի VBA զանգվածը, զանգվածի տարբեր տեսակները, տարատեսակ զանգվածը և զանգվածի մեթոդները. մեկ տվյալների արժեքը. Այն ունի 1-ից 1 հարաբերություն, այսինքն՝ 1 փոփոխական 1 արժեքի դիմաց:
Այժմ պատկերացրեք, որ պահեք մի քանի արժեքներ, որոնք նույն տեսակի են: Բազմաթիվ փոփոխականներ ստեղծելու փոխարեն կարող եք պարզապես ստեղծել մեկ փոփոխական և պահպանել բոլոր նույն տեսակի արժեքները: Այս փոփոխականը կոչվում է ARRAY:
Այս ձեռնարկում, դուք կիմանաք, թե ինչ է VBA զանգվածը, միաչափ և երկչափ զանգվածները, ինչպես նաև տարբեր տեսակի զանգվածներ, ինչպիսիք են Fixed-ը և Dynamic-ը: Մենք նաև կհասկանանք զանգվածի տարբեր մեթոդներ, որոնք օգտագործվում են VBA-ում:
VBA Array
Զանգվածները փոփոխականի հատուկ տեսակ են, որը կարող է պահել նույն տվյալների տիպի մի քանի արժեքներ: .
Օրինակ, եթե ունեք 100 աշխատողի անուն, ապա տվյալների տիպի տողի 100 փոփոխական ստեղծելու փոխարեն կարող եք պարզապես ստեղծել string տիպի մեկ զանգվածի փոփոխական և նշանակել 100 արժեք։ նույն զանգվածի փոփոխականին:
Միաչափ զանգված
Այն զանգվածը, որն ունի բոլոր տարրերը մեկ տողում կամ մեկ սյունակում, կոչվում է Միաչափ զանգված: Դասարանի բոլոր ուսանողների անունները մեկ սյունակում թվարկելը միաչափ զանգվածի օրինակ է: Այն հայտարարված է ինչպես ցույց է տրվածզանգվածը հայտարարված է, ինչպես ցույց է տրված ստորև:
Dim ArrayName(FirstIndex to LastIndex, FirstIndex to LastIndex) Որպես DataType:
Օրինակ. Մութ նշաններ (1-ից 3-ը): , 0-ից 2) Որպես ամբողջ թիվ
Q #3) Ինչպե՞ս փոխարկել Range-ը զանգվածի:
Պատասխան. Մենք կարող ենք օգտագործել Transpose ֆունկցիան: միջակայքը զանգվածի վերածելու համար։ Այս կոդը կստեղծի Mys[10]
Sub Example() Dim Mys As Variant Mys = Application.Transpose(Range("A1:A10")) End Sub
Q #4) Ի՞նչ է զանգվածի տարբերակը VBA-ում:
Պատասխան. Տարբերակային զանգվածը կընդունի բոլոր տեսակի տվյալների տեսակներն իր ինդեքսի համար, այսինքն՝ դուք կարող եք տարբեր տեսակի արժեքներ պահել մեկ զանգվածում:
Օրինակ՝
Dim arrayData(3) As Variant
arrayData(0) = “Vikas Vipal”
arrayData(1) = 411234567890#
Զանգվածի չափափոխման եղանակները ընթացքում Runtime-ը, ինչպես նաև պահպանել արժեքները՝ օգտագործելով redim պահպանումը, քննարկվեցին օրինակներով: Վերջապես մենք սովորեցինք Array մեթոդները, որոնք կօգնեն մեզ մի քանի գործողություններ կատարելիս:
ներքևում:Մթնշաղված զանգվածի անունը (ներքևից դեպի վերև) որպես DataType
Զանգվածը հայտարարելու բազմաթիվ եղանակներ կան: Ստորև բերված են մի քանի օրինակներ:
Օրինակ.
#1) Dim MyArrayExample(0-ից 3) Որպես ամբողջ թիվ
Ստեղծում է զանգված 0,1,2,3 տեղակայմամբ, որը կընդունի ամբողջ արժեքները:
#2) Dim MyArray2(3) As String
Լռելյայն 0-ից 3-ին և ստեղծում է զանգված 0,1,2,3 դիրքով, որը կընդունի լարային արժեքները:
#3) Dim MyArray2(13-ից 15) որպես կրկնակի
Ստեղծում է զանգված՝ սկսած 13-ից, այսինքն՝ 13-ից, 14-ից և 15-ից և ընդունում կրկնակի արժեքներ: Մենք ներքևի սահմանը նշել ենք որպես 13, ուստի զանգվածը կսկսի արժեքներ հատկացնել 13-ից, քան 0-ից:
Եկեք ստեղծենք պարզ կոդ և հասկանանք զանգվածի հայտարարագրման բոլոր 3 եղանակները:
Նշում. VB կոդ գրելու համար բացեք Microsoft Excel-ը (աջակցվող տարբերակներն են Excel 2007, 2010, 2013, 2016, 2019): Անցեք Developer Tab -> Visual Basic (Այլընտրանքով օգտագործեք դյուրանցում Alt+F11): VB խմբագրիչում սեղմեք Տեղադրեք -> Մոդուլ և տեղադրեք ստորև բերված կոդը:
Դիտարկեք ստորև բերված ընթացակարգը, որը ցույց է տալիս տարբեր տեսակի հայտարարություններ:
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
Սեղմեք F5 կամ սեղմեք Գործիքադարակի վրա գործարկել կոճակը: կոդը գործարկելու համար:
Regular Variable Vs Array Variable
Մենք հիմա գիտենք, թե ինչպես է աշխատում միաչափ զանգվածը: Այսպիսով, եկեք մի պահ հասկանանք, թե ինչու են զանգվածներն այդքան կարևործրագրավորման լեզուներ։
Ենթադրենք, որ պետք է մուտքագրել 5 աշխատողի աշխատավարձ։ Սովորական փոփոխականի միջոցով դրան հասնելու համար դուք պետք է ստեղծեք 5 փոփոխական:
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
Այժմ եկեք կառուցենք նույն կոդը՝ օգտագործելով 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
Ահա, մենք հենց նոր օգտագործեցինք զանգվածի մեկ փոփոխական, որը կպահի աշխատողների բոլոր անունները: Ենթադրենք, որ դուք պետք է ավելացնեք ևս 100 աշխատակիցների անուն, այնուհետև դուք պարզապես պետք է փոխեք զանգվածի չափը և կարիք չկա ստեղծել նոր փոփոխական:
Սա կնվազեցնի կոդի տողերի քանակը և դրանով իսկ այն հեշտ կդարձնի: հասկանալի և ընթեռնելի:
Երկչափ զանգված
Երկչափ զանգվածն ունի 2 ինդեքս. առաջին ինդեքսը կներկայացնի տողերը, իսկ 2-րդը` սյունակը: Այն ունի բազմաթիվ տողեր և սյունակներ և սովորաբար ներկայացված է աղյուսակի ձևաչափով:
2 մթության զանգվածի հայտարարությունը հետևյալն է.
Dim ArrayName(FirstIndex To LastIndex, FirstIndex To LastIndex) Որպես DataType:
Դիտարկենք 3 առարկայից ստացված 2 ուսանողների գնահատականների պահպանման օրինակ: Այսպիսով, մենք կստեղծենք երկչափ զանգված, որը վերցնում է 2 տող և 3 սյունակ:
Զանգվածը կսկսենք 1-ից մինչև 2-րդ շարքը և 1-ին սյունակից մինչև 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
Հպեք F5: կամ սեղմեք «Գործարկել» կոճակը գործիքագոտու վրա՝ կոդը գործարկելու համար:
Տող 2 և սյունակ 2
Տող 1 և 3-րդ սյունակ
Ֆիքսված զանգվածներ
Ֆիքսված զանգվածներ, որոնք նաև կոչվում են ստատիկԶանգվածներն ունեն ֆիքսված ստորին և վերին սահման, և այս չափը հնարավոր չէ փոխել գործարկման ժամանակ: Զանգվածի չափը նշվում է փակագծերում հայտարարագրման ժամանակ: Վերոնշյալ բոլոր օրինակները ֆիքսված զանգվածներ են, քանի որ մենք նշել ենք դրանց չափը հայտարարագրման ժամանակ:
Ֆիքսված զանգվածները սովորաբար օգտագործվում են, երբ վստահ եք զանգվածի չափին: Օրինակ, շաբաթվա օրերի քանակը, դուք կարող եք ստեղծել զանգված ներքևի սահմանով 0 և վերին եզրագծով 6 և վստահ լինել, որ երբեք չեք փոխի դրա չափը:
Dynamic Arrays
Դինամիկ զանգվածները մեզ թույլ են տալիս փոփոխել զանգվածի չափերը գործարկման ընթացքում: Սրանք օգտակար են, երբ վստահ չեք զանգվածի չափի մասին: Ենթադրենք, քոլեջ ընդունվելիս դուք չեք կարող վստահ լինել, թե իրականում քանի ուսանող կստանա ընդունելություն, այնպես որ դուք չեք կարող որոշել չափը նախագծման կամ հայտարարագրման ժամանակ:
Դինամիկ զանգվածի հայտարարումը նման է ստատիկին: զանգված դատարկ փակագծերով:
Dim Employee() As String
REDIM
Երբ ցանկանում ենք փոխել չափը, մենք պետք է օգտագործենք REDIM , մենք պետք է նկատենք, որ ստորին սահմանը հնարավոր չէ փոխել, մենք կարող ենք փոխել միայն զանգվածի վերին սահմանը:
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
Այժմ մենք գիտենք, որ կարող ենք փոխել զանգվածի չափը գործարկման ժամանակ, հետևաբար մենք կարող ենք օգտագործել ReDim հայտարարությունը, երբ անհրաժեշտ է մեծացնել զանգվածի ubound-ը: Փորձենք ևս մեկ անգամ մեծացնել զանգվածի չափը և ավելացնել նորըուսանողի անուն:
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
Դուք նկատած կլինեիք, որ արդյունքը ցույց չի տալիս նախկինում ավելացված ուսանողների անունները, այն տալիս է զրոյական արժեք: Դա պայմանավորված է նրանով, որ Redim հայտարարությունը կստեղծի նոր զանգված նոր չափերով և կկործանի հին արժեքները:
ReDim Preserve
Represerve հայտարարությունը օգնում է մեզ հաղթահարել ReDim-ի սահմանափակումը՝ պահպանելով հին արժեքները: և դրանով իսկ մեծացնելով զանգվածի չափը:
Եկեք վերագրենք վերը նշված կոդը՝ օգտագործելով 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
Ինչպես օգտագործել ենք պահպանել հիմնաբառը, նախկինում մուտքագրված արժեքները չեն կորչում, և նոր արժեքը հաջողությամբ ավելացվում է:
Տարբերակային զանգված
Մինչ այժմ մենք տեսել ենք զանգված, որն ընդունում է նույն տեսակի արժեքները: Հիմա եկեք զանգվածը հայտարարենք որպես տարբերակ և պահենք տարբեր տեսակի տվյալներ, ինչպիսիք են String, Date, Long, Integer մեկ զանգվածում:
Օրինակ՝
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
VBA զանգվածի մեթոդներ
ՎԲԱ զանգվածներում կան մի քանի մեթոդներ, որոնք կօգնեն մեզ կատարել տարբեր գործառույթներ, ինչպես նշված է ստորև:
Սլ. Ոչ | Անուն | Շարահյուսություն | Նկարագրություն |
---|---|---|---|
1 | Զանգված | Array(arglist) | Փոխակերպում է կանոնավոր տարբերակը փոփոխական զանգվածի: |
2 | Ջնջել | Ջնջել զանգվածի անունը | Օգտագործվում է ֆիքսված չափի զանգվածը վերատեղադրելու համար և ազատում է Dynamic-ի հիշողությունըզանգված: |
3 | IsArray | IsArray (փոփոխական անուն) | Որոշում է արդյոք փոփոխականը զանգված է: |
4 | Lbound | LBound( ArrayName, [Dimension] ) | Վերադարձնում է զանգվածի ամենացածր մակագրությունը : |
5 | Ubound | UBound( ArrayName , [Dimension] ) | Վերադարձնում է զանգվածի ամենաբարձր ենթատեքստը : |
6 | Սպլիտ | Սպլիտ (արտահայտում, [ սահմանազատիչ, [ սահման, [ համեմատել ]]]) | Այն տողը բաժանում է բազմաթիվ ենթատողերի և վերադարձնում զրոյական զանգված: |
7 | Միանալ | Միանալ(աղբյուրի զանգված, [ սահմանազատիչ ]) | Միացնում է զանգվածի մի քանի ենթատողեր և վերադարձնում տողի արժեքը . |
8 | Զտիչ | Զտիչ (աղբյուրների զանգված, համընկնում, [ ներառում, [ համեմատել ]]) | Զտիչը թույլ կտա մեզ որոնել նշված համընկնում զանգվածից: |
Եկեք մանրամասն քննարկենք դրանցից յուրաքանչյուրը օրինակով:
#1) Զանգված
Եկեք հայտարարենք սովորական տարբերակ փոփոխական և օգտագործենք այն որպես զանգված։ Երբ դուք ցանկանում եք փոխել սովորական տարբերակի փոփոխականը զանգվածի, մենք պետք է օգտագործենք ARRAY ֆունկցիան, ինչպես ցույց է տրված ստորև բերված օրինակում:
Զանգվածի ֆունկցիաները ընդունում են արգումենտ, որը պարունակում է ստորակետերով բաժանված արժեքներ: . Այս արժեքները վերագրվում են որպես զանգվածի տարր:
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
Դուք պետք է նույնականացնեք զանգվածի փոփոխականը՝ օգտագործելով ինդեքսը,հետևաբար վերը նշված օրինակում արժեքները վերցվում են որպես varData(0) varData(2) varData(3):
#2) Ջնջել
Այս ֆունկցիան կջնջի մուտքագրված բոլոր արժեքները: ֆիքսված չափի զանգված և կազատի հիշողության տարածքը դինամիկ զանգվածի համար:
Սինտաքս. Ջնջել զանգվածի անունը
Ջնջելն ունի տարբեր վարքագիծ տվյալների տարբեր տեսակների համար, ինչպես տրված է: ստորև։
- Հաստատուն թվի համար՝ Բոլոր արժեքները զրոյացված են։
- Ֆիքսված տողային տվյալների տիպի համար՝ Բոլոր արժեքները վերակայվում են զրոյական երկարության:
- Դինամիկ զանգվածի համար. Ազատում է զանգվածի կողմից օգտագործվող հիշողությունը:
Օրինակ :
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
Արդյունք նախքան Ջնջել ֆունկցիան օգտագործելը
Արդյունք Ջնջել օգտագործելուց հետո
#3) IsArray
Այս ֆունկցիան օգտագործվում է որոշելու համար՝ տվյալ մուտքային փոփոխականը զանգված է, թե ոչ։ Այն վերադարձնում է true, եթե մուտքագրված փոփոխականը true է, հակառակ դեպքում վերադարձնում է false:
Սինտաքս : IsArray (փոփոխական անուն)
Օրինակ՝
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
Արդյունքը առաջին Msgbox-ից
Արդյունքը երկրորդ msgbox-ից
#4) Lbound
Վերադարձնում է զանգվածի ամենացածր մակագրությունը, որը նշված է որպես Lbound ֆունկցիայի արգումենտ:
Շարահյուսություն. LBound(ArrayName, [Dimension] )
ArrayName-ը զանգվածի անունն է:
Dimension-ը կամընտիր ամբողջ թիվ է, եթե զանգվածն ունի բազմաթիվ չափեր, ապա կարող եք նշել.որ չափն եք ուզում որոշել Lbound-ը:
Օրինակ՝
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
Այն վերադարձնում է զանգվածի վերին մակագրությունը, որը նշված է որպես Ubound ֆունկցիայի արգումենտ:
Սինտաքս. UBound( ArrayName, [Dimension] )
ArrayName-ի անունն է: զանգված:
Չափը կամընտիր ամբողջ թիվ է, եթե զանգվածն ունի մի քանի չափսեր, ապա կարող եք նշել, թե որ չափն եք ուզում որոշել Ubound-ը:
Օրինակ.
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
Այն վերադարձնում է զանգված՝ մի շարք ենթատողերով, որոնք ստացվում են տվյալ ամբողջ տողից։
Շարահյուսություն. Split (արտահայտություն, [ սահմանազատիչ, [ սահման, [ համեմատել ]]])
- Արտահայտություն. Սա ամբողջ տողն է, որը կօգտագործվի արտադրել ենթատողեր։
- Սահմանազատիչ. Նշված սահմանազատիչի օգնությամբ կստեղծվեն ենթատողեր։ Եթե դա նշված չէ, ապա բացատը համարվում է սահմանազատող:
- Սահմանափակ. արտադրվում է ենթատող, արդյունքը ստուգելու համար կարող եք օգտագործել համեմատման տարբեր տարբերակներ:
Օրինակ>
Հետևաբար, split ֆունկցիան կբաժանի ամբողջ տողը ենթալարի՝ հիմնվելով սահմանազատողի վրա: Բայց մենք նշել ենք նաև սահմանը որպես 3, ուստի ենթատողեր չեն ձևավորվի 3-ից հետո: Այսպիսով, վերջին սահմանազատիչը.բաց կթողնվի:
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) Միանալ
Սա բաժանման հակառակն է, Join-ը կստեղծի մեկ տող՝ միավորելով մի քանի ենթատողեր:
Շարահյուսություն. Join(sourcearray, [ delimiter ])
Sourcearray. Տողերի միաչափ զանգված, որը ցանկանում եք միացնել մեկին:
Սահմանիչ. Նշված սահմանազատիչը կավելացվի յուրաքանչյուր տողից հետո միանալիս:
Օրինակ՝
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
Բոլոր 3 արժեքներն են միացված է և \-ը տեղադրվում է յուրաքանչյուր բառի միջև, ինչպես մենք նշել ենք \ որպես սահմանազատող:
#8) Զտիչ
Զտիչը թույլ կտա մեզ որոնել որոշակի համընկնում զանգվածից: Ֆիլտրի չափանիշների հիման վրա լարային զանգվածի ենթաբազմությունը կվերադարձվի:
Շարահյուսություն. Զտել (աղբյուրային զանգված, համընկնում, [ ներառել, [ համեմատել ]])
Օրինակ.
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
Այս օրինակը կփնտրի «օգնություն» բառը զանգվածի ողջ տողում՝ օգտագործելով զտիչ ֆունկցիան:
Հաճախ տրվող հարցեր
Հ #1) Ինչպե՞ս ստանալ զանգվածի երկարությունը VBA-ում:
Պատասխան. Որպեսզի ստանալ զանգվածի երկարությունը զանգված, մենք օգտագործում ենք Ubound ֆունկցիան։ Այս ֆունկցիան մեզ կտա նշված զանգվածի վերին մակագրությունը:
Հ #2) Ինչպե՞ս հայտարարել զանգված VBA-ում:
Պատասխան. Մեկ- ծավալային զանգվածը հայտարարված է, ինչպես ցույց է տրված ստորև:
Dim arrayname(Lowerbound To Upper Bound) As DataType
Օրինակ. Dim Myarray(0-ից 2) Որպես ամբողջ թիվ
Երկչափ