Hücre Rengini Değiştir - .Interior.ColorIndex
Bir hücrenin rengini değiştirmek için şunları kullanabiliriz:
Cell.Interior.ColorIndex = Sayı
Nereye:
• Hücre, hücre referansıdır
• İç - gerçek hücre renginin rengini ifade eder (İç mekan özelliği)
• Colourindex, Excel'in önceden tanımlanmış 56 renginden biri için 1 ile 56 arasında bir değerdir
Ve Num, hücreye atanan sayı rengidir. Ancak, hangi sayının hangi rengi temsil ettiğini hatırlamak her zaman kolay değildir. Aşağıdaki alt program, hücre rengini satır numarasına göre değiştirir. Yani örneğin 3. satırda renk 3 vb. olacak.
Excel'de önceden ayarlanmış 56 renk olduğundan, bu, 59, 115 hücrelerinin 3. satırdaki hücreyle aynı renge sahip olacağı anlamına gelir:
123456789101112 | Seçenek AçıkÖzel Alt KomutDüğmesi1_Click()Colour_Range (Sayfalar("Sayfa2").Range("A1:A2000"))Alt BitişSub Colour_Range(Cell_Range As Range)' Aralıktaki her hücreyi renklendirecekKarartma HücresiCell_Range'daki Her Hücre İçinCell.Interior.ColorIndex = Cell.Row Mod 56Cell.Offset(0, 0).Value = Hücre.SatırSonrakiAlt Bitiş |
Rutin, bir tıklama olayı ile etkinleştirilir.
Bu eğitim için .XLSM dosyasını indirmek için lütfen buraya tıklayın.