VBA Dizideki Bir Elemanı Döngü İle Arama Örneği

"VBA" Programlama dilinde "Dizideki Bir Elemanı Döngü İle Arama Örneği" ile ilgili örnek kod aşağıda verilmiştir.

Sub Main()
    Dim numbers(9) As Integer
    numbers = Array(9, 12, 5, 4, 3, 6, 8, 1, 0, 17, 24)
    Dim flag As Integer: flag = 0

    Dim x As Integer
    x = InputBox("Bulunması istenen rakamı girin:")

    Dim i As Integer
    For i = 0 To UBound(numbers)
        If x = numbers(i) Then
            MsgBox "Bulundu, elemanın pozisyonu: " & i
            flag = 1
            Exit For
        End If
    Next i

    If flag = 0 Then
        MsgBox "Aranan eleman dizide bulunamadı."
    End If
End Sub



İlginizi Çekebilir

VBA 1'den 100'e Kadar Sayı Toplam Örneği

VBA Öğrenmenin Avantajları Nelerdir?

VBA Bir Dizi Gerçek Sayının Çarpımını Bulma Örneği

VBA Sinüs Değerini Hesaplama

VBA Bir Stringde Tam Sayılar Dışındaki Karakterleri Kaldırma Örne ...