මෙම නිබන්ධනය මඟින් ක්රමලේඛන උදාහරණ ආධාරයෙන් VBA Array, විවිධ array වර්ග, variant array, සහ array ක්රම පැහැදිලි කරනු ඇත:
සාමාන්ය VBA විචල්යයක් යනු ගබඩා කරන ස්ථාන රඳවනයකි. තනි දත්තයක වටිනාකම. එය 1 සිට 1 දක්වා සම්බන්ධතාවයක් ඇත, එනම් 1 අගයක් සඳහා 1 විචල්යයක් ඇත.
දැන් සිතන්න එකම වර්ගයේ බහු අගයන් ගබඩා කිරීම. බහු විචල්යයන් නිර්මාණය කරනවා වෙනුවට, ඔබට එක් විචල්යයක් සාදා එකම ආකාරයේ අගයන් ගබඩා කළ හැකිය. මෙම විචල්යය ARRAY ලෙස හඳුන්වයි.
මෙම නිබන්ධනයේදී, Fixed සහ Dynamic වැනි විවිධ අරා වර්ග සමඟ VBA අරාවක්, ඒකමාන සහ ද්විමාන අරා යනු කුමක්දැයි ඔබට දැනගත හැකි වනු ඇත. VBA හි භාවිතා වන විවිධ අරා ක්රම ද අපි තේරුම් ගනිමු.
VBA Array
Arays යනු එකම දත්ත වර්ගයක බහු අගයන් ගබඩා කළ හැකි විශේෂ විචල්යයකි. .
උදාහරණයක් ලෙස, ඔබට සේවකයින් 100 දෙනෙකුගේ නම් තිබේ නම්, දත්ත වර්ගයේ තන්තු වල විචල්ය 100ක් නිර්මාණය කරනවා වෙනුවට, ඔබට ටයිප් ස්ට්රින්ග් එක අරා විචල්යයක් සාදා අගයන් 100ක් පැවරිය හැක. එකම array විචල්යයට.
One Dimensional Array
සියලු මූලද්රව්ය තනි පේළියක හෝ තනි තීරුවක ඇති අරාවක් ඒකමාන අරාවක් ලෙස හැඳින්වේ. පන්තියේ සියලුම සිසුන්ගේ නම් තනි තීරුවක ලැයිස්තුගත කිරීම ඒකමාන අරාවකට උදාහරණයකි. එය පෙන්වා ඇති පරිදි ප්රකාශ කරනු ලැබේarray පහත දැක්වෙන පරිදි ප්රකාශ කර ඇත.
Dim ArrayName(FirstIndex to LastIndex, FirstIndex to LastIndex) DataType ලෙස.
උදාහරණය: Dim marks(1 සිට 3 දක්වා . පරාසය අරාවකට පරිවර්තනය කිරීමට. මෙම කේතය Mys[10]
Sub Example() Dim Mys As Variant Mys = Application.Transpose(Range("A1:A10")) End Sub
Q #4) VBA හි අරාව ප්රභේදයක් යනු කුමක්ද?
පිළිතුර: ප්රභේද අරාවක් එහි දර්ශක සඳහා සියලු වර්ගවල දත්ත වර්ග පිළිගනී, එනම් ඔබට එක් අරාවක විවිධ අගයන් ගබඩා කළ හැක.
උදාහරණය:
0>Dim arrayData(3) Variant ලෙසarrayData(0) = “Vikas Vipal”
arrayData(1) = 411234567890#
අරාව ප්රතිප්රමාණ කිරීමට ක්රම ධාවන කාලය සහ reim preserv භාවිතා කරමින් අගයන් සංරක්ෂණය කිරීම උදාහරණ සමඟ සාකච්ඡා කරන ලදී. අවසාන වශයෙන්, අපි මෙහෙයුම් කිහිපයක් සිදු කිරීමට උපකාර වන Array ක්රම ඉගෙන ගත්තෙමු.
පහත.Dim arrayname(lowerbound to UpperBound) DataType ලෙස
Aray එකක් declare කිරීමට විවිධ ක්රම තිබේ. උදාහරණ කිහිපයක් පහත දක්වා ඇත.
උදාහරණය>නිඛිල අගයන් පිළිගන්නා 0,1,2,3 ස්ථානය සහිත අරාවක් සාදයි.
#2) Dim MyArray2(3) String ලෙස
Defaults from 0 3 දක්වා සහ 0,1,2,3 ස්ථානය සහිත අරාවක් සාදන අතර එය තන්තු අගයන් පිළිගනී.
#3) Dim MyArray2(13 සිට 15 දක්වා) ද්විත්ව ලෙස
13 එනම් 13, 14, සහ 15 සිට ආරම්භ වන අරාවක් සාදන අතර ද්විත්ව අගයන් පිළිගනී. අපි පහළ මායිම 13 ලෙස සඳහන් කර ඇත, එබැවින් අරාව 0 ට වඩා 13 ස්ථානයෙන් අගයන් වෙන් කිරීමට පටන් ගනී.
සරල කේතයක් සාදා අරාව ප්රකාශ කිරීමේ ක්රම 3ම තේරුම් ගනිමු.
සටහන: VB කේතය ලිවීමට Microsoft Excel විවෘත කරන්න (සහාය දක්වන අනුවාද වන්නේ Excel 2007, 2010, 2013, 2016, 2019). සංවර්ධක පටිත්ත වෙත සංචාලනය කරන්න -> 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වන දර්ශකය තීරුව නියෝජනය කරයි. එයට පේළි සහ තීරු කිහිපයක් ඇති අතර සාමාන්යයෙන් වගු ආකෘතියකින් නිරූපණය කෙරේ.
අඳුරු 2 අරාවක ප්රකාශය පහත පරිදි වේ:
Dim ArrayName(FirstIndex LastIndex වෙත, FirstIndex සිට LastIndex දක්වා) DataType ලෙස.
විෂයයන් 3කින් ලබාගත් සිසුන් දෙදෙනෙකුගේ ලකුණු ගබඩා කිරීමේ උදාහරණයක් සලකා බලන්න. එබැවින් අපි පේළි 2 ක් සහ තීරු 3 ක් ගන්නා 2-මාන අරාවක් සාදන්නෙමු.
අපි 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
ස්ථාවර අරා
ස්ථාවර අරා ස්ථිතික ලෙසද හැඳින්වේඅරාවට ස්ථාවර පහළ මායිමක් සහ ඉහළ සීමාවක් ඇති අතර ධාවන වේලාවේදී මෙම ප්රමාණය වෙනස් කළ නොහැක. අරාවේ ප්රමාණය වරහන් තුළ ප්රකාශනය අතරතුර දක්වා ඇත. ඉහත උදාහරණ සියල්ල Fixed arrays වේ ප්රකාශනය අතරතුර අපි එහි ප්රමාණය සඳහන් කර ඇත.
සාමාන්යයෙන් අරාවේ ප්රමාණය ගැන ඔබට විශ්වාස නම් ස්ථාවර අරාවන් භාවිතා වේ. උදාහරණයක් ලෙස, සතියක දින ගණන, ඔබට පහළ මායිම් 0 සහ ඉහළ මායිම් 6 සමඟ අරාවක් සෑදිය හැකි අතර ඔබ එහි ප්රමාණය කිසි විටෙකත් වෙනස් නොකරන බවට වග බලා ගන්න.
ගතික අරා
Dynamic Arrays මඟින් ධාවන කාලය තුළ අරාව ප්රමාණය වෙනස් කිරීමට අපට ඉඩ සලසයි. අරාවේ ප්රමාණය ගැන ඔබට විශ්වාස නැති විට මේවා ප්රයෝජනවත් වේ. විශ්ව විද්යාල ප්රවේශයේදී, ඇත්ත වශයෙන්ම සිසුන් කී දෙනෙකු ඇතුළත් කර ගනීද යන්න ගැන ඔබට විශ්වාස නැති විය හැක, එබැවින් ඔබට සැලසුම් කිරීමේදී හෝ ප්රකාශන වේලාවේදී ප්රමාණය තීරණය කළ නොහැක.
ගතික අරාවක ප්රකාශය ස්ථිතිකයකට සමාන වේ. හිස් වරහන් සහිත අරාව.
Dim Employee() 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
දැන්, අපි දන්නවා අපිට පුළුවන් කියලා. ධාවන කාලය තුළ අරාවේ ප්රමාණය වෙනස් කරන්න, එබැවින් අපට array එකක ubound වැඩි කිරීමට අවශ්ය විටෙක ReDim ප්රකාශය භාවිතා කළ හැක. අරාවේ ප්රමාණය තවත් වරක් වැඩි කර අලුත් එකක් එක් කිරීමට උත්සාහ කරමුශිෂ්ය නම.
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 Preserv
Represerve ප්රකාශය පැරණි අගයන් සංරක්ෂණය කිරීමෙන් ReDim හි සීමාව මඟහරවා ගැනීමට උපකාරී වේ. සහ එමගින් අරාවේ ප්රමාණය වැඩි කරයි.
ඉහත කේතය ReDim Preserv භාවිතා කර නැවත ලියමු.
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
අපි භාවිතා කර ඇති පරිදි preserv keyword එක, කලින් ඇතුලත් කල අගයන් නැති වී නොයන අතර නව අගය සාර්ථක ලෙස එකතු වේ.
Variant Array
මෙතෙක් අපි දැක ඇත්තේ එකම ආකාරයේ අගයන් පිළිගන්නා අරාවකි. දැන් අපි array එක ප්රභේදයක් ලෙස ප්රකාශ කර String, Date, Long, Integer වැනි විවිධ දත්ත වර්ග තනි array එකක ගබඩා කරමු.
උදාහරණය:
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
19>
VBA Array Methods
පහත සඳහන් පරිදි විවිධ ක්රියාකාරකම් සිදු කිරීමට අපට උපකාර වන ක්රම කිහිපයක් VBA array වල ඇත.
Sl. No | නම | Syntax | විස්තරය | |
---|---|---|---|---|
1 | Araray | Array(arglist) | සාමාන්ය ප්රභේදයක් විචල්යයක් Array එකක් බවට පරිවර්තනය කරයි. | |
2 | Erase | Arase arrayname | ස්ථාවර ප්රමාණයේ array එක reintialize කිරීමට භාවිතා කරයි සහ Dynamic සඳහා මතකය නිදහස් කරයිarray. | |
3 | IsArray | IsArray (විචල්ය නාමය) | අ තීරණය කරයි විචල්යය යනු අරාවකි. | |
4 | Lbound | LBound( ArrayName, [Dimension] ) | අරාවක අඩුම දායකත්වය ආපසු ලබා දෙයි , [මානය] ) | අරාවක ඉහළම ග්රාහකත්වය ආපසු ලබාදේ. |
6 | බෙදීම | බෙදීම (ප්රකාශනය, [ සීමකය, [ සීමාව, [ සසඳන්න ]]]) | එය තන්තුවක් උප තන්තු කිහිපයකට බෙදා ශුන්ය පදනම් වූ අරාවක් ලබා දෙයි. | |
7 | Join | Join(sourcearray, [ delimiter ]) | Aray එකක බහුවිධ උපසිරැසි එකතු කර තන්තු අගයක් ලබා දෙයි . | |
8 | පෙරහන | පෙරහන(මූලාශ්ර අරාව, ගැලපීම, [ ඇතුළත්, [ සසඳන්න ]]) | පෙරහන අපට නිශ්චිත ගැලපීමක් අරාවකින් සෙවීමට ඉඩ දෙයි. |
අපි ඒ එක එක උදාහරණයකින් විස්තරාත්මකව සාකච්ඡා කරමු.
#1) Array
අපි සාමාන්ය ප්රභේද විචල්යයක් ප්රකාශ කර එය අරාවක් ලෙස භාවිතා කරමු. ඔබට සාමාන්ය ප්රභේද විචල්යයක් අරාවක් බවට වෙනස් කිරීමට අවශ්ය වූ විට, පහත උදාහරණයේ පෙන්වා ඇති පරිදි අපට 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) Erase
මෙම ශ්රිතය a සඳහා ඇතුලත් කර ඇති සියලුම අගයන් මකා දමයි. ස්ථාවර ප්රමාණයේ අරාව සහ ගතික අරාවක් සඳහා මතක අවකාශය නිදහස් කරනු ඇත.
වාක්ය ඛණ්ඩ: මකන්න අරා නාම
දී ඇති පරිදි විවිධ දත්ත වර්ග සඳහා මකන්න වෙනස් හැසිරීම් ඇත පහතින්.
- ස්ථාවර සංඛ්යාවක් සඳහා: සියලුම අගයන් බිංදුවට යළි පිහිටුවයි.
- ස්ථාවර තන්තු දත්ත වර්ගයක් සඳහා: සියලු අගයන් ශුන්ය දිගට යළි පිහිටුවයි.
- ගතික අරාවක් සඳහා: අරාව විසින් භාවිතා කරන මතකය නිදහස් කරයි.
උදාහරණය :
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
Erase ශ්රිතය භාවිතා කිරීමට පෙර ප්රතිඵලය
Erase භාවිතා කිරීමෙන් පසු ප්රතිඵලය
#3) IsArray
දී ඇති ආදාන විචල්යය අරාවක්ද නැද්ද යන්න තීරණය කිරීමට මෙම ශ්රිතය භාවිතා කරයි. ඇතුලත් කරන ලද විචල්යය සත්ය නම් එය සත්ය වේ, එසේ නොමැතිනම් එය අසත්ය වේ.
Syntax : IsArray (variablename)
උදාහරණය:
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 ශ්රිතය සඳහා තර්කය ලෙස දක්වා ඇති අරාවේ අඩුම උපස්ක්රිප්ට් ආපසු ලබා දෙයි.
Syntax: LBound( ArrayName, [Dimension] )
ArrayName යනු අරාවේ නමයි.
මානය යනු විකල්ප පූර්ණ සංඛ්යා අගයයි, අරාවට බහු මානයන් තිබේ නම්, ඔබට නියම කළ හැකඔබට 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 ශ්රිතයේ තර්කයක් ලෙස දක්වා ඇති අරාවේ ඉහළ උපස්ක්රිප්ට් ආපසු ලබා දෙයි.
Syntax: UBound( ArrayName, [Dimension] )
ArrayName යනු එහි නමයි. array.
මානය යනු විකල්ප පූර්ණ සංඛ්යා අගයයි, අරාවට බහු මාන තිබේ නම්, ඔබට 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
එය ලබා දී ඇති සම්පූර්ණ තන්තුවෙන් ව්යුත්පන්න වූ උපසිරසි ගණනාවක් සහිත අරාවක් ආපසු ලබා දෙයි.
වාක්ය ඛණ්ඩය: බෙදීම (ප්රකාශනය, [ සීමකය, [ සීමාව, [ සසඳන්න ]]])
- ප්රකාශනය: මෙය භාවිතා කරනු ලබන සම්පූර්ණ තන්තුවයි substrings නිෂ්පාදනය කරන්න.
- Delimiter: සඳහන් කළ පරිසීමකය භාවිතයෙන්, substrings උත්පාදනය වේ. මෙය සඳහන් නොකළහොත් අවකාශය පරිසීමකය ලෙස සලකනු ලැබේ.
- සීමාව: ආපසු ලබාදිය යුතු උපසිරැසි ගණන.
- සසඳන්න: පසු substring නිපදවා ඇත, ප්රතිඵලය පරීක්ෂා කිරීමට ඔබට විවිධ සංසන්දන විකල්ප භාවිතා කළ හැක.
උදාහරණය: පහත උදාහරණයේ දී, අපි පරිසීමකය ලෙස භාවිතා කරමු – සහ සීමාව 3 ලෙස.
එබැවින් බෙදීම් ශ්රිතය පරිසීමකය මත පදනම්ව මුළු තන්තුවම උපස්ථරයට වෙන් කරයි. නමුත් අපි සීමාව 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 විසින් උප තන්තු කිහිපයක් ඒකාබද්ධ කිරීමෙන් එක් තන්තුවක් සාදනු ඇත.
Syntax: 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
මෙම උදාහරණය පෙරහන් ශ්රිතය භාවිතයෙන් සියලුම අරා තන්තු වල “උදව්” යන වචනය සොයනු ඇත.
නිතර අසන ප්රශ්න
Q #1) VBA හි අරාවක දිග ලබා ගන්නේ කෙසේද?
පිළිතුර: ක දිග ලබා ගැනීමට array, අපි Ubound ශ්රිතය භාවිතා කරමු. මෙම ශ්රිතය මඟින් අපට නිශ්චිත අරාවක ඉහළ අනුග්රහයක් ලබා දෙනු ඇත.
Q #2) VBA හි අරාවක් ප්රකාශ කරන්නේ කෙසේද?
පිළිතුර: එක- මාන අරාව පහත දැක්වෙන පරිදි ප්රකාශ කර ඇත.
Dim arrayname(lowerbound to UpperBound) DataType ලෙස
උදාහරණය: Dim Myarray(0 සිට 2) Integer ලෙස
ද්විමාන