Makroya parametre olarak dizi verilebilir mi..

[ENDMUH1]

Bir fonksiyona dizi halinde veri gönderebilir miyiz..

Yapmak istediğim şey..

EnKucuk(ArrSayi(10))

EnKucuk fonksiyonuna ArrSayi dizisinin ilk 10 elemanını (1,2,3,4,5..10) göndermek ve en kucuk değeri bulmak...

 

[Orion1]

Aşağıdaki Enkuuck değişkeni 11 elemenlı bir dizidir.

Dim Enkucuk(10)

 

[Ferhat Pazarçevirdi]

Aşağıda, Function'a dizi değişken göndermek (refere etmek) için, örnek bir kod verilmektedir.

AnaMakro makrosunu çalıştırdığınızda, bu makronun ürettiği diziyi (arr), EnkucukBul function'ına gönderir ve en küçük değeri ürettirerek, mesaj kutusu içinde gösterir ...

Option Explicit
Sub AnaMakro()
    Dim arr() As Variant
    Dim enKucuk As Double
    
    arr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
    
    enKucuk = EnKucukBul(arr)
    
    MsgBox "Enküçük değer : " & enKucuk, _
                vbInformation, _
                    "Bilgi"
End Sub
'-------------------------------------------------------
Private Function EnKucukBul(ByRef Dizi() As Variant)
    Dim kucuk As Double
    Dim i As Integer
    
    If IsArray(Dizi) Then
        kucuk = Dizi(0)
        For i = 0 To UBound(Dizi)
            If IsNumeric(Dizi(i)) Then
                If kucuk > Dizi(i) Then
                    kucuk = Dizi(i)
                End If
            End If
        Next i
    End If
    
    EnKucukBul = kucuk
End Function

 

[ENDMUH1]

teşekkür ederim..

Ferhat Bey teşekkürler..

Tam olarak bahsettiğim şey buydu..Elinize sağlık..
(byref dizi() kısmını yazamamıştım... çok teşekkür ederim..