Most Used Array Functions in VBA Programming in Hindi
Makhanlal Chaturvedi University / BCA / VBA programming
Most Important Array Functions in VBA Programming in Hindi
Most Used Array Functions in VBA Programming in Hindi
What is Array in VBA?
VBA рдореЗрдВ Array рдПрдХ рдРрд╕рд╛ рдбреЗрдЯрд╛ рд╕реНрдЯреНрд░рдХреНрдЪрд░ рд╣реЛрддрд╛ рд╣реИ рдЬреЛ рдПрдХ рд╣реА рдкреНрд░рдХрд╛рд░ рдХреЗ рдбреЗрдЯрд╛ рдХреЛ рдПрдХ рд╕рд╛рде рд╕реНрдЯреЛрд░ рдХрд░рдиреЗ рдХреА рд╕реБрд╡рд┐рдзрд╛ рджреЗрддрд╛ рд╣реИред рдЙрджрд╛рд╣рд░рдг рдХреЗ рд▓рд┐рдП, рдЕрдЧрд░ рд╣рдореЗрдВ 100 students рдХреЗ рдирд╛рдо рд╕реНрдЯреЛрд░ рдХрд░рдиреЗ рд╣реИрдВ, рддреЛ рд╣рдореЗрдВ 100 рдЕрд▓рдЧ-рдЕрд▓рдЧ variables рдмрдирд╛рдиреЗ рдХреА рдЬрд╝рд░реВрд░рдд рдирд╣реАрдВ рд╣реЛрддреА, рдмрд▓реНрдХрд┐ рдПрдХ Array рдореЗрдВ рд╕рднреА рдирд╛рдо store рдХрд┐рдП рдЬрд╛ рд╕рдХрддреЗ рд╣реИрдВред
Why Array is Important?
- рдПрдХ рд╕рд╛рде multiple values рдХреЛ store рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдПред
- Loop рдХреЗ рд╕рд╛рде рдорд┐рд▓рдХрд░ рдХрд╛рдо рдХреЛ automatic рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдПред
- Memory рдХрд╛ рд╕рд╣реА рдЙрдкрдпреЛрдЧ рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдПред
Most Used Array Functions in VBA
рдиреАрдЪреЗ VBA рдореЗрдВ рд╕рдмрд╕реЗ рдЬреНрдпрд╛рджрд╛ рдЙрдкрдпреЛрдЧ рд╣реЛрдиреЗ рд╡рд╛рд▓реЗ Array functions рджрд┐рдП рдЧрдП рд╣реИрдВ рдЬрд┐рдиреНрд╣реЗрдВ рдЕрдХреНрд╕рд░ programs рдореЗрдВ рдпреВрдЬрд╝ рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИред
- UBound(ArrayName) тАУ рдпрд╣ function Array рдХреА highest index рдХреЛ return рдХрд░рддрд╛ рд╣реИред
- LBound(ArrayName) тАУ рдпрд╣ function Array рдХреА lowest index рдХреЛ return рдХрд░рддрд╛ рд╣реИред
- Split() тАУ рдпрд╣ string рдХреЛ parts рдореЗрдВ divide рдХрд░ Array рдореЗрдВ convert рдХрд░рддрд╛ рд╣реИред
- Join() тАУ рдпрд╣ Array рдХреА values рдХреЛ рдЬреЛрдбрд╝рдХрд░ рдПрдХ single string рдмрдирд╛ рджреЗрддрд╛ рд╣реИред
- Filter() тАУ рдпрд╣ function рдХрд┐рд╕реА array рдореЗрдВ рд╕реЗ specific values рдХреЛ filter рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рдпреВрдЬрд╝ рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИред
- Application.Transpose() тАУ рдпрд╣ 1D array рдХреЛ vertical рдпрд╛ horizontal рдмрдирд╛рдиреЗ рдХреЗ рд▓рд┐рдП helpful рд╣реЛрддрд╛ рд╣реИред
Example: Using UBound and LBound
Dim names() As String
names = Split("Amit,Ravi,Sumit,Neha", ",")
MsgBox "First Index: " & LBound(names)
MsgBox "Last Index: " & UBound(names)
рдКрдкрд░ рдХреЗ рдЙрджрд╛рд╣рд░рдг рдореЗрдВ рд╣рдордиреЗ string рдХреЛ Split рдХрд┐рдпрд╛ рдФрд░ рдлрд┐рд░ UBound рдФрд░ LBound рдХрд╛ рдкреНрд░рдпреЛрдЧ рдХрд░рдХреЗ рдЙрд╕рдХреА index range рдирд┐рдХрд╛рд▓реАред
Using Filter and Join Function with Array in Hindi
Filter Function рдХреНрдпрд╛ рд╣реИ?
Filter function рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд┐рд╕реА array рд╕реЗ рд╡рд╣реА values рдирд┐рдХрд╛рд▓рдиреЗ рдХреЗ рд▓рд┐рдП рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ рдЬреЛ рдХрд┐рд╕реА рд╡рд┐рд╢реЗрд╖ condition рдХреЛ match рдХрд░рддреА рд╣реИрдВред
Syntax:
Filter(SourceArray, Match, [Include], [Compare])
- SourceArray: рд╡рд╣ array рдЬрд┐рд╕рдореЗрдВ рд╕реЗ data filter рдХрд░рдирд╛ рд╣реИред
- Match: рд╡рд╣ string рдЬрд┐рд╕рд╕реЗ values match рдХрд░рдиреА рд╣реИрдВред
- Include (Optional): True (default) рдХрд╛ рдорддрд▓рдм match рд╣реЛрдиреЗ рд╡рд╛рд▓реА values return рд╣реЛрдВрдЧреА, False рдХрд╛ рдорддрд▓рдм match рдирд╣реАрдВ рд╣реЛрдиреЗ рд╡рд╛рд▓реА valuesред
- Compare (Optional): Binary рдпрд╛ Text comparisonред
Example of Filter Function:
Dim names() As String
Dim result() As String
names = Split("Amit,Ankit,Ravi,Neha", ",")
result = Filter(names, "A")
MsgBox Join(result, ", ")
рдпрд╣рд╛рдВ рд╣рдордиреЗ рд╕рднреА рдирд╛рдореЛрдВ рдореЗрдВ рд╕реЗ 'A' рд╕реЗ рд╢реБрд░реВ рд╣реЛрдиреЗ рд╡рд╛рд▓реЗ рдирд╛рдореЛрдВ рдХреЛ filter рдХрд┐рдпрд╛ рдФрд░ Join function рд╕реЗ рдПрдХ string рдмрдирд╛ рджреАред
Join Function рдХреНрдпрд╛ рд╣реИ?
Join function рдХрд┐рд╕реА рднреА array рдХреА рд╕рднреА values рдХреЛ рдЬреЛрдбрд╝рдХрд░ рдПрдХ single string рдореЗрдВ convert рдХрд░рддрд╛ рд╣реИред рдпрд╣ рдмрд╣реБрдд useful рд╣реЛрддрд╛ рд╣реИ рдЬрдм рдЖрдк array рдХреА values рдХреЛ comma-separated рдпрд╛ space-separated string рдореЗрдВ рдмрджрд▓рдирд╛ рдЪрд╛рд╣рддреЗ рд╣реИрдВред
Syntax:
Join(ArrayName, [Delimiter])
- ArrayName: рд╡рд╣ array рдЬрд┐рд╕рдХреА values рдХреЛ рдЬреЛрдбрд╝рдирд╛ рд╣реИред
- Delimiter: Optional рд╣реИ, default space рд╣реЛрддрд╛ рд╣реИред
Example of Join Function:
Dim fruits() As String
fruits = Split("Apple,Mango,Banana", ",")
MsgBox Join(fruits, " | ")
рдпрд╣рд╛рдВ рд╣рдордиреЗ fruits array рдХреА values рдХреЛ ' | ' рд╕реЗ рдЬреЛрдбрд╝рдХрд░ рдПрдХ string рдореЗрдВ рдмрджрд▓рд╛ред
Using Split Function to Create Array from String in Hindi
Split Function рдХреНрдпрд╛ рд╣реИ?
Split function рдПрдХ рдмрд╣реБрдд рд╣реА рдЙрдкрдпреЛрдЧреА function рд╣реИ рдЬреЛ рдХрд┐рд╕реА рднреА string рдХреЛ рдЕрд▓рдЧ-рдЕрд▓рдЧ parts рдореЗрдВ рдмрд╛рдВрдЯрдХрд░ array рдореЗрдВ рдмрджрд▓ рджреЗрддрд╛ рд╣реИред рдЗрд╕реЗ рддрдм рдпреВрдЬрд╝ рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ рдЬрдм рдПрдХ string рдореЗрдВ multiple values рд╣реЛрдВ, рдЬреИрд╕реЗ comma-separated valuesред
Syntax:
Split(expression, [delimiter], [limit], [compare])
- expression: рд╡рд╣ string рдЬрд┐рд╕реЗ split рдХрд░рдирд╛ рд╣реИред
- delimiter: рд╡рд╣ character рдпрд╛ symbol рдЬрд┐рд╕рд╕реЗ values рдЕрд▓рдЧ рдХреА рдЬрд╛рддреА рд╣реИрдВ, рдЬреИрд╕реЗ ",", "|", рдпрд╛ " "ред
Example of Split Function:
Dim colors() As String
colors = Split("Red,Green,Blue,Yellow", ",")
MsgBox colors(0) 'Output: Red
MsgBox colors(3) 'Output: Yellow
рдКрдкрд░ рдХреЗ рдХреЛрдб рдореЗрдВ рд╣рдордиреЗ рдПрдХ string рдХреЛ рдЪрд╛рд░ parts рдореЗрдВ split рдХрд┐рдпрд╛ рдФрд░ рдЙрд╕реЗ colors рдирд╛рдо рдХреЗ array рдореЗрдВ store рдХрд░ рд▓рд┐рдпрд╛ред
Split Function рдХрд╛ Real-life Use
рдорд╛рди рд▓реАрдЬрд┐рдП рдЖрдкрдХреЗ рдкрд╛рд╕ рдХрд┐рд╕реА file рд╕реЗ рдЖрдИ рд╣реБрдИ line рд╣реИ: "101,Ravi,Science,85" рдЕрдм рдЖрдк рдЗрд╕рдХреЛ рдЕрд▓рдЧ-рдЕрд▓рдЧ fields рдореЗрдВ divide рдХрд░ рд╕рдХрддреЗ рд╣реИрдВ:
Dim student() As String
student = Split("101,Ravi,Science,85", ",")
MsgBox "Student Name: " & student(1)
рдЗрд╕рд╕реЗ рдЖрдк рдирд╛рдо, subject, рдФрд░ marks рдЬреИрд╕реЗ fields рдЕрд▓рдЧ-рдЕрд▓рдЧ рдкреНрд░рд╛рдкреНрдд рдХрд░ рд╕рдХрддреЗ рд╣реИрдВред
Using Application.Transpose with Array in VBA in Hindi
Transpose Function рдХреНрдпрд╛ рд╣реИ?
Application.Transpose рдПрдХ Excel VBA function рд╣реИ рдЬрд┐рд╕рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд┐рд╕реА 1D array рдХреЛ column рдореЗрдВ рдпрд╛ row рдореЗрдВ convert рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИред рдЗрд╕рдХрд╛ рд╕рдмрд╕реЗ рдЬрд╝реНрдпрд╛рджрд╛ рдЙрдкрдпреЛрдЧ рддрдм рд╣реЛрддрд╛ рд╣реИ рдЬрдм рд╣рдореЗрдВ array рдХреЗ рдбреЗрдЯрд╛ рдХреЛ Excel worksheet рдореЗрдВ row рд╕реЗ column рдпрд╛ column рд╕реЗ row рдореЗрдВ рдмрджрд▓рдирд╛ рд╣реЛред
Syntax:
Application.WorksheetFunction.Transpose(Array)
рдпрд╛ рд╕реАрдзреЗ:
Application.Transpose(Array)
Example: Row to Column Transpose
Sub TransposeExample()
Dim arr() As Variant
arr = Array("Math", "Science", "English")
Range("A1:A3").Value = Application.Transpose(arr)
End Sub
рдпрд╣ рдХреЛрдб array рдХреЛ Excel рдХреЗ cells A1 рд╕реЗ A3 рдореЗрдВ vertically paste рдХрд░реЗрдЧрд╛ред
Example: Column to Row Transpose
Sub ColumnToRowTranspose()
Dim colArr(1 To 3, 1 To 1) As Variant
colArr(1, 1) = "One"
colArr(2, 1) = "Two"
colArr(3, 1) = "Three"
Dim rowArr As Variant
rowArr = Application.Transpose(colArr)
Range("B1:D1").Value = rowArr
End Sub
рдЗрд╕ рдЙрджрд╛рд╣рд░рдг рдореЗрдВ рд╣рдордиреЗ vertical column array рдХреЛ row рдореЗрдВ рдмрджрд▓рдХрд░ Excel рдореЗрдВ B1 рд╕реЗ D1 рддрдХ insert рдХрд┐рдпрд╛ред
Transpose Function рдХрдм рдХрд╛рдо рдирд╣реАрдВ рдХрд░рддрд╛?
- рдЕрдЧрд░ array рдХреА length 65536 рд╕реЗ рдЬрд╝реНрдпрд╛рджрд╛ рд╣реЛ рддреЛ Transpose рдХрд╛рдо рдирд╣реАрдВ рдХрд░реЗрдЧрд╛ред
- Mixed data types (рдЬреИрд╕реЗ string рдФрд░ numbers рдХрд╛ mix) рд╣реЛрдиреЗ рдкрд░ рдХрднреА-рдХрднреА error рдЖрддрд╛ рд╣реИред
Transpose рдХреЗ рд╕рд╛рде 2D Arrays
рдЕрдЧрд░ рдЖрдкрдХреЗ рдкрд╛рд╕ 2D array рд╣реИ, рддреЛ Transpose рдХрд░рдиреЗ рд╕реЗ рдЙрд╕рдХрд╛ rows-columns swap рд╣реЛ рдЬрд╛рддрд╛ рд╣реИред рдиреАрдЪреЗ рдПрдХ рдЙрджрд╛рд╣рд░рдг рд╣реИ:
Dim myArr(1 To 2, 1 To 2) As String
myArr(1, 1) = "A"
myArr(1, 2) = "B"
myArr(2, 1) = "C"
myArr(2, 2) = "D"
Range("A1:B2").Value = Application.Transpose(myArr)
рдпрд╣ values рдХреЛ рдПрдХ рдЕрд▓рдЧ orientation рдореЗрдВ Excel рдореЗрдВ paste рдХрд░реЗрдЧрд╛ред