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

"VBA" Programlama dilinde "Dizinin İlk ve Son Elemanının Aynı Olup Olmamasını Bulma Örneği" ile ilgili kod örneği aşağıda belirtilmiştir.

Function firstLastSame(numberList As Variant) As Boolean
    Debug.Print "Listemiz: ";
    For i = LBound(numberList) To UBound(numberList)
        Debug.Print numberList(i) & " ";
    Next i
    Debug.Print
    
    firstNum = numberList(LBound(numberList))
    lastNum = numberList(UBound(numberList))
    
    firstLastSame = (firstNum = lastNum)
End Function

Sub Main()
    Dim numbersX As Variant
    numbersX = Array(10, 20, 30, 40, 10)
    Debug.Print "Sonuc: " & firstLastSame(numbersX)
    
    Dim numbersY As Variant
    numbersY = Array(75, 65, 35, 75, 30)
    Debug.Print "Sonuc: " & firstLastSame(numbersY)
End Sub



İlginizi Çekebilir

VBA İkinci Dereceden Bir Denklemin Köklerini Bulma Örneği

VBA Tüm Satırları Auto Fit Yapmak

VBA Rastgele Sayılardan En Büyük ve En Küçüğü Bulma Örneği

VBA Diziye Eleman Ekleme

VBA Guid Yaratmak