worksheetfunction.match kullanımı hk

[yzu91]

Sayın uzmanlar merhaba,

Bir program yazıyorum. Yazdığım programda 1. matris içindeki değerler bulundukları satır içinde küçükten büyüğe sıralanarak yazdırılıyor ve ikinci matris oluşuyor. Şimdi 3. matrise 2. matrisin içindeki değerleri 1. matriste bularak onların sütun indislerini yazdırmak istiyorum.

1. matristeki değerleri fmatrix(i,j) dizisinin içinde tutuyorum
2. matristeki değerleri rnd_matrix(i,j) içinde tutuyorum.

Örneğin; 2. matristeki 0,0091 değeri 1. matriste ilk satırın 4. sütununda. dolayısı ile ben 3. matrisimin ilk hücre değerine 4 yazdırmak istiyorum.

Bana 3. matris çıktılarını vermesi için:

worksheetfunction.match(rnd_matrix(i,j),fmatrix,0) gibi bir kod yazdım ama hata verdi.

Anladığım kadarıyla match fonksiyonu sadece tek satır için indis veriyor. 2 boyutlu dizi için kullanamıyorum.

Bu problemi nasıl çözmemi tavsiye edersiniz?

Yardımlarınızı rica ederim.

Saygılarımla...

 

[Necdet]

Merhaba,

Örneği inceleyiniz, kendinize uyarlayınız.

    Dizi2 = Array("ALİ", "BEKİR", "CEMİL", "DURSUN", "ERCAN", "FARUK", "GÜROL")
    Aranan = "BEKİR"
    
    Sonuc = Application.Match(Aranan, Application.Transpose(Dizi2), 0)
    If Not IsError(Sonuc) Then
          MsgBox Aranan & " Dizide VAR! Sıra No : " & Dizi2(Sonuc - 1)
    Else
         MsgBox Aranan & " Dizide YOK!"
    End If