All Topics of VBA programming ЁЯСЗ
All subjects of BCA ЁЯСЗ

Most Used Array Functions in VBA Programming in Hindi

Buy all subjects pdf notes now [ examSpecial ]

Makhanlal Chaturvedi University / BCA / VBA programming

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 рдХрд░реЗрдЧрд╛ред

FAQs

Split function рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд┐рд╕реА string рдХреЛ delimiter рдХреЗ рдЖрдзрд╛рд░ рдкрд░ parts рдореЗрдВ рдмрд╛рдВрдЯрдХрд░ рдПрдХ array рдореЗрдВ рдмрджрд▓рдиреЗ рдХреЗ рд▓рд┐рдП рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИред рдЬреИрд╕реЗ "Apple,Mango,Banana" рдХреЛ Split(",",) рд╕реЗ рддреАрди рдЕрд▓рдЧ-рдЕрд▓рдЧ array values рдореЗрдВ рдмрджрд▓рд╛ рдЬрд╛ рд╕рдХрддрд╛ рд╣реИред
Join function рдПрдХ array рдХреА рд╕рднреА values рдХреЛ рдЬреЛрдбрд╝рдХрд░ рдПрдХ single string рдореЗрдВ рдмрджрд▓ рджреЗрддрд╛ рд╣реИред рдЖрдк рдЗрд╕рдореЗрдВ delimiter рднреА рджреЗ рд╕рдХрддреЗ рд╣реИрдВ рдЬреИрд╕реЗ space, comma рдпрд╛ pipe ("|")ред рдЙрджрд╛рд╣рд░рдг: Join(array, ", ")ред
Filter function рдПрдХ array рд╕реЗ рд╡рд╣реА values рдирд┐рдХрд╛рд▓рддрд╛ рд╣реИ рдЬреЛ рдХрд┐рд╕реА рджреА рдЧрдИ string рд╕реЗ match рдХрд░рддреА рд╣реИрдВред рдЗрд╕рд╕реЗ рдЖрдк рдПрдХ specific set рдХреЛ isolate рдХрд░ рд╕рдХрддреЗ рд╣реИрдВ, рдЬреИрд╕реЗ рдЙрди рдирд╛рдореЛрдВ рдХреЛ filter рдХрд░рдирд╛ рдЬреЛ "A" рд╕реЗ рд╢реБрд░реВ рд╣реЛрддреЗ рд╣реИрдВред
Application.Transpose рдХрд┐рд╕реА row-based array рдХреЛ column рдореЗрдВ рдпрд╛ column-based array рдХреЛ row рдореЗрдВ рдмрджрд▓рдиреЗ рдХреЗ рд▓рд┐рдП рдЗрд╕реНрддреЗрдорд╛рд▓ рд╣реЛрддрд╛ рд╣реИред рдпрд╣ Excel worksheet рдореЗрдВ values рдХреЛ рд╕рд╣реА direction рдореЗрдВ insert рдХрд░рдиреЗ рдореЗрдВ рдорджрдж рдХрд░рддрд╛ рд╣реИред
рдЖрдк LBound(ArrayName) рд╕реЗ рдкрд╣рд▓рд╛ index рдФрд░ UBound(ArrayName) рд╕реЗ рдЖрдЦрд┐рд░реА index рдкреНрд░рд╛рдкреНрдд рдХрд░ рд╕рдХрддреЗ рд╣реИрдВред рдпрд╣ рдмрд╣реБрдд рдЙрдкрдпреЛрдЧреА рд╣реЛрддрд╛ рд╣реИ рдЬрдм рдЖрдк array рдХреЛ loop рдХрд░рдирд╛ рдЪрд╛рд╣рддреЗ рд╣реИрдВред
рд╣рд╛рдВ, Split function рдХреЛ comma-delimited CSV data рдХреЛ array рдореЗрдВ рдмрджрд▓рдиреЗ рдХреЗ рд▓рд┐рдП рдЙрдкрдпреЛрдЧ рдХрд┐рдпрд╛ рдЬрд╛ рд╕рдХрддрд╛ рд╣реИред рдпрд╣ рдПрдХ simple рдФрд░ effective рддрд░реАрдХрд╛ рд╣реИ CSV рд╕реЗ values рдХреЛ рдЕрд▓рдЧ-рдЕрд▓рдЧ fields рдореЗрдВ convert рдХрд░рдиреЗ рдХрд╛ред

Please Give Us Feedback