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

95 Okunma VBA

"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
Eleman Dizi Arama Döngü Bulma VBA

İlginizi Çekebilir

VBA Dizinin İlk ve Son Elemanının Aynı Olup Olmamasını Bulma Örne ...

VBA 1'den N'e Kadar Olan Sayıların Toplamını Bulma Örneği

VBA Sayıların Geometrik Ortalamasını Bulma Örneği

VBA Bir Listede Birden Çok Olan Elemanları Göstermek

VBA Bir Sayının Asal Sayı Olup Olmadığını Bulma Örneği