makroda matris

[nkeceli]

öncelikle merhaba makroya yeni başladım ama C ve C# bilgim var benim elimde 4 e 4 lük bir matris var ve 0-1 değişkenlerden oluşuyor.her satırda sütunları 2 şer şekilde kontrol etmem gerekiyor. for döngüsünü kuramadım yardım edebilir misiniz? şimdiden teşekkürler

 

[Korhan Ayhan]

Selamlar,

Forumumuza hoşgeldiniz. Sorunuzu küçük bir örnek dosya ile desteklermisiniz. Eklediğiniz dosyada görmek istediğiniz sonucuda belirtirmisiniz.

 

[nkeceli]

öncelikle ilgilendiğiniz için teşekkür ederim dosyayı gonderiyorum

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub DÖNGÜ_İLE_EŞLEŞTİR()
    Dim X As Byte, Y As Byte , SAYAÇ As Byte
 
    For X = 2 To 5
        For Y = 2 To 5 Step 2
            If Cells(X, Y) = 1 And Cells(X, Y + 1) = 1 Then
                SAYAÇ = SAYAÇ + 1
                GoTo Devam
            Else
                GoTo Devam
            End If
        Next
Devam:
    Next
 
    MsgBox SAYAÇ
End Sub

 

[nkeceli]

bu kod sonucu 3 veriyor.m1-m2 makine çifti için mi sonuç veriyor benım her makine çifti için sonuçları da ayrı ayrı bılmem gerekıyor.ona nasıl ulaşabilirim.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub DÖNGÜ_İLE_EŞLEŞTİR()
    Dim X As Byte, Y As Byte, SAYAÇ As Byte, SAY As Byte
 
    For X = 2 To 5 Step 2
        For Y = 2 To 5
            If Cells(Y, X) = 1 And Cells(Y, X + 1) = 1 Then
                SAYAÇ = SAYAÇ + 1
            End If
        Next
        
        SAY = IIf(SAY = 0, 1, SAY + 1)
        MsgBox SAY & ". GRUPTA " & SAYAÇ & " ADET EŞLEŞME BULUNDU."
        SAYAÇ = 0
    Next
End Sub

 

[nkeceli]

ilgilendiğiniz için teşekkür ederim