56 Renk Kodunu Sıralama isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
[*]Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
En kolay şekilde renk kodlarını listeleyebilirsiniz.
Ayrıca, alternatif olarak aşağıdaki kodlar ile de 56 Renk Kodunu Sıralama işlemi yapabilirsiniz.
Makrolara yeni başlayanlar için faydalı örneklerdir.
Faydalanılması temennisiyle.
[*]Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
Hazır Kod 1
VBA:
Sub renkler()
For i = 1 To 56
Cells(i, 1).Interior.ColorIndex = i
Next
End SubAçıklama
Kodları çalıştırdığınızda, A sütunun 56 satırına renkler getirilecektir.En kolay şekilde renk kodlarını listeleyebilirsiniz.
Ayrıca, alternatif olarak aşağıdaki kodlar ile de 56 Renk Kodunu Sıralama işlemi yapabilirsiniz.
Hazır Kod 2
VBA:
Sub renkler()
For Each r In Range("A1:A56")
r.Interior.ColorIndex = r.Row
Next
End SubAçıklama
Sadece A1:A56 arasında çalışan ve aşağıdaki çıktıyı üreten farklı bir kod.Makrolara yeni başlayanlar için faydalı örneklerdir.
Faydalanılması temennisiyle.
