Kaedah Tatasusunan dan Tatasusunan VBA Excel Dengan Contoh

Tutorial ini akan menerangkan Tatasusunan VBA, pelbagai jenis tatasusunan, tatasusunan varian dan kaedah tatasusunan dengan bantuan contoh pengaturcaraan:

Pembolehubah VBA biasa ialah pemegang tempat yang menyimpan nilai satu data. Ia mempunyai hubungan 1 hingga 1 iaitu 1 pembolehubah untuk 1 nilai.

Sekarang bayangkan menyimpan berbilang nilai yang daripada jenis yang sama. Daripada mencipta berbilang pembolehubah, anda hanya boleh mencipta satu pembolehubah dan menyimpan semua jenis nilai yang sama. Pembolehubah ini dipanggil ARRAY.

Dalam tutorial ini, anda akan mengetahui apa itu tatasusunan VBA, tatasusunan satu dimensi dan dua dimensi bersama-sama dengan pelbagai jenis tatasusunan seperti Tetap dan Dinamik. Kami juga akan memahami pelbagai kaedah tatasusunan yang digunakan dalam VBA.

Tatasusunan VBA

Tasusunan ialah sejenis pembolehubah khas yang boleh menyimpan berbilang nilai jenis data yang sama .

Sebagai contoh, jika anda mempunyai nama 100 pekerja, maka bukannya mencipta 100 pembolehubah rentetan jenis data, anda hanya boleh mencipta satu pembolehubah tatasusunan rentetan jenis dan menetapkan 100 nilai kepada pembolehubah tatasusunan yang sama.

Tatasusunan Satu Dimensi

Suatu tatasusunan yang mempunyai semua elemen dalam satu baris atau dalam satu lajur dipanggil tatasusunan Satu dimensi. Menyenaraikan nama semua pelajar dalam kelas dalam satu lajur adalah contoh tatasusunan satu dimensi. Ia diisytiharkan seperti yang ditunjukkantatasusunan diisytiharkan seperti yang ditunjukkan di bawah.

Malapkan ArrayName(FirstIndex To LastIndex, FirstIndex To LastIndex) Sebagai DataType.

Contoh: Malapkan markah(1 Hingga 3 , 0 Hingga 2) Sebagai Integer

S #3) Bagaimana untuk menukar Julat kepada Array?

Jawapan: Kita boleh menggunakan fungsi Transpose untuk menukar julat kepada tatasusunan. Kod ini akan mencipta Mys[10]

Sub Example() Dim Mys As Variant Mys = Application.Transpose(Range("A1:A10")) End Sub

S #4) Apakah varian tatasusunan dalam VBA?

Jawapan: Tatasusunan varian akan menerima semua jenis jenis data untuk indeksnya iaitu anda boleh menyimpan pelbagai jenis nilai dalam tatasusunan tunggal.

Contoh:

Malapkan arrayData(3) Sebagai Varian

arrayData(0) = “Vikas Vipal”

arrayData(1) = 411234567890#

Cara-cara untuk mengubah saiz tatasusunan semasa runtime dan juga mengekalkan nilai menggunakan redim preserve telah dibincangkan dengan contoh. Akhirnya, kami mempelajari kaedah Tatasusunan yang akan membantu kami dalam melaksanakan beberapa operasi.

di bawah.

Malapkan nama tatasusunan(arah bawah Ke AtasBound) Sebagai Jenis Data

Terdapat pelbagai cara untuk mengisytiharkan tatasusunan. Diberikan di bawah adalah beberapa contoh.

Contoh:

#1) Malapkan MyArrayExample(0 Hingga 3) Sebagai Integer

Mencipta tatasusunan dengan lokasi 0,1,2,3 yang akan menerima nilai Integer.

#2) Malapkan MyArray2(3) Sebagai Rentetan

Lalai daripada 0 kepada 3 dan mencipta tatasusunan dengan lokasi 0,1,2,3 yang akan menerima nilai String.

#3) Malapkan MyArray2(13 hingga 15) Sebagai Ganda

Mencipta tatasusunan bermula dari 13 iaitu 13, 14, dan 15, dan menerima nilai Berganda. Kami telah menyebut sempadan bawah sebagai 13, jadi tatasusunan akan mula memperuntukkan nilai dari lokasi 13 dan bukannya 0.

