excel'de Sayfa İsimleri Nasıl Renklendirilir?
Açıklama:

Birden çok sayfalarla çalışırken erişimi yada farkındalığı artırmak için çalışma sayfalarına renk vermek istediğimiz olur. Bu örnekte elimizdeki çalışma kitabında yer alan yaklaşık 10 tane çalışma sayfasına rastgele renk ataması yapıyoruz

EXCEL VBA İLE RASTGELE RENKLENDİRME YAPMAK

Aşağıdaki fotodan da görüleceği üzere çalışma kitabımızda 10'dan fazla çalışma sayfası var. Bunların tek tek renklendirilmesi zaman alacaktır. Aşağıdaki kodu kullanarak bu işi tam otomatik bir şekilde yerine getirebilirsiniz.

Kod satırlarının yanına açıklamaları da yazdım. Umarım faydalı olur. İyi çalışmalar...

Sub renklendirme()
Dim var As Worksheet
'Worksheet türünde bir değişken tanımlıyoruz
Dim sayac As Integer
'For döngüsünde kullanmak üzere sayac isminde ve tamsayı olan bir değişken tanımlıyoruz
sayac = 1
'Çalışma sayfaları kolleksiyonu 1 'den başladığı için değişkenimize 1 sayısını atıyoruz.
For sayac = 1 To Worksheets.Count
'1 den toplam çalışma sayfalarının sayısı kadar döngümüzü kuruyoruz
Worksheets(sayac).Tab.Color = RGB(Int(Rnd() * 255), Int(Rnd() * 255), Int(Rnd() * 255))
'RGB sınıfı parametre olarak 3 tane tam sayı istemekedir. Bu sayılar 0 ila 255 arasındadır. Örneğin RGB(0,0,0) yada RGB(255,255,255)
'Bunlar bize siyah, beyaz yada karışımlarına göre farklı renkleri verir.
'Rnd() fonksiyonu ise 0 ila 1 arasında rastgele rakam üretir.
'Bunu 255 ile çarpıp Int sınıfına cast edince 0 ile 255 arası rastgeler rakam elde ediyoruz.
Next sayac

End Sub

Hiç yorum yok:

Yorum Gönder



Sıklıkla Kullandığınız Program Hangisi?

Son makaleyi okumak ister misiniz?

XML Sayfasından Dinamik Veri Çekmek



Belirli Bir Hücre Aralığı Formülü?

# İŞLEM
1 Çalışma sayfasında formülü girmek istediğiniz alanı seçin(Örn:A1:A5) .
2 = yada + tuşlarından birine basın.
3 Ardından sonucunu görmek istediğiniz formülü yazıp Ctrl + Shift + Enter tuş kombinasyonuna beraber basın.


Hücre Formülü?

# İŞLEM
1 Çalışma sayfasında formülü girmek istediğiniz hücreyi seçin. (Örnek: A1)
2 = yada + tuşlarından birine basın.
3 Ardından sonucunu görmek istediğiniz formülü yazıp Enter tuşuna basın.