Dizide ortak elaman sayısını bulma

[tamer42]

Merhaba,

Aşağıdaki gibi iki dizi olsun,
Burada her iki dizide de kaç adet ortak elaman var bunları nasıl tespit edebiliriz?
Örnek: Aşağıdaki dizide 23 ve 44 elamanları her ikisinde de ortak; sonuç 2 verecek şekilde bir fonksiyon arıyorum

Sub Dizilerrr()
Dim Reklam(3) As String
Dim Yas(4) As Integer


Reklam(0) = 12
Reklam(1) = 23
Reklam(2) = 19
Reklam(3) = 44


Yas(0) = 29
Yas(1) = 23
Yas(2) = 21
Yas(3) = 44
Yas(4) = 40

End Sub

teşekkürler,
iyi akşamlar.

 

[EmrExcel16]

Merhaba , belki daha kolay bir yöntemi de vardır ama aklıma ilk gelen bu oldu.

Sub Dizilerrr()
Dim Reklam(3) As String
Dim Yas(4) As Integer


Reklam(0) = 12
Reklam(1) = 23
Reklam(2) = 19
Reklam(3) = 44

Yas(0) = 29
Yas(1) = 23
Yas(2) = 21
Yas(3) = 44
Yas(4) = 40

For Each Rkl In Reklam
    For Each ys In Yas
        If Rkl * 1 = ys * 1 Then
            Adt = Adt + 1
        End If
    Next
Next
MsgBox Adt


End Sub

 

[tamer42]

Merhaba , belki daha kolay bir yöntemi de vardır ama aklıma ilk gelen bu oldu.

Sub Dizilerrr()
Dim Reklam(3) As String
Dim Yas(4) As Integer


Reklam(0) = 12
Reklam(1) = 23
Reklam(2) = 19
Reklam(3) = 44

Yas(0) = 29
Yas(1) = 23
Yas(2) = 21
Yas(3) = 44
Yas(4) = 40

For Each Rkl In Reklam
    For Each ys In Yas
        If Rkl * 1 = ys * 1 Then
            Adt = Adt + 1
        End If
    Next
Next
MsgBox Adt


End Sub

Emre Hocam ilginize teşekkürler
Fonksiyon şeklinde yapamaz mıyız?

 

[EmrExcel16]

Bu şekilde mi ?

Sub Dizilerrr()
Dim Reklam(3) As String
Dim Yas(4) As Integer

Reklam(0) = 12
Reklam(1) = 23
Reklam(2) = 19
Reklam(3) = 44

Yas(0) = 29
Yas(1) = 23
Yas(2) = 21
Yas(3) = 44
Yas(4) = 40

MsgBox Adt(Reklam, Yas)

End Sub

Function Adt(Reklam, Yas)
    For Each Rkl In Reklam
        For Each ys In Yas
            If Rkl * 1 = ys * 1 Then Adt = Adt + 1
        Next
    Next
End Function

 

[tamer42]

Bu şekilde mi ?

Sub Dizilerrr()
Dim Reklam(3) As String
Dim Yas(4) As Integer

Reklam(0) = 12
Reklam(1) = 23
Reklam(2) = 19
Reklam(3) = 44

Yas(0) = 29
Yas(1) = 23
Yas(2) = 21
Yas(3) = 44
Yas(4) = 40

MsgBox Adt(Reklam, Yas)

End Sub

Function Adt(Reklam As Variant, Yas As Variant)
    For Each Rkl In Reklam
        For Each ys In Yas
            If Rkl * 1 = ys * 1 Then Adt = Adt + 1
        Next
    Next
End Function

teşekkürler

 

[EmrExcel16]

teşekkürler

Rica ederim , iyi çalışmalar.

 

[ÖmerBey]

Merhaba,
Alternatif olsun: Kodun sonuna eklenerek denenebilir...

MsgBox Evaluate("=SUM(IF(ISERROR(MATCH({" & Join(Reklam, ",") & "},{" & Join(Yas, ",") & "},0)),0,1))")

 

[Erdem Akdemir]

Alternatif,

Dim Reklam(3) As String

Yukarıdaki satırı' da integer yaptıktan sonra aşağıdaki kod ile ortak değerlerin sayısı bulunabilir.

deg = Application.Count(Application.Match(Reklam, Yas, 0))

 

[tamer42]

Merhaba,
Alternatif olsun: Kodun sonuna eklenerek denenebilir...

MsgBox Evaluate("=SUM(IF(ISERROR(MATCH({" & Join(Reklam, ",") & "},{" & Join(Yas, ",") & "},0)),0,1))")

Ömer Hocam ilginize teşekkürler,
verdiğiniz formülü yazınca ekli hata mesajını alıyorum.

 

[ÖmerBey]

verdiğiniz formülü yazınca ekli hata mesajını alıyorum.

Merhaba,
Eksik ifade etmişim, kusuruma bakmayınız. Yas değişkenini de string olarak tanımlayıp deneyiniz.

 

[tamer42]

Merhaba,
Eksik ifade etmişim, kusuruma bakmayınız. Yas değişkenini de string olarak tanımlayıp deneyiniz.

Erdem Hocam ve Ömer Hocam her ikinize de teşekkürler....