Mari kita buat kod mudah dan fahami semua 3 cara pengisytiharan tatasusunan.

Nota: Untuk menulis Kod VB Buka Microsoft Excel (versi yang disokong ialah Excel 2007, 2010, 2013, 2016, 2019). Navigasi ke Tab Pembangun -> Visual Basic (Sebagai alternatif, gunakan pintasan Alt+F11). Dalam editor VB, klik pada Sisipkan -> Modul dan tampal kod di bawah.

Pertimbangkan prosedur di bawah yang menunjukkan jenis pengisytiharan yang berbeza.

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

Tekan F5 atau tekan butang jalankan pada bar alat untuk melaksanakan kod.

Pembolehubah Biasa Vs Pembolehubah Tatasusunan

Kami kini tahu cara tatasusunan satu dimensi berfungsi. Jadi mari kita luangkan sedikit masa untuk memahami mengapa tatasusunan sangat pentingbahasa pengaturcaraan.

Anggap anda perlu memasukkan gaji 5 pekerja. Untuk mencapai ini menggunakan pembolehubah biasa, anda perlu mencipta 5 pembolehubah.

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

Sekarang mari kita bina kod yang sama menggunakan pembolehubah Tatasusunan.

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

Di sini, kami baru sahaja menggunakan satu pembolehubah tatasusunan yang akan menyimpan semua nama pekerja. Katakan anda perlu menambah 100 lagi nama pekerja maka anda hanya perlu menukar saiz tatasusunan dan tidak perlu mencipta pembolehubah baharu.

Ini akan mengurangkan bilangan baris dalam kod dan dengan itu menjadikannya mudah boleh difahami dan boleh dibaca.

Tatasusunan Dua Dimensi

Tatasusunan 2 dimensi mempunyai 2 indeks – indeks pertama akan mewakili baris dan indeks ke-2 akan mewakili lajur. Ia mempunyai berbilang baris dan lajur dan biasanya diwakili dalam format jadual.

Pengisytiharan tatasusunan 2 malap adalah seperti berikut:

Nama Tatasusunan Malap(FirstIndex To LastIndex, FirstIndex To LastIndex) Sebagai DataType.

Pertimbangkan contoh menyimpan markah 2 pelajar yang diperoleh dalam 3 mata pelajaran. Jadi kami akan mencipta tatasusunan 2 dimensi yang mengambil 2 baris dan 3 lajur.

Kami akan memulakan tatasusunan dari baris 1 hingga baris 2 dan lajur 1 hingga lajur 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

Tekan F5 atau Tekan butang jalankan pada bar alat untuk melaksanakan kod.

Baris 2 dan Lajur 2

Baris 1 dan Lajur 3

Tatasusunan Tetap

Tatasusunan Tetap juga dipanggil StatikTatasusunan mempunyai batas bawah dan batas atas tetap dan saiz ini tidak boleh diubah pada masa berjalan. Saiz tatasusunan ditentukan semasa pengisytiharan dalam kurungan. Semua contoh di atas ialah tatasusunan tetap kerana kami telah menyebut saiznya semasa pengisytiharan.

Tatasusunan tetap biasanya digunakan apabila anda pasti tentang saiz tatasusunan. Sebagai contoh, bilangan hari dalam seminggu, anda boleh mencipta tatasusunan dengan sempadan bawah 0 dan sempadan atas 6 dan pastikan anda tidak akan menukar saiznya.

Tatasusunan Dinamik

Susun Dinamik membenarkan kami mengubah saiz tatasusunan semasa masa jalankan. Ini berguna apabila anda tidak pasti tentang saiz tatasusunan. Katakan dalam kemasukan kolej, anda mungkin tidak pasti berapa ramai pelajar yang benar-benar akan mendapat kemasukan, jadi anda tidak boleh menentukan saiz pada reka bentuk atau masa pengisytiharan.

Pengisytiharan tatasusunan Dinamik adalah serupa dengan Statik tatasusunan dengan kurungan kosong.

Dim Employee() As String

REDIM

Apabila kita ingin menukar saiz kita perlu menggunakan REDIM , kita perlu ambil perhatian bahawa sempadan bawah tidak boleh diubah, kita hanya boleh menukar sempadan atas tatasusunan.

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

