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

28 Okunma VBA

"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
Liste Aynı Eleman İlk Son VBA

İlginizi Çekebilir

VBA Dosya Boyutunu Öğrenme

VBA Tüm Gizli Satır ve Sütunları Görünür Hale Getirmek

VBA Bir Sayının 5'in Katı Olup Olmadığını Gösteren Örnek

VBA Bir Stringdeki Noktalama İşaretlerini Kaldırma Örneği

VBA 1'den N'e Kadar Asal Sayıları Bulma Örneği