Excel Köşegen matris

[chaos1652]

Excel de 230'a 230 luk bir matris oluşturdum. bunun köşegenlerine hep aynı değer atanacak bunu bunu excel de nasıl yazabilirim. birde bu köşegenleri doldurmak istiyorum kısa bir kodu filan var mıdır?

Şöyle bir şeyler yapmak istiyorum.

Eğer satır sayısı sütün sayısına eşitse, bunu yaz ve o hücreyi renklendir.

Yardımcı olacaklara şimdiden teşekkür ederim.

 

[Necdet]

Merhaba,

230 'luk köşegeni bırakın da 4-5 lik örnek bir matrix hazırlayıp ne demek istediğinizi örnek üzerinde anlatan bir örnek dosya eklerseniz, ne demek istediğiniz daha iyi anlaşılır.

O zamanda ilgi duyan bir arkadaşımızın katkısı daha hızlı olacaktır.

 

[chaos1652]

şöyle bi şey aslında basit ama yapamayınca.

 

[Ömer]

Merhaba,

Module kopyalarak çalıştırınız.

Sub Matris()
 
Dim sut As Long, i As Long
 
With Range(Cells(2, 2), Cells(Rows.Count, Columns.Count))
    .ClearContents
    .Interior.ColorIndex = 0
End With
 
sut = 1
For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
    sut = sut + 1
    Cells(i, sut).Interior.ColorIndex = 38
    Cells(i, sut) = "-"
Next i
 
End Sub

.

 

[Necdet]

Merhaba,

Bir örnekte benden, satır ve sütunu numaralandırır.

Sub Mat()
    Dim i As Integer
    Dim j As Integer
    j = 10
    For i = 1 To j
        Cells(1, i + 1) = i
        Cells(i + 1, 1) = i
            With Cells(i + 1, i + 1)
                .Value = "-"
                .Interior.ColorIndex = 19
                .HorizontalAlignment = xlCenter
            End With
    Next i
End Sub