Sekarang, kita tahu kita boleh menukar saiz tatasusunan semasa masa jalanan, oleh itu kita boleh menggunakan penyataan ReDim apabila kita perlu meningkatkan ubound tatasusunan. Mari cuba Tingkatkan saiz tatasusunan sekali lagi dan tambahkan yang baharunama pelajar.

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

Anda akan melihat bahawa keputusan tidak menunjukkan nama pelajar yang ditambahkan sebelum ini, ia memberikan nilai nol. Ini kerana pernyataan Redim akan mencipta tatasusunan baharu dengan saiz baharu dan memusnahkan nilai lama.

ReDim Preserve

Represerve pernyataan membantu kami dalam mengatasi had ReDim dengan mengekalkan nilai lama dan dengan itu meningkatkan saiz tatasusunan.

Mari kita tulis semula kod di atas menggunakan 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

Seperti yang telah kita gunakan kata kunci simpan, nilai yang dimasukkan sebelum ini tidak hilang dan nilai baharu berjaya ditambahkan.

Tatasusunan Varian

Sehingga kini kami telah melihat tatasusunan menerima jenis nilai yang sama. Sekarang mari kita isytiharkan tatasusunan sebagai varian dan simpan pelbagai jenis data seperti Rentetan, Tarikh, Panjang, Integer dalam tatasusunan tunggal.

Contoh:

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

Kaedah Tatasusunan VBA

Terdapat beberapa kaedah dalam tatasusunan VBA yang akan membantu kami melaksanakan fungsi yang berbeza, seperti yang dinyatakan di bawah.

Sl. Tidak Nama Sintaks Penerangan
1 Array Array(arglist) Menukar varian biasa

pembolehubah menjadi Array.

2 Padam Padam nama tatasusunan Digunakan untuk memulakan semula tatasusunan saiz tetap

dan membebaskan memori untuk Dinamiktatasusunan.

3 IsArray IsArray (nama pembolehubah) Menentukan sama ada pembolehubah ialah tatasusunan.
4 Lbound LBound( ArrayName, [Dimension] ) Mengembalikan subskrip terendah

tatasusunan.

5 Ubound UBound( ArrayName , [Dimensi] ) Mengembalikan subskrip tertinggi

tatasusunan.

6 Pemisahan Split(ungkapan, [ pembatas, [ had, [ bandingkan ]]]) Ia membahagikan rentetan kepada berbilang subrentetan dan mengembalikan tatasusunan berasaskan sifar.
7 Sertai Sertai(sourcearray, [ delimiter ]) Sertai berbilang subrentetan dalam tatasusunan dan mengembalikan nilai rentetan .
8 Penapis Penapis(sourcearray, padanan, [ include, [ compare ]]) Penapis akan membolehkan kita mencari

padanan yang ditentukan daripada tatasusunan.

Mari bincangkan setiap satu daripadanya secara terperinci dengan contoh.

#1) Tatasusunan

Mari kita isytiharkan pembolehubah varian biasa dan gunakannya sebagai tatasusunan. Apabila anda ingin menukar pembolehubah varian biasa kepada tatasusunan, kita perlu menggunakan fungsi ARRAY seperti yang ditunjukkan dalam contoh di bawah.

Fungsi tatasusunan menerima argumen yang mengandungi nilai dipisahkan koma . Nilai ini ditetapkan sebagai elemen tatasusunan.

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

Anda perlu mengenal pasti pembolehubah tatasusunan menggunakan indeks,oleh itu dalam contoh di atas, nilai diambil sebagai varData(0) varData(2) varData(3).

#2) Padam

Fungsi ini akan memadamkan semua nilai yang dimasukkan untuk tatasusunan saiz tetap dan akan mengosongkan ruang memori untuk tatasusunan dinamik.

Sintaks: Padamkan nama tatasusunan

Padam mempunyai gelagat berbeza untuk jenis data yang berbeza seperti yang diberikan di bawah.

  • Untuk angka tetap: Semua nilai ditetapkan semula kepada sifar.
  • Untuk jenis data rentetan tetap: Semua nilai ditetapkan semula kepada panjang sifar.
  • Untuk tatasusunan dinamik: Membebaskan memori yang digunakan oleh tatasusunan.

Contoh :

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

Keputusan sebelum menggunakan fungsi Padam

Hasil selepas menggunakan Padam

#3) IsArray

