nofset (j,i) bir dizi ifade edıyor ve i ile j degerlerıne bağlı başta dizileri bılmedıgım için for döngüsü kurdum ancak bu yuzden su an hatal sıralama yapıyor For i = 1 To nsales kullanmadan nofset(j,i) nasıl ifade ederım yada bunu tek indisli nofset (K) gibi yazabılır mıyım ?
Dim sayaç(100, 3)
For j = 1 To nofper
For i = 1 To nsales
For k = 1 To nofret(j, i)
If diotsev(j, k) < 4 Then
sayaç(j, 1) = sayaç(j, 1) + 1
ElseIf diotsev(j, k) < 7 Then
sayaç(j, 2) = sayaç(j, 2) + 1
Else
sayaç(j, 3) = sayaç(j, 3) + 1
End If
Next k
Next i
Next j
Dim sayaç(100, 3)
For j = 1 To nofper
For i = 1 To nsales
For k = 1 To nofret(j, i)
If diotsev(j, k) < 4 Then
sayaç(j, 1) = sayaç(j, 1) + 1
ElseIf diotsev(j, k) < 7 Then
sayaç(j, 2) = sayaç(j, 2) + 1
Else
sayaç(j, 3) = sayaç(j, 3) + 1
End If
Next k
Next i
Next j