Makale numarası: 152288 - Son Gözden Geçirme: 11 Ekim 2006 Çarşamba - Gözden geçirme: 2.3

Boyut, bir dizi değişken sayısını belirleme

Sistem İpucuBu makale, kullandığınızdan farklı bir işletim sistemine yöneliktir. Sizinle ilgili olmayabilecek makale içeriği devre dışı bırakıldı.

Bu Sayfada

Hepsini aç | Hepsini kapa

Özet

Uygulamalar için bir dizi değişkeni Visual Basic'de, boyut sayısını döndürmek için hiçbir yerleşik bir işlevi vardır. Bunu yapmanın en kolay yolu boyutları arasında döngü ve boyut sayısını döndürmek için bir hata işleyicisi var.

Daha fazla bilgi

Microsoft, programlama örneklerini yalnızca gösterim amacıyla sağlar; örtülü veya açık garanti vermez. Buna satılabilirlik veya belirli bir amaca uygunluk zımni garantileri de dahildir, ancak bunlarla sınırlı değildir. Bu makale, gösterilen programlama dilini ve yordamları oluşturmak ve hata ayıklamak amacıyla kullanılan araçları kullanmayı bildiğinizi varsayar. Microsoft destek mühendisleri, belirli bir yordamın işlevselliğinin açıklanmasına yardımcı olabilir, ancak gereksinimlerinizi karşılamaya yönelik olarak ek işlevsellik sağlamak veya yordamlar geliştirmek amacıyla bu örnekleri değiştirmezler. Her bir görevle çalışmak için bu yordamı almak için bir Visual Basic for Applications dizi değişken boyut sayısını belirlemek için en kolay yolu var. Varolmayan bir boyut görevi yapmak çalıştığında bir hata döndürdü. Bir hata işleyicisi, görevin son başlatılmasından boyut dönmek için kullanılabilir başarılı. Bir boyut sınamak için bir LBound işlevini kullanarak yoludur. LBound işlevi, iki bağımsız değişkeni, dizi değişkeni ve belirli boyut ve o boyutun alt sınır döndürür. Varolmayan bir boyutu bu işlevi kullanmak için hata verir. Bir hata işleyicisi ile eşleşen, bu boyut sayısını belirlemek için kullanılabilir.

Örnek Visual Basic yordamı

Bu yordam, her boyutun LBound sınayarak Xarray adlı bir dizi sınar. Hata oluşturulana kadar döngü For...Next kullanarak ile 60000 kadar olası bir dizinin boyut sayısını yordam döngüleri. Sonra sayacı adım döngü başarısız oldu, hata işleyicisi alır (önceki son bir olmadan bir hata yüzünden) birini çıkarır ve sonucu bir ileti kutusu içinde görüntüler.
   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
				

Referanslar

Visual Basic for Applications Yardım alma hakkında daha fazla bilgi için lütfen Microsoft Knowledge Base'de aşağıdaki makaleye bakın:
163435  (http://support.microsoft.com/kb/163435/EN-US/ ) VBA: Kaynaklar Visual Basic for Applications programlama

Bu makaledeki bilginin uygulandığı durum:
  • Microsoft Excel 97 Standard Edition
  • Microsoft Excel 95 Standard Edition
  • Microsoft Excel 5.0 Standard Edition
  • Microsoft Excel 98 for Macintosh
Anahtar Kelimeler: 
kbmt kbdtacode kbhowto kbprogramming KB152288 KbMttr
Otomatik TercümeOtomatik Tercüme
ÖNEMLİ: Bu makale, bir kişi tarafından çevrilmek yerine, Microsoft makine-çevirisi yazılımı ile çevrilmiştir. Microsoft size hem kişiler tarafından çevrilmiş, hem de makine-çevrisi ile çevrilmiş makaleler sunar. Böylelikle, bilgi bankamızdaki tüm makalelere, kendi dilinizde ulaşmış olursunuz. Bununla birlikte, makine tarafından çevrilmiş makaleler mükemmel değildir. Bir yabancının sizin dilinizde konuşurken yapabileceği hatalar gibi, makale; kelime dağarcığı, söz dizim kuralları veya dil bilgisi açısından yanlışlar içerebilir. Microsoft, içeriğin yanlış çevrimi veya onun müşteri tarafından kullanımından doğan; kusur, hata veya zarardan sorumlu değildir. Microsoft ayrıca makine çevirisi yazılımını sıkça güncellemektedir.
Makalenin İngilizcesi aşağıdaki gibidir:152288  (http://support.microsoft.com/kb/152288/en-us/ )
Retired KB ArticleKullanım Dışı Bilgi Bankası İçeriği Yasal Uyarı
Bu makale, Microsoft'un artık destek sağlamadığı ürünler ile ilgili olarak yazılmıştır. Bu nedenle, bu makale "olduğu gibi" sağlanmıştır ve bundan sonra güncelleştirilmeyecektir.