ಈ ಟ್ಯುಟೋರಿಯಲ್ ವಿಬಿಎ ಅರೇ, ವಿವಿಧ ಅರೇ ಪ್ರಕಾರಗಳು, ವೇರಿಯಂಟ್ ಅರೇ ಮತ್ತು ಅರೇ ವಿಧಾನಗಳನ್ನು ಪ್ರೋಗ್ರಾಮಿಂಗ್ ಉದಾಹರಣೆಗಳ ಸಹಾಯದಿಂದ ವಿವರಿಸುತ್ತದೆ:
ಸಾಮಾನ್ಯ ವಿಬಿಎ ವೇರಿಯೇಬಲ್ ಅನ್ನು ಸಂಗ್ರಹಿಸುವ ಸ್ಥಳ ಹೊಂದಿರುವವರು ಒಂದೇ ಡೇಟಾದ ಮೌಲ್ಯ. ಇದು 1 ರಿಂದ 1 ಸಂಬಂಧವನ್ನು ಹೊಂದಿದೆ ಅಂದರೆ 1 ಮೌಲ್ಯಕ್ಕೆ 1 ವೇರಿಯೇಬಲ್.
ಈಗ ಒಂದೇ ಪ್ರಕಾರದ ಬಹು ಮೌಲ್ಯಗಳನ್ನು ಸಂಗ್ರಹಿಸುವುದನ್ನು ಕಲ್ಪಿಸಿಕೊಳ್ಳಿ. ಬಹು ಅಸ್ಥಿರಗಳನ್ನು ರಚಿಸುವ ಬದಲು, ನೀವು ಕೇವಲ ಒಂದು ವೇರಿಯೇಬಲ್ ಅನ್ನು ರಚಿಸಬಹುದು ಮತ್ತು ಒಂದೇ ರೀತಿಯ ಮೌಲ್ಯಗಳನ್ನು ಸಂಗ್ರಹಿಸಬಹುದು. ಈ ವೇರಿಯಬಲ್ ಅನ್ನು ARRAY ಎಂದು ಕರೆಯಲಾಗುತ್ತದೆ.
ಈ ಟ್ಯುಟೋರಿಯಲ್ ನಲ್ಲಿ, ನೀವು VBA ಅರೇ, ಒಂದು ಆಯಾಮದ ಮತ್ತು ಎರಡು ಆಯಾಮದ ಸರಣಿಗಳ ಜೊತೆಗೆ ಸ್ಥಿರ ಮತ್ತು ಡೈನಾಮಿಕ್ ನಂತಹ ವಿವಿಧ ರೀತಿಯ ಅರೇಗಳು ಏನೆಂದು ತಿಳಿಯುವಿರಿ. VBA ನಲ್ಲಿ ಬಳಸಲಾಗುವ ವಿವಿಧ ರಚನೆಯ ವಿಧಾನಗಳನ್ನು ಸಹ ನಾವು ಅರ್ಥಮಾಡಿಕೊಳ್ಳುತ್ತೇವೆ.
VBA Array
Arays ಒಂದು ವಿಶೇಷ ರೀತಿಯ ವೇರಿಯೇಬಲ್ ಆಗಿದ್ದು ಅದು ಒಂದೇ ಡೇಟಾ ಪ್ರಕಾರದ ಬಹು ಮೌಲ್ಯಗಳನ್ನು ಸಂಗ್ರಹಿಸಬಹುದು .
ಉದಾಹರಣೆಗೆ, ನೀವು 100 ಉದ್ಯೋಗಿಗಳ ಹೆಸರನ್ನು ಹೊಂದಿದ್ದರೆ, ಡೇಟಾ ಪ್ರಕಾರದ ಸ್ಟ್ರಿಂಗ್ನ 100 ವೇರಿಯೇಬಲ್ಗಳನ್ನು ರಚಿಸುವ ಬದಲು, ನೀವು ಟೈಪ್ ಸ್ಟ್ರಿಂಗ್ನ ಒಂದು ಅರೇ ವೇರಿಯೇಬಲ್ ಅನ್ನು ರಚಿಸಬಹುದು ಮತ್ತು 100 ಮೌಲ್ಯಗಳನ್ನು ನಿಯೋಜಿಸಬಹುದು ಅದೇ ಅರೇ ವೇರಿಯೇಬಲ್ಗೆ.
ಒನ್ ಡೈಮೆನ್ಷನಲ್ ಅರೇ
ಒಂದು ಸಾಲು ಅಥವಾ ಒಂದೇ ಕಾಲಮ್ನಲ್ಲಿ ಎಲ್ಲಾ ಅಂಶಗಳನ್ನು ಹೊಂದಿರುವ ಅರೇ ಅನ್ನು ಏಕ ಆಯಾಮದ ಅರೇ ಎಂದು ಕರೆಯಲಾಗುತ್ತದೆ. ತರಗತಿಯಲ್ಲಿರುವ ಎಲ್ಲಾ ವಿದ್ಯಾರ್ಥಿಗಳ ಹೆಸರನ್ನು ಒಂದೇ ಕಾಲಮ್ನಲ್ಲಿ ಪಟ್ಟಿ ಮಾಡುವುದು ಒಂದು ಆಯಾಮದ ರಚನೆಯ ಉದಾಹರಣೆಯಾಗಿದೆ. ತೋರಿಸಿರುವಂತೆ ಇದನ್ನು ಘೋಷಿಸಲಾಗಿದೆಅರೇ ಅನ್ನು ಕೆಳಗೆ ತೋರಿಸಿರುವಂತೆ ಘೋಷಿಸಲಾಗಿದೆ.
ಡಿಮ್ ಅರೇಹೆಸರು(ಮೊದಲ ಇಂಡೆಕ್ಸ್ನಿಂದ ಲಾಸ್ಟ್ಇಂಡೆಕ್ಸ್, ಫಸ್ಟ್ಇಂಡೆಕ್ಸ್ನಿಂದ ಲಾಸ್ಟ್ಇಂಡೆಕ್ಸ್) ಡೇಟಾ ಪ್ರಕಾರವಾಗಿ.
ಉದಾಹರಣೆ: ಡಿಮ್ ಮಾರ್ಕ್ಸ್(1 ರಿಂದ 3 , 0 ರಿಂದ 2) ಪೂರ್ಣಾಂಕವಾಗಿ
Q #3) ಶ್ರೇಣಿಯನ್ನು ಅರೇಗೆ ಪರಿವರ್ತಿಸುವುದು ಹೇಗೆ?
ಉತ್ತರ: ನಾವು ಟ್ರಾನ್ಸ್ಪೋಸ್ ಕಾರ್ಯವನ್ನು ಬಳಸಬಹುದು ಶ್ರೇಣಿಯನ್ನು ಒಂದು ಶ್ರೇಣಿಗೆ ಪರಿವರ್ತಿಸಲು. ಈ ಕೋಡ್ Mys ಅನ್ನು ರಚಿಸುತ್ತದೆ[10]
Sub Example() Dim Mys As Variant Mys = Application.Transpose(Range("A1:A10")) End Sub
Q #4) VBA ನಲ್ಲಿ ಅರೇ ರೂಪಾಂತರ ಎಂದರೇನು?
ಉತ್ತರ: ಒಂದು ವೇರಿಯಂಟ್ ಅರೇ ತನ್ನ ಇಂಡೆಕ್ಸ್ಗಾಗಿ ಎಲ್ಲಾ ರೀತಿಯ ಡೇಟಾ ಪ್ರಕಾರಗಳನ್ನು ಸ್ವೀಕರಿಸುತ್ತದೆ ಅಂದರೆ ನೀವು ಒಂದೇ ಶ್ರೇಣಿಯಲ್ಲಿ ವಿವಿಧ ರೀತಿಯ ಮೌಲ್ಯಗಳನ್ನು ಸಂಗ್ರಹಿಸಬಹುದು.
ಉದಾಹರಣೆ:
ಡಿಮ್ arrayData(3) ರೂಪಾಂತರವಾಗಿ
arrayData(0) = “Vikas Vipal”
arrayData(1) = 411234567890#
ಅರೇಯನ್ನು ಮರುಗಾತ್ರಗೊಳಿಸುವ ವಿಧಾನಗಳು ರನ್ಟೈಮ್ ಮತ್ತು ರೆಡಿಮ್ ಪ್ರಿಸರ್ವ್ ಬಳಸಿ ಮೌಲ್ಯಗಳನ್ನು ಸಂರಕ್ಷಿಸಿ ಉದಾಹರಣೆಗಳೊಂದಿಗೆ ಚರ್ಚಿಸಲಾಗಿದೆ. ಅಂತಿಮವಾಗಿ, ಹಲವಾರು ಕಾರ್ಯಾಚರಣೆಗಳನ್ನು ನಿರ್ವಹಿಸಲು ನಮಗೆ ಸಹಾಯ ಮಾಡುವ ಅರೇ ವಿಧಾನಗಳನ್ನು ನಾವು ಕಲಿತಿದ್ದೇವೆ.
ಕೆಳಗೆ.ಡಿಮ್ ಅರೇ ಹೆಸರು(ಲೋವರ್ಬೌಂಡ್ನಿಂದ ಮೇಲ್ಬೌಂಡ್) ಡೇಟಾ ಪ್ರಕಾರವಾಗಿ
ಅರೇ ಅನ್ನು ಘೋಷಿಸಲು ಹಲವು ಮಾರ್ಗಗಳಿವೆ. ಕೆಳಗೆ ಕೆಲವು ಉದಾಹರಣೆಗಳನ್ನು ನೀಡಲಾಗಿದೆ.
ಉದಾಹರಣೆ:
#1) Dim MyArrayExample(0 ರಿಂದ 3) ಪೂರ್ಣಾಂಕದಂತೆ
ಪೂರ್ಣಾಂಕ ಮೌಲ್ಯಗಳನ್ನು ಸ್ವೀಕರಿಸುವ ಸ್ಥಳ 0,1,2,3 ನೊಂದಿಗೆ ಶ್ರೇಣಿಯನ್ನು ರಚಿಸುತ್ತದೆ.
#2) Dim MyArray2(3) ಸ್ಟ್ರಿಂಗ್ ಆಗಿ
0 ರಿಂದ ಡೀಫಾಲ್ಟ್ 3 ಗೆ ಮತ್ತು ಸ್ಟ್ರಿಂಗ್ ಮೌಲ್ಯಗಳನ್ನು ಸ್ವೀಕರಿಸುವ ಸ್ಥಳ 0,1,2,3 ನೊಂದಿಗೆ ಶ್ರೇಣಿಯನ್ನು ರಚಿಸುತ್ತದೆ.
#3) Dim MyArray2(13 to 15) ಡಬಲ್ ಆಗಿ
13 ಅಂದರೆ 13, 14 ಮತ್ತು 15 ರಿಂದ ಪ್ರಾರಂಭವಾಗುವ ಶ್ರೇಣಿಯನ್ನು ರಚಿಸುತ್ತದೆ ಮತ್ತು ಡಬಲ್ ಮೌಲ್ಯಗಳನ್ನು ಸ್ವೀಕರಿಸುತ್ತದೆ. ನಾವು ಕಡಿಮೆ ಬೌಂಡ್ ಅನ್ನು 13 ಎಂದು ಉಲ್ಲೇಖಿಸಿದ್ದೇವೆ, ಆದ್ದರಿಂದ ಶ್ರೇಣಿಯು 0 ಕ್ಕಿಂತ ಹೆಚ್ಚಾಗಿ ಸ್ಥಳ 13 ರಿಂದ ಮೌಲ್ಯಗಳನ್ನು ನಿಯೋಜಿಸಲು ಪ್ರಾರಂಭಿಸುತ್ತದೆ.
ನಾವು ಸರಳ ಕೋಡ್ ಅನ್ನು ರಚಿಸೋಣ ಮತ್ತು ಅರೇ ಘೋಷಣೆಯ ಎಲ್ಲಾ 3 ವಿಧಾನಗಳನ್ನು ಅರ್ಥಮಾಡಿಕೊಳ್ಳೋಣ.
ಗಮನಿಸಿ: VB ಕೋಡ್ ಬರೆಯಲು Microsoft Excel ತೆರೆಯಿರಿ (ಬೆಂಬಲಿತ ಆವೃತ್ತಿಗಳು Excel 2007, 2010, 2013, 2016, 2019). ಡೆವಲಪರ್ ಟ್ಯಾಬ್ -> ಗೆ ನ್ಯಾವಿಗೇಟ್ ಮಾಡಿ; ವಿಷುಯಲ್ ಬೇಸಿಕ್ (ಪರ್ಯಾಯವಾಗಿ ಶಾರ್ಟ್ಕಟ್ Alt+F11 ಬಳಸಿ). VB ಸಂಪಾದಕದಲ್ಲಿ, Insert -> ಮಾಡ್ಯೂಲ್ ಮತ್ತು ಕೆಳಗಿನ ಕೋಡ್ ಅನ್ನು ಅಂಟಿಸಿ.
ವಿವಿಧ ಪ್ರಕಾರದ ಘೋಷಣೆಗಳನ್ನು ತೋರಿಸುವ ಕೆಳಗಿನ ಕಾರ್ಯವಿಧಾನವನ್ನು ಪರಿಗಣಿಸಿ.
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 ಒತ್ತಿರಿ ಅಥವಾ ಟೂಲ್ಬಾರ್ನಲ್ಲಿ ರನ್ ಬಟನ್ ಒತ್ತಿರಿ ಕೋಡ್ ಅನ್ನು ಕಾರ್ಯಗತಗೊಳಿಸಲು.
ರೆಗ್ಯುಲರ್ ವೇರಿಯೇಬಲ್ Vs ಅರೇ ವೇರಿಯೇಬಲ್
ಒಂದು ಆಯಾಮದ ಅರೇ ಹೇಗೆ ಕೆಲಸ ಮಾಡುತ್ತದೆ ಎಂದು ನಮಗೆ ಈಗ ತಿಳಿದಿದೆ. ಆದ್ದರಿಂದ ಸರಣಿಗಳು ಏಕೆ ನಿರ್ಣಾಯಕವಾಗಿವೆ ಎಂಬುದನ್ನು ಅರ್ಥಮಾಡಿಕೊಳ್ಳಲು ಸ್ವಲ್ಪ ಸಮಯ ತೆಗೆದುಕೊಳ್ಳೋಣಪ್ರೋಗ್ರಾಮಿಂಗ್ ಭಾಷೆಗಳು.
ನೀವು 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
ಈಗ ಅರೇ ವೇರಿಯೇಬಲ್ ಅನ್ನು ಬಳಸಿಕೊಂಡು ಅದೇ ಕೋಡ್ ಅನ್ನು ನಿರ್ಮಿಸೋಣ.
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 ಲಾಸ್ಟ್ಇಂಡೆಕ್ಸ್ಗೆ, ಫಸ್ಟ್ಇಂಡೆಕ್ಸ್ನಿಂದ ಲಾಸ್ಟ್ಇಂಡೆಕ್ಸ್) ಡೇಟಾ ಪ್ರಕಾರವಾಗಿ.
3 ವಿಷಯಗಳಲ್ಲಿ ಪಡೆದ 2 ವಿದ್ಯಾರ್ಥಿಗಳ ಅಂಕಗಳನ್ನು ಸಂಗ್ರಹಿಸುವ ಉದಾಹರಣೆಯನ್ನು ಪರಿಗಣಿಸಿ. ಆದ್ದರಿಂದ ನಾವು 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 ನೊಂದಿಗೆ ಸರಣಿಯನ್ನು ರಚಿಸಬಹುದು ಮತ್ತು ನೀವು ಅದರ ಗಾತ್ರವನ್ನು ಎಂದಿಗೂ ಬದಲಾಯಿಸುವುದಿಲ್ಲ ಎಂದು ಖಚಿತಪಡಿಸಿಕೊಳ್ಳಿ.
ಡೈನಾಮಿಕ್ ಅರೇಗಳು
ಡೈನಾಮಿಕ್ ಅರೇಗಳು ರನ್ ಸಮಯದಲ್ಲಿ ರಚನೆಯನ್ನು ಮರುಗಾತ್ರಗೊಳಿಸಲು ನಮಗೆ ಅನುಮತಿಸುತ್ತದೆ. ರಚನೆಯ ಗಾತ್ರದ ಬಗ್ಗೆ ನಿಮಗೆ ಖಚಿತತೆ ಇಲ್ಲದಿರುವಾಗ ಇವುಗಳು ಉಪಯುಕ್ತವಾಗಿವೆ. ಕಾಲೇಜು ಪ್ರವೇಶದಲ್ಲಿ, ಎಷ್ಟು ವಿದ್ಯಾರ್ಥಿಗಳು ನಿಜವಾಗಿ ಪ್ರವೇಶವನ್ನು ಪಡೆಯುತ್ತಾರೆ ಎಂದು ನೀವು ಖಚಿತವಾಗಿರುವುದಿಲ್ಲ, ಆದ್ದರಿಂದ ನೀವು ವಿನ್ಯಾಸ ಅಥವಾ ಘೋಷಣೆಯ ಸಮಯದಲ್ಲಿ ಗಾತ್ರವನ್ನು ನಿರ್ಧರಿಸಲು ಸಾಧ್ಯವಿಲ್ಲ.
ಡೈನಾಮಿಕ್ ರಚನೆಯ ಘೋಷಣೆಯು ಸ್ಟ್ಯಾಟಿಕ್ ಅನ್ನು ಹೋಲುತ್ತದೆ. ಖಾಲಿ ಆವರಣಗಳೊಂದಿಗೆ ಅರೇ.
ಡಿಮ್ ಎಂಪ್ಲಾಯಿ() ಸ್ಟ್ರಿಂಗ್ನಂತೆ
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
ಈಗ, ನಮಗೆ ತಿಳಿದಿದೆ ರನ್ಟೈಮ್ನಲ್ಲಿ ರಚನೆಯ ಗಾತ್ರವನ್ನು ಬದಲಾಯಿಸಿ, ಆದ್ದರಿಂದ ನಾವು ರಚನೆಯ ಯುಬೌಂಡ್ ಅನ್ನು ಹೆಚ್ಚಿಸಬೇಕಾದಾಗ ರೆಡಿಮ್ ಹೇಳಿಕೆಯನ್ನು ಬಳಸಬಹುದು. ರಚನೆಯ ಗಾತ್ರವನ್ನು ಮತ್ತೊಮ್ಮೆ ಹೆಚ್ಚಿಸಲು ಮತ್ತು ಹೊಸದನ್ನು ಸೇರಿಸಲು ಪ್ರಯತ್ನಿಸೋಣವಿದ್ಯಾರ್ಥಿ ಹೆಸರು.
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 ನ ಮಿತಿಯನ್ನು ಜಯಿಸಲು ನಮಗೆ ಸಹಾಯ ಮಾಡುತ್ತದೆ. ಮತ್ತು ಆ ಮೂಲಕ ರಚನೆಯ ಗಾತ್ರವನ್ನು ಹೆಚ್ಚಿಸುತ್ತದೆ.
ರೀಡಿಮ್ ಪ್ರಿಸರ್ವ್ ಅನ್ನು ಬಳಸಿಕೊಂಡು ಮೇಲಿನ ಕೋಡ್ ಅನ್ನು ಪುನಃ ಬರೆಯೋಣ.
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
ನಾವು ಬಳಸಿದಂತೆ ಸಂರಕ್ಷಿಸುವ ಕೀವರ್ಡ್, ಹಿಂದೆ ನಮೂದಿಸಿದ ಮೌಲ್ಯಗಳು ಕಳೆದುಹೋಗುವುದಿಲ್ಲ ಮತ್ತು ಹೊಸ ಮೌಲ್ಯವನ್ನು ಯಶಸ್ವಿಯಾಗಿ ಸೇರಿಸಲಾಗುತ್ತದೆ.
ವೇರಿಯಂಟ್ ಅರೇ
ಇಲ್ಲಿಯವರೆಗೆ ನಾವು ಒಂದೇ ರೀತಿಯ ಮೌಲ್ಯಗಳನ್ನು ಸ್ವೀಕರಿಸುವ ರಚನೆಯನ್ನು ನೋಡಿದ್ದೇವೆ. ಈಗ ನಾವು ಅರೇ ಅನ್ನು ರೂಪಾಂತರವಾಗಿ ಘೋಷಿಸೋಣ ಮತ್ತು ಸ್ಟ್ರಿಂಗ್, ದಿನಾಂಕ, ಉದ್ದ, ಪೂರ್ಣಾಂಕದಂತಹ ವಿವಿಧ ಪ್ರಕಾರದ ಡೇಟಾವನ್ನು ಒಂದೇ ಶ್ರೇಣಿಯಲ್ಲಿ ಸಂಗ್ರಹಿಸೋಣ.
ಉದಾಹರಣೆ:
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 ಅರೇ ವಿಧಾನಗಳು
ವಿಬಿಎ ಅರೇಗಳಲ್ಲಿ ಹಲವಾರು ವಿಧಾನಗಳಿವೆ, ಅದು ಕೆಳಗೆ ತಿಳಿಸಿದಂತೆ ವಿವಿಧ ಕಾರ್ಯಗಳನ್ನು ನಿರ್ವಹಿಸಲು ನಮಗೆ ಸಹಾಯ ಮಾಡುತ್ತದೆ.
Sl. ಇಲ್ಲ | ಹೆಸರು | ಸಿಂಟ್ಯಾಕ್ಸ್ | ವಿವರಣೆ | |
---|---|---|---|---|
1 | ಅರೇ | Array(arglist) | ನಿಯಮಿತ ರೂಪಾಂತರ ವೇರಿಯೇಬಲ್ ಅನ್ನು ಅರೇ ಆಗಿ ಪರಿವರ್ತಿಸುತ್ತದೆ. | |
2 | ಅಳಿಸು | ಅರೇಸ್ ಅರೇಹೆಸರು | ನಿಶ್ಚಿತ ಗಾತ್ರದ ಅರೇಯನ್ನು ಮರುಇಂಟಿಯಲ್ ಮಾಡಲು ಬಳಸಲಾಗುತ್ತದೆ ಮತ್ತು ಡೈನಾಮಿಕ್ಗಾಗಿ ಮೆಮೊರಿಯನ್ನು ಮುಕ್ತಗೊಳಿಸುತ್ತದೆಅರೇ ವೇರಿಯೇಬಲ್ ಒಂದು ಅರೇ>ಅರೇಯ ಕಡಿಮೆ ಸಬ್ಸ್ಕ್ರಿಪ್ಟ್ ಅನ್ನು ಹಿಂತಿರುಗಿಸುತ್ತದೆ , [ಆಯಾಮ] ) | ಅರೇಯ ಅತ್ಯಧಿಕ ಸಬ್ಸ್ಕ್ರಿಪ್ಟ್ ಹಿಂತಿರುಗಿಸುತ್ತದೆ. |
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) ಅಳಿಸಿ
ಈ ಕಾರ್ಯವು a ಗಾಗಿ ನಮೂದಿಸಿದ ಎಲ್ಲಾ ಮೌಲ್ಯಗಳನ್ನು ಅಳಿಸುತ್ತದೆ ಸ್ಥಿರ ಗಾತ್ರದ ಅರೇ ಮತ್ತು ಡೈನಾಮಿಕ್ ಅರೇಗಾಗಿ ಮೆಮೊರಿ ಜಾಗವನ್ನು ಮುಕ್ತಗೊಳಿಸುತ್ತದೆ.
ಸಿಂಟ್ಯಾಕ್ಸ್: ಅರೇಸ್ ಅರೇ ಹೆಸರು
ಅಳಿಸಿದಂತೆ ವಿವಿಧ ಡೇಟಾ ಪ್ರಕಾರಗಳಿಗೆ ವಿಭಿನ್ನ ನಡವಳಿಕೆಯನ್ನು ಹೊಂದಿದೆ ಕೆಳಗೆ 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
ನೀಡಿರುವ ಇನ್ಪುಟ್ ವೇರಿಯೇಬಲ್ ಒಂದು ಅರೇ ಅಥವಾ ಇಲ್ಲವೇ ಎಂಬುದನ್ನು ನಿರ್ಧರಿಸಲು ಈ ಕಾರ್ಯವನ್ನು ಬಳಸಲಾಗುತ್ತದೆ. ನಮೂದಿಸಿದ ವೇರಿಯೇಬಲ್ ಸರಿಯಾಗಿದ್ದರೆ ಅದು ಸರಿ ಎಂದು ಹಿಂತಿರುಗಿಸುತ್ತದೆ, ಇಲ್ಲದಿದ್ದರೆ ಅದು ತಪ್ಪು ಎಂದು ಹಿಂತಿರುಗಿಸುತ್ತದೆ.
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, [ಆಯಾಮ] )
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( 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) ಸ್ಪ್ಲಿಟ್
ಇದು ನೀಡಿದ ಸಂಪೂರ್ಣ ಸ್ಟ್ರಿಂಗ್ನಿಂದ ಪಡೆದ ಹಲವಾರು ಸಬ್ಸ್ಟ್ರಿಂಗ್ಗಳೊಂದಿಗೆ ಸರಣಿಯನ್ನು ಹಿಂತಿರುಗಿಸುತ್ತದೆ.
ಸಿಂಟ್ಯಾಕ್ಸ್: ಸ್ಪ್ಲಿಟ್(ಅಭಿವ್ಯಕ್ತಿ, [ ಡಿಲಿಮಿಟರ್, [ ಮಿತಿ, [ ಹೋಲಿಸಿ ]]])
- ಅಭಿವ್ಯಕ್ತಿ: ಇದು ಸಂಪೂರ್ಣ ಸ್ಟ್ರಿಂಗ್ ಆಗಿದ್ದು ಇದನ್ನು ಬಳಸಲಾಗುತ್ತದೆ ಸಬ್ಸ್ಟ್ರಿಂಗ್ಗಳನ್ನು ಉತ್ಪಾದಿಸಿ.
- ಡಿಲಿಮಿಟರ್: ನಿರ್ದಿಷ್ಟಪಡಿಸಿದ ಡಿಲಿಮಿಟರ್ ಅನ್ನು ಬಳಸಿಕೊಂಡು, ಸಬ್ಸ್ಟ್ರಿಂಗ್ಗಳನ್ನು ರಚಿಸಲಾಗುತ್ತದೆ. ಇದನ್ನು ನಮೂದಿಸದೇ ಇದ್ದರೆ ಸ್ಪೇಸ್ ಡಿಲಿಮಿಟರ್ ಎಂದು ಪರಿಗಣಿಸಲಾಗುತ್ತದೆ.
- ಮಿತಿ: ಹಿಂತಿರುಗಿಸಬೇಕಾದ ಸಬ್ಸ್ಟ್ರಿಂಗ್ಗಳ ಸಂಖ್ಯೆ.
- ಹೋಲಿಸಿ: ನಂತರ ಸಬ್ಸ್ಟ್ರಿಂಗ್ ಅನ್ನು ಉತ್ಪಾದಿಸಲಾಗಿದೆ, ಫಲಿತಾಂಶವನ್ನು ಪರೀಕ್ಷಿಸಲು ನೀವು ವಿಭಿನ್ನ ಹೋಲಿಕೆ ಆಯ್ಕೆಗಳನ್ನು ಬಳಸಬಹುದು.
ಉದಾಹರಣೆ: ಕೆಳಗಿನ ಉದಾಹರಣೆಯಲ್ಲಿ, ನಾವು ಡಿಲಿಮಿಟರ್ ಅನ್ನು ಬಳಸುತ್ತಿದ್ದೇವೆ – ಮತ್ತು ಮಿತಿಯನ್ನು 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) ಸೇರಿಕೊಳ್ಳಿ
ಇದು ಕೇವಲ ವಿಭಜನೆಯ ಹಿಮ್ಮುಖವಾಗಿದೆ, ಸೇರು ಹಲವಾರು ಸಬ್ಸ್ಟ್ರಿಂಗ್ಗಳನ್ನು ಸಂಯೋಜಿಸುವ ಮೂಲಕ ಒಂದು ಸ್ಟ್ರಿಂಗ್ ಅನ್ನು ರಚಿಸುತ್ತದೆ.
ಸಿಂಟ್ಯಾಕ್ಸ್: ಸೇರಿಕೊಳ್ಳಿ(ಸೋರ್ಸ್ರೇ, [ ಡಿಲಿಮಿಟರ್ ])
ಸೋರ್ಸ್ಅರೇ: ನೀವು ಒಂದಕ್ಕೆ ಸೇರಲು ಬಯಸುವ ಸ್ಟ್ರಿಂಗ್ಗಳ ಏಕ ಆಯಾಮದ ಅರೇ.
ಡಿಲಿಮಿಟರ್: ಸೇರುವಾಗ ಪ್ರತಿ ಸ್ಟ್ರಿಂಗ್ ನಂತರ ನಿರ್ದಿಷ್ಟಪಡಿಸಿದ ಡಿಲಿಮಿಟರ್ ಅನ್ನು ಸೇರಿಸಲಾಗುತ್ತದೆ.
ಉದಾಹರಣೆ:
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 ಯಲ್ಲಿ ರಚನೆಯ ಉದ್ದವನ್ನು ಹೇಗೆ ಪಡೆಯುವುದು?
ಉತ್ತರ: ಒಂದು ಉದ್ದವನ್ನು ಪಡೆಯಲು ಅರೇ, ನಾವು ಯುಬೌಂಡ್ ಕಾರ್ಯವನ್ನು ಬಳಸುತ್ತೇವೆ. ಈ ಕಾರ್ಯವು ನಮಗೆ ನಿರ್ದಿಷ್ಟಪಡಿಸಿದ ರಚನೆಯ ಮೇಲಿನ ಸಬ್ಸ್ಕ್ರಿಪ್ಟ್ ಅನ್ನು ನೀಡುತ್ತದೆ.
Q #2) VBA ನಲ್ಲಿ ಅರೇ ಅನ್ನು ಹೇಗೆ ಘೋಷಿಸುವುದು?
ಉತ್ತರ: ಒಂದು- ಡೈಮೆನ್ಷನಲ್ ಅರೇ ಅನ್ನು ಕೆಳಗೆ ತೋರಿಸಿರುವಂತೆ ಡಿಕ್ಲೇರ್ ಮಾಡಲಾಗಿದೆ.
Dim arrayname(lowerbound to UpperBound) DataType ಆಗಿ
ಉದಾಹರಣೆ: Dim Myarray(0 To 2) Integer ನಂತೆ
ಎರಡು ಆಯಾಮಗಳು