Untuk versi Microsoft Excel 2000 artikel ini, lihat 213798.

Untuk versi Microsoft Excel 98 dan versi Excel yang lebih lama dari artikel ini, lihat 149689.

Ringkasan

Artikel ini berisi sampel prosedur microsoft Visual Basic for Applications yang bisa Anda gunakan untuk bekerja dengan beberapa tipe array.

Informasi Selengkapnya

Microsoft menyediakan contoh pemrograman untuk ilustrasi saja, tanpa jaminan baik secara tersurat maupun tersirat. This includes, but is not limited to, the implied warranties of merchantability or fitness for a particular purpose. Artikel ini mengasumsikan bahwa Anda sudah terbiasa dengan bahasa pemrograman yang sedang ditunjukkan dan dengan alat yang digunakan untuk membuat dan melakukan debug prosedur. Teknisi dukungan Microsoft bisa membantu menjelaskan fungsionalitas prosedur tertentu, namun mereka tidak akan memodifikasi contoh-contoh ini untuk menyediakan fungsionalitas tambahan atau prosedur konstruktif untuk memenuhi persyaratan tertentu Anda. CATATAN: Di Visual Basic for Applications, kata-kata setelah apostrof (') adalah komentar.

Untuk Mengisi Array lalu Menyalinnya ke Lembar Kerja

  1. Buka buku kerja baru dan sisipkan Visual Basic modul baru.

  2. Ketikkan kode berikut pada lembar modul.

    Sub Sheet_Fill_Array()
    Dim myarray As Variant
    myarray = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
    Range("a1:a10").Value = Application.Transpose(myarray)
    End Sub
  3. Pilih Lembar1.

  4. Pada menu Alat, arahkan ke Makro lalu klik Makro.

  5. Dalam kotak dialog Makro, klik Sheet_Fill_Array, lalu klik Jalankan.

Untuk Mengambil Nilai dari Lembar Kerja dan Mengisi Array

  1. Ketik nilai di Sheet1 di sel A1:A10.

  2. Pada lembar Visual Basic, ketikkan kode berikut:

    Sub from_sheet_make_array()
    Dim thisarray As Variant
    thisarray = Range("a1:a10").Value

    counter = 1 'looping structure to look at array
    While counter <= UBound(thisarray)
    MsgBox thisarray(counter, 1)
    counter = counter + 1
    Wend
    End Sub
  3. Pilih Lembar1.

  4. Pada menu Alat, arahkan ke Makro lalu klik Makro.

  5. Dalam kotak dialog Makro, klik from_sheet_make_array, lalu klik Jalankan.

Untuk Melewati dan Menerima Array

  1. Pada lembar modul, ketikkan kode berikut:

    Sub pass_array()
    Dim thisarray As Variant
    thisarray = Selection.Value
    receive_array (thisarray)
    End Sub

    Sub receive_array(thisarray)
    counter = 1
    While counter <= UBound(thisarray)
    MsgBox thisarray(counter, 1)
    counter = counter + 1
    Wend
    End Sub
  2. Pilih Sheet1, dan sorot rentang A1:A10.

  3. Pada menu Alat, arahkan ke Makro lalu klik Makro.

  4. Dalam kotak dialog Makro, klik pass_array, lalu klik Jalankan.

Untuk Membandingkan Dua Larik

  1. Buat dua rentang bernama di Sheet1. Beri nama satu rentang1 dan rentang lainnya2.

    Misalnya, sorot rentang sel A1:A10 dan beri nama rentangnya1; sorot rentang sel B1:B10 dan beri nama rentang2.

  2. Ketikkan kode berikut pada lembar modul.

    Sub compare_two_array()
    Dim thisarray As Variant
    Dim thatarray As Variant

    thisarray = Range("range1").Value
    thatarray = Range("range2").Value
    counter = 1
    While counter <= UBound(thisarray)
    x = thisarray(counter, 1)
    y = thatarray(counter, 1)
    If x = y Then
    MsgBox "yes"
    Else MsgBox "no"
    End If
    counter = counter + 1
    Wend
    End Sub
  3. Pilih Lembar2.

  4. Pada menu Alat, arahkan ke Makro lalu klik Makro.

  5. Dalam kotak dialog Makro, klik compare_two_array, lalu klik Jalankan.

    Anda akan melihat satu kotak pesan untuk setiap perbandingan.

Untuk Mengisi Larik Dinamis

  1. Pada lembar modul, ketikkan kode berikut:

    Sub fill_array()

    Dim thisarray As Variant
    number_of_elements = 3 'number of elements in the array

    'must redim below to set size
    ReDim thisarray(1 To number_of_elements) As Integer
    'resizes this size of the array
    counter = 1
    fillmeup = 7
    For counter = 1 To number_of_elements
    thisarray(counter) = fillmeup
    Next counter

    counter = 1 'this loop shows what was filled in
    While counter <= UBound(thisarray)
    MsgBox thisarray(counter)
    counter = counter + 1
    Wend

    End Sub
  2. Pada menu Alat, arahkan ke Makro lalu klik Makro.

  3. Dalam kotak dialog Makro, klik fill_array, lalu klik Jalankan.

CATATAN: Mengubah variabel "number_of_elements" akan menentukan ukuran array.

Perlu bantuan lainnya?

Kembangkan keterampilan Anda

JELAJAHI PELATIHAN >

Dapatkan fitur baru terlebih dahulu

GABUNG MICROSOFT INSIDER >

Apakah informasi ini bermanfaat?

Seberapa puaskah Anda dengan kualitas bahasanya?
Apa yang memengaruhi pengalaman Anda?

Terima kasih atas umpan balik Anda!

×