Excel'de Bir Çalışma Sayfasındaki Tüm Yorumların Listesini Alın

Bir çalışma sayfasında çok sayıda hücre yorumu içeren Excel çalışma sayfaları ile çalışıyorsanız, bu öğretici faydalı olabilir. Bazen verileri vurgulamak veya açıklamak için hücre yorumları ekleyebilirsiniz veya patronunuz çalışmanızı gözden geçirirken hücrelere yorumlar ekleyebilir.

Çok büyük bir veri kümeniz varsa ve yorumlar çalışma sayfasının her yerine dağılmışsa, tüm yorumları bir liste halinde tek bir yerde tutmak yardımcı olabilir.

Bir Çalışma Sayfasındaki Tüm Yorumların Listesini Alın

Bu eğitimde, bir Çalışma Sayfasındaki tüm yorumların bir listesini ayrı bir çalışma sayfasında almak için bir VBA kodunun nasıl kullanılacağını göstereceğim.

Aşağıda gösterildiği gibi bir şey:

Arka uçta aşağıdakileri yapan bir VBA kodu vardır:

• Aktif çalışma sayfasında herhangi bir yorum olup olmadığını kontrol eder. Herhangi bir yorum yoksa, sessizce eğilir ve hiçbir şey yapmaz.
• Çalışma sayfasında yorumlar varsa, yeni bir çalışma sayfası (“Yorumlar”) oluşturur ve aşağıdaki yapıdaki tüm yorumların bir listesini çıkarır:
  • Sütun A, yorumu içeren hücre adresine sahiptir.
  • B sütununda yorumcu adı bulunur. Aynı dosyanın birden fazla gözden geçireni varsa bu kullanışlı olur. Ayrıca, gözden geçirenlerin adına göre filtrelemeye/sıralamaya yardımcı olacaktır.
  • C sütununda yorum var.

Örnek Dosyayı İndirin

VBA Kodu

İşte tüm ağır işleri burada yapan VBA kodu.

Sub ExtractComments() Dim ExComment As Comment Dim Dim i As Integer Dim ws As Worksheet Dim CS Çalışma Sayfası Olarak Dim CS = ActiveSheet ActiveSheet.Comments.Count = 0 ise Çalışma Sayfalarındaki Her ws İçin Sub'dan Çık ws.Name = "Comments" O zaman i = 1 Sonraki ws Eğer i = 0 ise Set ws = Worksheets.Add(After:=ActiveSheet) ws.Name = "Comments" Diğer: Set ws = Worksheets("Comments") End If For Her ExComment CS.Comments ws. Range("A1").Value = "Yorum Gir" ws.Range("B1").Value = "Yorum Yapan" ws.Range("C1").Value = "Yorum" ws.Range("A1: C1") .Font.Bold = True .Interior.Color = RGB(189, 215, 238) .Columns.ColumnWidth = 20 End With If ws.Range("A2") = "" Sonra ws.Range("A2" .Value = ExComment.Parent.Address ws.Range("B2").Value = Left(ExComment.Text, InStr(1, ExComment.Text, ":") - 1) ws.Range("C2"). Değer = Right(ExComment.Text, Len(ExComment.Text) - InStr(1, ExComment.Text, ":")) Else ws.Range("A1").End(xlDown).Offset(1, 0) = ExComment.Parent.Address ws.Range("B1").End(xlDown).Offset(1, 0) = Left(ExComment. Text, InStr(1, ExComment.Text, ":") - 1) ws.Range("C1").End(xlDown).Offset(1, 0) = Right(ExComment.Text, Len(ExComment.Text) - InStr(1, ExComment.Text, ":")) End If Next ExComment End Sub

Bu Kod Nasıl Kullanılır

Çalışma sayfanızdan yorumların bir listesini almak için bu kodu kullanmanın birkaç yolu vardır:

#1 Örnek Dosyadaki Verileri Kopyala Yapıştır

Verilerinizi (olduğu gibi) kopyalayıp indirme dosyasının Veri sekmesine yapıştırın ve ardından bu makroyu çalıştırın.

Bunu çalıştırmak için:

• Geliştirici sekmesine gidin ve Makrolar'a tıklayın. Makro diyalog kutusunu açacaktır.
• ExtractComment'ı seçin ve Çalıştır'a tıklayın. Çıkarmak istediğiniz yorumların bulunduğu sayfada olduğunuzdan emin olun.

#2 Kopyala Kodu Çalışma Kitabınıza Yapıştırın

Kodu kopyalayın ve yorumları çıkarmak istediğiniz çalışma kitabına yapıştırın.

Bunu yapmak için:

• Çalıştığınız çalışma kitabını etkinleştirin ve Alt + F11 tuşlarına basın. Bu, VB Düzenleyici penceresini açacaktır.
• Soldaki Proje Gezgini'nde, o çalışma kitabı için herhangi bir nesneye sağ tıklayın, Ekle -> Modül'e gidin.
• Kodu Modül kodu penceresine yapıştırın.
• VB Düzenleyici Penceresini kapatın (veya çalışma sayfasına geri dönmek için Alt + F11 tuşlarına basın).

Artık çalışma kitabınızda makro var. Makroyu çalıştırmak için Geliştirici Sekmesi -> Makrolar'a gidin. Makro iletişim kutusunda, ExtractComment makrosunu seçin ve Çalıştır'a tıklayın.

Not: Çalışma kitabını kaydettiğinizden emin olun. ile birlikte .XLS veya .XLSM uzantısı.

#3 Bir Eklenti Oluşturun

Bu kodu sık sık kullanmanız gerekiyorsa, bunun dışında bir eklenti oluşturmak en iyisidir. Bu şekilde, herhangi bir çalışma kitabında kolayca kullanabilirsiniz (kodu tekrar tekrar kopyalayıp yapıştırmak için ek çaba harcamadan).

Bir Eklentinin nasıl oluşturulacağı aşağıda açıklanmıştır:

• Dosya -> Farklı Kaydet'e gidin.
• Farklı Kaydet iletişim kutusunda, Farklı kaydet türünü .xlam olarak değiştirin.
  • Dosyanın kaydedildiği yolun otomatik olarak değiştiğini fark edeceksiniz. İsterseniz değiştirebilirsiniz.
• Bir Excel çalışma kitabı açın ve Geliştirici -> Eklentiler -> Excel Eklentileri'ne gidin.
• Eklentiler iletişim kutusunda, kaydettiğiniz dosyaya göz atın ve dosyayı bulun ve Tamam'ı tıklayın.

Bir eklenti etkinleştirildiğinde, onu herhangi bir çalışma kitabında kullanabilirsiniz. Bunu yapmak için Geliştirici -> Makrolar'a gidin. Makro iletişim kutusunda, ExtractComment makrosunu seçin ve çalıştırın.

Örnek Dosyayı İndirin

Umarım bu kod size biraz zaman kazandırır. Yorumlar bölümünde düşüncelerinizi bana bildirin.

Excel ile çalışıyorsanız, VBA güçlü bir müttefik olabilir. Excel VBA Kursu ile Excel Becerilerinizi bir sonraki seviyeye taşıyın.