Hücrede bulunan açıklamaların fond rengi

[levo26]

Merhaba,

Çalışma kitabında hücrelere yazılmış açıklamaların fond rengini sarı yaptırmam gerekiyor. Hangi kodları kullanabilirim arkadaşlar.

 

[hamitcan]

Sub CommentAddOrEditTNR()
  Dim cmt As Comment
  For Each hcr In Cells.SpecialCells(xlCellTypeComments).Cells
  
  Set cmt = hcr.Comment
  If Not cmt Is Nothing Then
    With cmt.Shape.TextFrame.Characters.Font
      .Name = "Times New Roman"
      .Size = 11
      .Bold = False
      .ColorIndex = 3 'Rengi buradan ayarlayın.
    End With
  End If
  Next
End Sub

Kaynak:http://www.contextures.com/xlcomments03.html

 

[levo26]

Sn. Hamitcan;

Konuyu yanlış anlattım sanırım. Hücreyi renklendirmek istiyorum. Açıklama içindekini değil. Örnek dosyada açıkladım. İyi çalışmalar.

 

[hamitcan]

Bu daha kolay.

Sub AciklamalariRenklendir()
    Cells.Interior.ColorIndex = xlNone
    For Each hcr In Cells.SpecialCells(xlCellTypeComments).Cells
     hcr.Interior.Color = vbYellow
    Next
End Sub

 

[Merhum İdris SERDAR]

.

Deneyin.

Sub Acvarsarenklendir()

   Dim Alnac As Range
   On Error Resume Next
   Set Alnac = Range("A1").SpecialCells(xlCellTypeComments)
   On Error GoTo 0
   If Not Alnac Is Nothing Then
      Alnac.Interior.ColorIndex = 6
   End If

End Sub

.

 

[levo26]

Sayın Hamitcan, Sayın Yurttaş;

Çok teşekkür ederim. Sağolun.