ការបង្រៀននេះនឹងពន្យល់អំពី VBA Array ប្រភេទអារេផ្សេងៗ អារេវ៉ារ្យង់ និងវិធីសាស្ត្រអារេ ដោយមានជំនួយពីឧទាហរណ៍ការសរសេរកម្មវិធី៖
អថេរ VBA ធម្មតាគឺជាកន្លែងដាក់កន្លែងផ្ទុក តម្លៃនៃទិន្នន័យតែមួយ។ វាមានទំនាក់ទំនង 1 ទៅ 1 ពោលគឺអថេរ 1 សម្រាប់តម្លៃ 1។
ឥឡូវស្រមៃថារក្សាទុកតម្លៃជាច្រើនដែលមានប្រភេទដូចគ្នា។ ជំនួសឱ្យការបង្កើតអថេរច្រើន អ្នកគ្រាន់តែអាចបង្កើតអថេរមួយ ហើយរក្សាទុកប្រភេទតម្លៃដូចគ្នាទាំងអស់។ អថេរនេះត្រូវបានគេហៅថា ARRAY។
នៅក្នុងមេរៀននេះ អ្នកនឹងដឹងថាអ្វីជាអារេ VBA អារេមួយវិមាត្រ និងពីរវិមាត្ររួមជាមួយប្រភេទអារេផ្សេងៗដូចជាថេរ និងថាមវន្ត។ យើងក៏នឹងយល់អំពីវិធីអារេផ្សេងៗដែលត្រូវបានប្រើនៅក្នុង VBA ។
VBA Array
អារេគឺជាប្រភេទអថេរពិសេសដែលអាចរក្សាទុកតម្លៃជាច្រើននៃប្រភេទទិន្នន័យដូចគ្នា .
ឧទាហរណ៍ ប្រសិនបើអ្នកមានឈ្មោះបុគ្គលិក 100 នាក់ នោះជំនួសឱ្យការបង្កើតអថេរ 100 នៃខ្សែអក្សរប្រភេទទិន្នន័យ អ្នកគ្រាន់តែអាចបង្កើតអថេរអារេមួយនៃប្រភេទខ្សែអក្សរ ហើយផ្តល់តម្លៃ 100 ទៅអថេរអារេដូចគ្នា។
អារេវិមាត្រមួយ
អារេដែលមានធាតុទាំងអស់ក្នុងជួរតែមួយ ឬក្នុងជួរឈរតែមួយត្រូវបានគេហៅថា អារេមួយវិមាត្រ។ ការរាយឈ្មោះសិស្សទាំងអស់នៅក្នុងថ្នាក់ក្នុងជួរឈរតែមួយគឺជាឧទាហរណ៍នៃអារេមួយវិមាត្រ។ វាត្រូវបានប្រកាសដូចដែលបានបង្ហាញអារេត្រូវបានប្រកាសដូចបង្ហាញខាងក្រោម។
Dim ArrayName(FirstIndex To LastIndex, FirstIndex To LastIndex) As DataType។
ឧទាហរណ៍៖ Dim marks(1 ដល់ 3 , 0 ដល់ 2) As Integer
Q #3) របៀបបំប្លែង Range ទៅជា Array?
ចម្លើយ៖ យើងអាចប្រើមុខងារ Transpose ដើម្បីបំប្លែងជួរទៅជាអារេ។ កូដនេះនឹងបង្កើត Mys[10]
Sub Example() Dim Mys As Variant Mys = Application.Transpose(Range("A1:A10")) End Sub
សំណួរ #4) តើអ្វីជាវ៉ារ្យ៉ង់អារេនៅក្នុង VBA?
ចម្លើយ៖ អារេវ៉ារ្យង់នឹងទទួលយកគ្រប់ប្រភេទនៃប្រភេទទិន្នន័យសម្រាប់សន្ទស្សន៍របស់វា ពោលគឺអ្នកអាចរក្សាទុកប្រភេទតម្លៃផ្សេងៗគ្នាក្នុងអារេតែមួយ។
ឧទាហរណ៍៖
Dim arrayData(3) As Variant
arrayData(0) = “Vikas Vipal”
arrayData(1) = 411234567890#
វិធីដើម្បីប្តូរទំហំអារេកំឡុងពេល runtime និងក៏រក្សាតម្លៃដោយប្រើ redim reserve ត្រូវបានពិភាក្សាជាមួយឧទាហរណ៍។ ជាចុងក្រោយ យើងបានរៀនវិធីសាស្ត្រ Array ដែលនឹងជួយយើងក្នុងការអនុវត្តប្រតិបត្តិការជាច្រើន។
ខាងក្រោម។Dim arrayname(lowerbound to UpperBound) As DataType
មានវិធីជាច្រើនដើម្បីប្រកាសអារេមួយ។ ដែលបានផ្តល់ឱ្យខាងក្រោមគឺជាឧទាហរណ៍មួយចំនួន។
ឧទាហរណ៍៖
#1) Dim MyArrayExample(0 ដល់ 3) ជាចំនួនគត់
បង្កើតអារេដែលមានទីតាំង 0,1,2,3 ដែលនឹងទទួលយកតម្លៃចំនួនគត់។
#2) Dim MyArray2(3) As String
លំនាំដើមពី 0 ទៅ 3 និងបង្កើតអារេដែលមានទីតាំង 0,1,2,3 ដែលនឹងទទួលយកតម្លៃ String។
#3) Dim MyArray2(13 ទៅ 15) As Double
បង្កើតអារេចាប់ផ្តើមពី 13 ពោលគឺ 13, 14, និង 15 ហើយទទួលយកតម្លៃទ្វេ។ យើងបានរៀបរាប់ពីព្រំដែនទាបជា 13 ដូច្នេះអារេនឹងចាប់ផ្តើមបែងចែកតម្លៃពីទីតាំង 13 ជាជាង 0។
តោះបង្កើតកូដសាមញ្ញ និងស្វែងយល់ពីវិធីទាំង 3 នៃការប្រកាសអារេ។
ចំណាំ៖ ដើម្បីសរសេរកូដ VB សូមបើក Microsoft Excel (កំណែដែលគាំទ្រគឺ Excel 2007, 2010, 2013, 2016, 2019)។ ចូលទៅកាន់ Developer Tab -> Visual Basic (ជាជម្រើសប្រើផ្លូវកាត់ 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 ឬចុចប៊ូតុងរត់នៅលើរបារឧបករណ៍ ដើម្បីប្រតិបត្តិកូដ។
អថេរ Regular 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
ឥឡូវនេះ ចូរយើងបង្កើតកូដដូចគ្នាដោយប្រើអថេរអារេ។
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) ជាប្រភេទទិន្នន័យ។
សូមពិចារណាឧទាហរណ៍នៃការរក្សាទុកពិន្ទុរបស់សិស្ស 2 នាក់ដែលទទួលបានក្នុង 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
អារេថេរ
អារេថេរ ហៅផងដែរថាឋិតិវន្តអារេមានព្រំដែនទាប និងព្រំដែនខាងលើថេរ ហើយទំហំនេះមិនអាចផ្លាស់ប្តូរបានទេនៅពេលដំណើរការ។ ទំហំរបស់អារេត្រូវបានបញ្ជាក់កំឡុងពេលប្រកាសក្នុងវង់ក្រចក។ ឧទាហរណ៍ខាងលើទាំងអស់គឺជា Fixed arrays ដូចដែលយើងបានលើកឡើងពីទំហំរបស់វាកំឡុងពេលប្រកាស។
Fixed arrays ជាធម្មតាត្រូវបានប្រើប្រាស់នៅពេលដែលអ្នកប្រាកដអំពីទំហំរបស់ Array។ ឧទាហរណ៍ ចំនួនថ្ងៃក្នុងមួយសប្តាហ៍ អ្នកអាចបង្កើតអារេដែលមានព្រំដែនទាប 0 និងព្រំដែនខាងលើ 6 ហើយត្រូវប្រាកដថាអ្នកនឹងមិនផ្លាស់ប្តូរទំហំរបស់វាទេ។
អារេថាមវន្ត
Dynamic Arrays អនុញ្ញាតឱ្យយើងប្តូរទំហំ Array ក្នុងអំឡុងពេលដំណើរការ។ ទាំងនេះមានប្រយោជន៍នៅពេលអ្នកមិនប្រាកដអំពីទំហំនៃអារេ។ ឧបមាថានៅក្នុងការចូលរៀននៅមហាវិទ្យាល័យ អ្នកប្រហែលជាមិនប្រាកដថាតើមានសិស្សប៉ុន្មាននាក់ដែលពិតជានឹងទទួលបានការចូលរៀន ដូច្នេះអ្នកមិនអាចកំណត់ទំហំនៅពេលរចនា ឬពេលប្រកាសនោះទេ។
ការប្រកាសអារេថាមវន្តគឺស្រដៀងនឹងឋិតិវន្ត។ អារេដែលមានវង់ក្រចកទទេ។
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 នៅពេលណាដែលយើងត្រូវការដើម្បីបង្កើនទំហំនៃអារេ។ តោះព្យាយាមបង្កើនទំហំអារេម្តងទៀត ហើយបន្ថែមថ្មី។ឈ្មោះសិស្ស។
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 statement ជួយយើងក្នុងការយកឈ្នះលើដែនកំណត់នៃ 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 Array Methods
មានវិធីសាស្រ្តជាច្រើននៅក្នុង VBA arrays ដែលនឹងជួយយើងក្នុងការបំពេញមុខងារផ្សេងៗ ដូចដែលបានរៀបរាប់ខាងក្រោម។
ស។ ទេ | ឈ្មោះ | វាក្យសម្ព័ន្ធ | ការពិពណ៌នា |
---|---|---|---|
1 | អារេ2 | Array(arglist) | បំប្លែងបំរែបំរួលធម្មតា អថេរទៅជា Array។ |
2 | Erase | Erase arrayname | បានប្រើដើម្បី reintialize the fixed array និង frees memory for Dynamicអារេ។ |
3 | IsArray | IsArray (ឈ្មោះអថេរ) | កំណត់ថាតើ a អថេរគឺជាអារេ។ |
4 | Lbound | LBound( ArrayName, [Dimension] ) | ត្រឡប់អក្សររងទាបបំផុត នៃអារេមួយ។ |
5 | Ubound | UBound( ArrayName , [Dimension] ) | ត្រឡប់អក្សរតូចខ្ពស់បំផុត នៃអារេ។ |
6 | បំបែក | បំបែក(កន្សោម, [ អ្នកកំណត់, [ ដែនកំណត់, [ ប្រៀបធៀប ]]]) | វាបែងចែកខ្សែអក្សរទៅជាខ្សែអក្សររងជាច្រើន ហើយត្រឡប់អារេដែលមានមូលដ្ឋានលើសូន្យ។ |
7 | Join | Join(sourcearray, [ delimiter ]) | ចូលរួមជាមួយ substrings ច្រើនក្នុង array ហើយត្រឡប់តម្លៃ string . |
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) Erase
មុខងារនេះនឹងលុបតម្លៃទាំងអស់ដែលបានបញ្ចូលសម្រាប់ អារេទំហំថេរ ហើយនឹងបង្កើនទំហំអង្គចងចាំសម្រាប់អារេថាមវន្ត។
វាក្យសម្ព័ន្ធ៖ លុបឈ្មោះអារេ
ការលុបមានឥរិយាបទផ្សេងគ្នាសម្រាប់ប្រភេទទិន្នន័យផ្សេងៗគ្នាដូចដែលបានផ្តល់ឱ្យ ខាងក្រោម។
- សម្រាប់លេខថេរ៖ តម្លៃទាំងអស់ត្រូវបានកំណត់ឡើងវិញទៅសូន្យ។
- សម្រាប់ប្រភេទទិន្នន័យខ្សែថេរ៖ តម្លៃទាំងអស់ត្រូវបានកំណត់ឡើងវិញទៅប្រវែងសូន្យ។
- សម្រាប់អារេថាមវន្ត៖ បង្កើនអង្គចងចាំដែលប្រើដោយអារេ។
ឧទាហរណ៍ :
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
មុខងារនេះត្រូវបានប្រើដើម្បីកំណត់ថាតើអថេរបញ្ចូលដែលបានផ្តល់ឱ្យគឺជាអារេឬអត់។ វាត្រឡប់ពិត ប្រសិនបើអថេរដែលបានបញ្ចូលគឺពិត បើមិនដូច្នោះទេ វាត្រឡប់មិនពិត។
វាក្យសម្ព័ន្ធ : 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 គឺជាឈ្មោះរបស់ array។
Dimension គឺជាតម្លៃចំនួនគត់ស្រេចចិត្ត ប្រសិនបើ Array មានវិមាត្រច្រើន នោះអ្នកអាចបញ្ជាក់ទៅវិមាត្រណាមួយដែលអ្នកចង់កំណត់ 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
It ត្រឡប់អក្សរតូចខាងលើនៃអារេដែលបានបញ្ជាក់ជាអាគុយម៉ង់ក្នុងអនុគមន៍ 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) ពុះ
វាត្រឡប់អារេដែលមានខ្សែអក្សររងមួយចំនួនដែលបានមកពីខ្សែអក្សរទាំងមូលដែលបានផ្តល់ឱ្យ។
វាក្យសម្ព័ន្ធ៖ បំបែក(កន្សោម, [ អ្នកកំណត់, [ ដែនកំណត់, [ ប្រៀបធៀប ]]])
- កន្សោម៖ នេះគឺជាខ្សែអក្សរទាំងមូលដែលនឹងត្រូវបានប្រើដើម្បី បង្កើតខ្សែអក្សររង។
- អ្នកកំណត់ព្រំដែន៖ ដោយប្រើសញ្ញាកំណត់ដែលបានបញ្ជាក់ ខ្សែអក្សររងនឹងត្រូវបានបង្កើត។ ប្រសិនបើវាមិនត្រូវបានគេលើកឡើងទេ ចន្លោះត្រូវបានចាត់ទុកថាជាអ្នកកំណត់ព្រំដែន។
- ដែនកំណត់៖ ចំនួនខ្សែអក្សររងដែលត្រូវបញ្ជូនមកវិញ។
- ប្រៀបធៀប៖ បន្ទាប់ពី ខ្សែអក្សររងត្រូវបានផលិត អ្នកអាចប្រើជម្រើសប្រៀបធៀបផ្សេងគ្នាដើម្បីសាកល្បងលទ្ធផល។
ឧទាហរណ៍៖ ក្នុងឧទាហរណ៍ខាងក្រោម យើងកំពុងប្រើអ្នកកំណត់ព្រំដែនជា – និងកំណត់ជា 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(sourcearray, [ delimiter ])
Sourcearray៖ Are-dimensional of strings ដែលអ្នកចង់បញ្ចូលទៅក្នុងមួយ។
អ្នកកំណត់ព្រំដែន៖ ការកំណត់ព្រំដែនដែលបានបញ្ជាក់នឹងត្រូវបានបន្ថែមបន្ទាប់ពីខ្សែអក្សរនីមួយៗនៅពេលភ្ជាប់។
ឧទាហរណ៍៖
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 ។ មុខងារនេះនឹងផ្តល់ឱ្យយើងនូវ subscript ខាងលើនៃអារេដែលបានបញ្ជាក់។
សំណួរ #2) របៀបប្រកាសអារេនៅក្នុង VBA?
ចម្លើយ៖ មួយ- អារេវិមាត្រត្រូវបានប្រកាសដូចដែលបានបង្ហាញខាងក្រោម។
ឈ្មោះអារេឌីម (ពីក្រោមទៅខាងលើ) ជាប្រភេទទិន្នន័យ
ឧទាហរណ៍៖ ឌីម មីរ៉ារ៉េ (0 ដល់ 2) ជាចំនួនគត់
ពីរវិមាត្រ