Fungsi ini digunakan untuk menentukan sama ada pembolehubah input yang diberikan ialah tatasusunan atau tidak. Ia mengembalikan benar jika pembolehubah yang dimasukkan adalah benar, jika tidak ia mengembalikan palsu.

Sintaks : IsArray (nama pembolehubah)

Contoh:

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

Hasil daripada Kotak Msg pertama

Hasil daripada kotak mesej kedua

#4) Lbound

Ia mengembalikan subskrip terendah tatasusunan yang ditentukan sebagai argumen untuk fungsi Lbound.

Sintaks: LBound( ArrayName, [Dimension] )

ArrayName ialah nama tatasusunan.

Dimensi ialah nilai integer pilihan, jika tatasusunan mempunyai berbilang dimensi, maka anda boleh menentukandimensi yang manakah anda ingin tentukan Lbound.

Contoh:

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

Ia mengembalikan subskrip atas tatasusunan yang ditentukan sebagai argumen dalam fungsi Ubound.

Sintaks: UBound( ArrayName, [Dimension] )

ArrayName ialah nama bagi tatasusunan.

Dimensi ialah nilai integer pilihan, jika tatasusunan mempunyai berbilang dimensi, maka anda boleh menentukan dimensi mana yang anda ingin tentukan Ubound.

Contoh:

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) Pisahkan

Ia mengembalikan tatasusunan dengan beberapa subrentetan yang diperoleh daripada keseluruhan rentetan yang diberikan.

Sintaks: Split(ungkapan, [ pembatas, [ had, [ bandingkan ]]])

  • Ungkapan: Ini ialah keseluruhan rentetan yang akan digunakan untuk menghasilkan subrentetan.
  • Pembatas: Menggunakan pembatas yang ditentukan, subrentetan akan dijana. Jika ini tidak disebut maka ruang dianggap sebagai pembatas.
  • Had: Bilangan subrentetan untuk dikembalikan.
  • Bandingkan: Selepas subrentetan dihasilkan, anda boleh menggunakan pilihan bandingkan yang berbeza untuk menguji hasilnya.

Contoh: Dalam contoh di bawah, kami menggunakan pembatas sebagai – dan hadkan sebagai 3.

Oleh itu fungsi split akan memisahkan keseluruhan rentetan menjadi subrentetan berdasarkan pembatas. Tetapi kami juga telah menyebut had sebagai 3 jadi subrentetan tidak akan terbentuk selepas had 3. Oleh itu pembatas terakhir –akan dilangkau.

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) Sertai

Ini hanyalah sebaliknya bagi pemisahan, Sertai akan mencipta satu rentetan dengan menggabungkan beberapa subrentetan.

Sintaks: Join(sourcearray, [ delimiter ])

Sourcearray: Susunatur rentetan satu dimensi yang anda mahu sertakan menjadi satu.

Pembatas: Pembatas yang ditentukan akan ditambahkan selepas setiap rentetan semasa menyertai.

Contoh:

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

Kesemua 3 nilai adalah bergabung dan \ diletakkan di antara setiap perkataan, seperti yang telah kami sebutkan \ sebagai pembatas.

#8) Penapis

Penapis akan membolehkan kita untuk cari padanan yang ditentukan daripada tatasusunan. Berdasarkan kriteria penapis, subset tatasusunan rentetan akan dikembalikan.

Sintaks: Penapis(susun sumber, padanan, [ sertakan, [ bandingkan ]])

Contoh:

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

Contoh ini akan mencari perkataan “help” dalam semua rentetan tatasusunan menggunakan fungsi penapis.

Soalan Lazim

S #1) Bagaimana untuk mendapatkan panjang tatasusunan dalam VBA?

Jawapan: Untuk mendapatkan panjang tatasusunan array, kami menggunakan fungsi Ubound. Fungsi ini akan memberi kita subskrip atas tatasusunan yang ditentukan.

S #2) Bagaimana untuk mengisytiharkan tatasusunan dalam VBA?

Jawapan: Satu- tatasusunan dimensi diisytiharkan seperti yang ditunjukkan di bawah.

Nama tatasusunan malap(halaman bawah Ke Bound Atas) Sebagai Jenis Data

Contoh: Malapkan Myarray(0 Hingga 2) Sebagai Integer

Dua dimensi

Gulung ke atas