ID Artikel: 152288 - Kajian Terakhir: 15 September 2011 - Revisi: 2.0

Menentukan jumlah dimensi dalam variabel Array

Tampil berdampinganKlik disini untuk menampilkan sumber Inggris dan terjemahan oleh mesin secara berdampingan
Penerjemahan MesinPeringatan: artikel ini adalah terjemahan oleh mesin
Retired KB ArticleSanggahan Konten KB yang Tidak Lagi Diperbarui
Melihat produk di mana artikel ini berlaku.
Tips SistemThis article applies to a different operating system than the one you are using. Article content that may not be relevant to you is disabled.

Pada Halaman ini

Perbesar semua | Perkecil semua

RINGKASAN

Tidak ada fungsi built-in untuk kembali jumlah dimensi di variabel array di Microsoft Visual Basic for Applications. Cara termudah untuk melakukan ini adalah dengan perulangan melalui dimensi dan menggunakan sebuah kesalahan handler untuk kembali jumlah dimensi.
Kembali ke atas

INFORMASI LEBIH LANJUT

Microsoft menyediakan contoh pemrograman hanya sebagai ilustrasi, tanpa jaminan apa pun baik tersurat maupun tersirat. Termasuk, namun tidak terbatas pada, jaminan tersirat mengenai kelayakan untuk diperdagangkan atau kesesuaian untuk keperluan tertentu. Artikel ini mengasumsikan bahwa Anda telah terbiasa dengan bahasa pemrograman yang ditunjukkan dan dengan alat yang digunakan untuk membuat dan mendebug prosedur. Teknisi dukungan Microsoft dapat membantu menjelaskan fungsionalitas prosedur tertentu, namun mereka tidak akan memodifikasi contoh untuk memberikan fungsionalitas tambahan atau menyusun prosedur untuk memenuhi persyaratan khusus Anda. Cara termudah untuk menentukan jumlah dimensi dalam Visual Basic untuk Variabel array aplikasi adalah untuk mendapatkan rutin untuk mencoba tugas dengan masing-masing dimensi. Ketika ia mencoba untuk melakukan tugas untuk dimensi yang tidak ada, kesalahan akan kembali. Sebuah kesalahan handler dapat digunakan untuk kembali dimensi di mana tugas terakhir sukses. Salah satu cara untuk menguji dimensi adalah dengan menggunakan fungsi LBound. Fungsi LBound mengambil dua argumen, variabel array dan dimensi tertentu dan kembali ditulis dalam batas bawah dimensi itu. Menggunakan fungsi ini di tidak ada dimensi kembali kesalahan. Digabungkan dengan sebuah handler kesalahan, ini dapat digunakan untuk menentukan jumlah dimensi.
Kembali ke atas

Prosedur Visual Basic sampel

Rutin ini tes array yang bernama Xarray dengan menguji LBound masing-masing dimensi. Menggunakan untuk...Berikutnya loop, siklus rutin melalui nomor array mungkin dimensi, hingga 60000, sampai galat. Kemudian handler kesalahan mengambil langkah counter yang loop gagal mengurangi salah satu (karena sebelumnya adalah yang terakhir tanpa kesalahan), dan menampilkan hasilnya di kotak pesan.
   Sub NumberOfDimensions()

      'Dimensions Xarray as an array.
      Dim Xarray(1 to 10, 5 to 20, 256 to 300, 8, -5 to 0)

      'Sets up the error handler.
      On Error GoTo FinalDimension

      'Visual Basic for Applications arrays can have up to 60000
      'dimensions; this allows for that.
      For DimNum = 1 to 60000

         'It is necessary to do something with the LBound to force it
         'to generate an error.
         ErrorCheck = LBound(Xarray, DimNum)

      Next DimNum

      Exit Sub

      ' The error routine.
   FinalDimension:

      MsgBox "The array has " & DimNum - 1 & " dimensions"

   End Sub
Kembali ke atas

REFERENSI

Untuk informasi tambahan tentang mendapatkan bantuan dengan Visual Basic untuk Aplikasi, silakan lihat artikel berikut dalam Pengetahuan Microsoft Base:
163435  (http://support.microsoft.com/kb/163435/EN-US/ ) VBA: Pemrograman sumber daya untuk Visual Basic untuk aplikasi
Kembali ke atas
Berlaku bagi:
  • Microsoft Excel 97 Standard Edition
  • Microsoft Excel 95 Standard Edition
  • Microsoft Excel 5.0 Standard Edition
  • Microsoft Excel 98 for Macintosh
Kembali ke atas
Kata kunci: 
kbdtacode kbhowto kbprogramming kbmt KB152288 KbMtid
Kembali ke atas
Penerjemahan MesinPenerjemahan Mesin
PENTING: Artikel ini diterjemahkan menggunakan perangkat lunak mesin penerjemah Microsoft dan bukan oleh seorang penerjemah. Microsoft menawarkan artikel yang diterjemahkan oleh seorang penerjemah maupun artikel yang diterjemahkan menggunakan mesin sehingga Anda akan memiliki akses ke seluruh artikel baru yang diterbitkan di Pangkalan Pengetahuan (Knowledge Base) dalam bahasa yang Anda gunakan. Namun, artikel yang diterjemahkan menggunakan mesin tidak selalu sempurna. Artikel tersebut mungkin memiliki kesalahan kosa kata, sintaksis, atau tata bahasa, hampir sama seperti orang asing yang berbicara dalam bahasa Anda. Microsoft tidak bertanggung jawab terhadap akurasi, kesalahan atau kerusakan yang disebabkan karena kesalahan penerjemahan konten atau penggunaannya oleh para pelanggan. Microsoft juga sering memperbarui perangkat lunak mesin penerjemah.
Klik disini untuk melihat versi Inggris dari artikel ini:152288  (http://support.microsoft.com/kb/152288/en-us/ )
Kembali ke atas
Retired KB ArticleSanggahan Konten KB yang Tidak Lagi Diperbarui
Artikel ini berisi tentang produk yang tidak lagi didukung oleh Microsoft. Oleh karena itu, artikel ini disajikan ?sebagaimana adanya? dan tidak akan diperbarui.
Kembali ke atas