Çalışma Kitabındaki Tüm Yorumları Bulma

Bu bölümde yer alan kodlarla çalışma kitabımızdaki tüm yorumları, yeni bir sayfaya, hücre adresi ve yazarıyla birlikte yazacağız.

Sub Tum_Yorumlar()

Dim sayfa As Worksheet
Dim yorum As Comment
Dim r As Long 'satırları sayma
Dim w As Byte 'sayfaları sayma

Application.ScreenUpdating = False

'Yeni sayfa yaratma
Set sayfa = Worksheets.Add
With sayfa
   'Başlık yazma
   .Cells(1, 1).Value = "Yorum"
   .Cells(1, 2).Value = "Adres"
   .Cells(1, 3).Value = "Yazar"
   'Çalışma kitabındaki her yorumun içeriğini A2'den başlayarak ayrı bir hücreye koyun.
   'Çalışma sayfası adı ve yorumun bulunduğu hücre adresini B2'den başlayarak ayrı bir hücreye koyun.
   'Yazarı C2'den başlayarak ayrı bir hücreye koyun.
   r = 2
   For w = 1 To Worksheets.Count
      For Each yorum In Worksheets(w).Comments
         .Cells(r, 1).Value = yorum.Text
         .Cells(r, 2).Value = Worksheets(w).Name & "! " & yorum.Parent.Address
         .Cells(r, 3).Value = yorum.Author
         r = r + 1
      Next yorum
   Next w
   .Columns.AutoFit
End With

Application.ScreenUpdating = True

End SubCode language: VB.NET (vbnet)
Çalışma Kitabındaki Tüm Yorumları Bulma

Yayımlandı

kategorisi

yazarı:

Etiketler: