Ana içeriğe atla

Tüm yorumları yeni bir çalışma sayfasına veya çalışma kitabına Excel'de nasıl listeleyebilirim?

Yazar: Teknik Destek Son Değiştirilme Tarihi: 2014-05-08

İçinde çok fazla yorum olan bir çalışma kitabınız varsa ve tüm yorumları gözden geçirmek için tüm yorumları yeni bir çalışma sayfasına veya çalışma kitabına listelemek istiyorsanız, nasıl yapabilirim? Aşağıdaki yöntemler, bir çalışma sayfasının / çalışma kitabının tüm yorumlarını Excel'de yeni bir çalışma sayfasına veya çalışma kitabına hızlı bir şekilde listelemenize yardımcı olabilir.

VBA kodu ile tüm yorumları yeni bir çalışma sayfasına listeleyin

Kutools for Excel ile tüm yorumları yeni bir çalışma sayfasına veya çalışma kitabına listeleyin


ok mavi sağ balon VBA kodu ile tüm yorumları yeni bir çalışma sayfasına listeleyin

Aşağıdaki VBA kodu, mevcut çalışma kitabındaki tüm yorumları yeni bir çalışma sayfasına listeleyecektir. Yeni çalışma sayfasında, tüm çalışma kitabının tüm yorumlarını sayfa adı, hücre adresi, yorum içerikleri ve hücre adıyla birlikte bir listede listeleyecektir. Lütfen bu yöntemi aşağıdaki gibi kullanın:

1. Tıkla Geliştirici > Visual Basic, görüntüler Uygulamalar için Microsoft Visual Basic pencere. Ve tıklayın Ekle > modülve ardından Modüle aşağıdaki VBA kodlarını girin.

VBA: tüm yorumları yeni bir çalışma sayfasında listeler.

Sub ShowCommentsAllSheets()
'Update 20140508
Dim commrange As Range
Dim rng As Range
Dim ws As Worksheet
Dim newWs As Worksheet
Set newWs = Application.Worksheets.Add
newWs.Range("A1").Resize(1, 4).Value = Array("Sheet", "Address", "Value", "Comment")
Application.ScreenUpdating = False
On Error Resume Next
For Each ws In Application.ActiveWorkbook.Worksheets
    Set commrange = ws.Cells.SpecialCells(xlCellTypeComments)
    If Not commrange Is Nothing Then
        i = newWs.Cells(Rows.Count, 1).End(xlUp).Row
        For Each rng In commrange
            i = i + 1
            newWs.Cells(i, 1).Resize(1, 4).Value = Array(ws.Name, rng.Address, rng.Value, rng.Comment.Text)
        Next
    End If
    Set commrange = Nothing
Next
newWs.Cells.WrapText = False
Application.ScreenUpdating = True
End Sub

2. Sonra tıklayın doc-list-yorumlar-1 kodu çalıştırmak için düğmesine tıklayın ve geçerli çalışma kitabındaki tüm yorumları içeren yeni bir çalışma sayfası alacaksınız. Ekran görüntüsüne bakın:

doc-list-yorumlar-2


ok mavi sağ balon Tek bir tıklama ile tüm yorumları yeni bir çalışma sayfasına veya çalışma kitabına listeleyin

İle Yorum Listesi Oluştur of Kutools for Excel, tüm yorumları yeni bir çalışma sayfasına veya yeni bir çalışma kitabına hızlı bir şekilde listeleyebilirsiniz.

Kutools for Excel: 300'den fazla kullanışlı Excel eklentisi ile 30 günde sınırlama olmaksızın ücretsiz deneyin. Şimdi alın.

1. Kutools for Excel yüklediyseniz, tıklayın Kutools > Daha > Yorum Listesi Oluştur, ekran görüntüsüne bakın:

doc-list-yorumlar-3-3

2. In Yorum Listesi Oluştur iletişim kutusu:

  • Yorumu listelemek istediğiniz kapsamı seçin, seçebilirsiniz Aktif sayfa or Tüm sayfalar.
  • Ardından, yorum listesini koymak istediğiniz konumu belirtin, yorumları yeni bir çalışma kitabında veya yeni bir sayfada listeleyebilirsiniz, ekran görüntüsüne bakın:

doc-list-yorumlar-4-4

3. Ve sonra tıklayın oluşturmakbuton. Sayfa adı, hücre referansları, satır ve sütun gibi öznitelikleriyle tüm etkin çalışma sayfası yorumlarını listelemek için yeni bir çalışma sayfası eklenecektir. Ekran görüntüsüne bakın:

Hakkında daha ayrıntılı bilgi için Yorum Listesi OluşturZiyaret edin Yorum Listesi Oluştur özelliği açıklaması.


İlgili yazılar:

En İyi Ofis Üretkenlik Araçları

🤖 Kutools AI Yardımcısı: Aşağıdakilere dayalı olarak veri analizinde devrim yaratın: Akıllı Yürütme   |  Kodunu oluşturun  |  Özel Formüller Oluşturun  |  Verileri Analiz Edin ve Grafikler Oluşturun  |  Kutools İşlevlerini Çağır...
Popüler Özellikler: Yinelenenleri Bul, Vurgula veya Tanımla   |  Boş Satırları Sil   |  Veri Kaybı Olmadan Sütunları veya Hücreleri Birleştirin   |   Formülsüz Tur ...
Süper Arama: Çoklu Ölçütlü VLookup    Çoklu Değer VLookup  |   Birden Çok Sayfada VLookup   |   Bulanık Arama ....
Gelişmiş Açılır Liste: Hızla Açılır Liste Oluşturun   |  Bağımlı Açılır Liste   |  Çoklu Seçim Açılır Liste ....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekleme  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştırın ...
Öne Çıkan Özellikler: Izgara Odağı   |  Tasarım görünümü   |   Büyük Formül Çubuğu    Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynak Kütüphanesi (Otomatik metin)   |  Tarih Seçici   |  Çalışma Sayfalarını Birleştirin   |  Hücreleri Şifrele/Şifresini Çöz    E-postaları Listeye Göre Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtre...) ...
En İyi 15 Araç Seti12 Metin Tools (Metin ekle, Karakterleri Kaldır, ...)   |   50+ Grafik Türleri (Gantt şeması, ...)   |   40+ Pratik Formüller (Yaşı doğum gününe göre hesapla, ...)   |   19 sokma Tools (QR Kodunu Girin, Yoldan Resim Ekle, ...)   |   12 Dönüştürme Tools (Sayılardan Kelimelere, Para Birimi Dönüştürme, ...)   |   7 Birleştir ve Böl Tools (Gelişmiş Kombine Satırları, Bölünmüş hücreler, ...)   |   ... ve dahası

Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar.  En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...

Açıklama


Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

  • Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
  • Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
  • Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
In the Create Comment List dialog, select the scope you want to list the comment, Active sheet or All sheets, then choose to place the comments in a new workbook or a new sheet of current workbook https://www.myloweslife.us/
This comment was minimized by the moderator on the site
Ahoj lidi. Jmenuji se Helena Karas z Praha 8. V pondelí 07/01/19 dostal jsem úver ve výši 15.000.000 Kc od Peter Krajcovic za nemovitost v Praze 2. Správný e-mail pana Krajcovic je . Jeho úver je 100% garantován. Kontaktujte jej, pokud stále hledáte pujcku.
This comment was minimized by the moderator on the site
Ahoj lidi. Jmenuji se Helena Karas z Praha 8. V pondelí 07/01/19 dostal jsem úver ve výši 15.000.000 Kc od Peter Krajcovic za nemovitost v Praze 2. Správný e-mail pana Krajcovic je . Jeho úver je 100% garantován. Kontaktujte jej, pokud stále hledáte pujcku.
This comment was minimized by the moderator on the site
But what if you are just commencing? Anyone could have to investigate on particular topic,
anyone start writing on out. This data was
required to rank web web pages

Almillat
Maninerd
hitscorner
maniwebify
This comment was minimized by the moderator on the site
I found it useful to add the following line after line 8 in the VBA code; it renames the sheet to the comments and the date created.

ActiveSheet.Name = "Comments " & Format(Now(), "DD-MMM-YY")
This comment was minimized by the moderator on the site
Oh, and one more thing. Each time I hit "Run", it opens a New Sheet with the list of comments. How can I make it add to the existing sheet without duplicating teh entries then? Thanks :)
This comment was minimized by the moderator on the site
Thank you for the VBA Code! This really helps. Is there a way in which I can see all new comments or responded to comments in the sheet in realtime? It only updates each time the workbook is opened. But not while I am working in it.
Best regards,
Loki
This comment was minimized by the moderator on the site
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations