Aktif Hücrenin Arka Planını Renklendirme

Bu dosya, çalışma kitabında seçilen hücrenin arka planını otomatik olarak renklendirir. Hücre seçimi değiştiğinde yeni hücre renklenir, önceki hücrenin rengi ise kaldırılır. Böylece büyük tablolarda imlecin hangi hücrede olduğu kolayca izlenir.

Dosyanın içeriği​

• Sheet1: Üzerinde çalışılan tek sayfadır. Renklendirme bu sayfada denenebilir; kod çalışma kitabı düzeyinde olduğu için dosyaya eklenen diğer sayfalarda da geçerlidir.
• ThisWorkbook: Renklendirmeyi sağlayan makro kodunun bulunduğu bölümdür.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Makro etkinleştirilmezse renklendirme çalışmaz.

• Workbook_SheetSelectionChange: Herhangi bir sayfada seçim değiştiğinde otomatik çalışır, ayrıca başlatılması gerekmez. Seçilen hücrenin Interior.ColorIndex değerini 9 (koyu kırmızı tonu) yapar. Bir önceki seçili hücreyi Static tanımlı OldRange değişkeninde tutar ve o hücrenin rengini xlColorIndexNone ile kaldırır. On Error Resume Next satırı sayesinde ilk seçimde ya da hata oluşan durumlarda makro durmaz.

Kodda dosya silme veya dış bağlantı gibi işlem yoktur; yalnızca hücre dolgu rengi değiştirilir. Renk, kodda ColorIndex = 9 olan satırdaki sayı değiştirilerek farklılaştırılabilir.

Nasıl kullanılır​

1. Dosyayı açın ve güvenlik uyarısında makroları etkinleştirin.
2. Sayfada herhangi bir hücreye tıklayın; hücrenin arka planı renklenir.
3. Başka bir hücreye geçtiğinizde önceki hücrenin rengi silinir, yeni hücre renklenir.
4. Rengi değiştirmek için Alt+F11 ile VBA düzenleyicisini açın, ThisWorkbook içindeki ColorIndex değerini düzenleyin.

Bu kodu kendi çalışma kitabınıza taşımak için ThisWorkbook kod bölümüne kopyalayıp dosyayı xlsm biçiminde kaydetmeniz yeterlidir. Not: Makro, seçim yapılan hücrelerin mevcut dolgu rengini kalıcı olarak temizlediği için önceden renklendirilmiş hücrelerin bulunduğu tablolarda dikkatli kullanılmalıdır.