Loncat ke daftar isi utama

Bagaimana cara mencantumkan semua komentar ke lembar kerja atau buku kerja baru di Excel?

Jika Anda memiliki buku kerja dengan terlalu banyak komentar di dalamnya, dan Anda ingin mencantumkan semua komentar ke lembar kerja atau buku kerja baru untuk meninjau semua komentar, bagaimana Anda bisa melakukannya? Metode berikut ini bisa membantu Anda dengan cepat mencantumkan semua komentar dari lembar kerja / buku kerja ke lembar kerja atau buku kerja baru di Excel.

Buat daftar semua komentar ke lembar kerja baru dengan kode VBA

Cantumkan semua komentar ke lembar kerja atau buku kerja baru dengan Kutools for Excel


panah gelembung kanan biru Buat daftar semua komentar ke lembar kerja baru dengan kode VBA

Kode VBA berikut akan mencantumkan semua komentar ke lembar kerja baru di buku kerja saat ini. Di lembar kerja baru, ini akan mencantumkan semua komentar dari seluruh buku kerja dalam daftar dengan nama lembar, alamat sel, konten komentar dan nama sel. Silakan gunakan metode ini sebagai berikut:

1. Klik Pengembang > Visual Basic, ini menampilkan Microsoft Visual Basic untuk aplikasi jendela. Dan klik Menyisipkan > Modul, lalu masukkan kode VBA berikut di Modul.

VBA: mencantumkan semua komentar di lembar kerja baru.

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. Lalu klik doc-daftar-komentar-1 tombol untuk menjalankan kode, dan Anda akan mendapatkan lembar kerja baru dengan semua komentar di buku kerja saat ini. Lihat tangkapan layar:

doc-daftar-komentar-2


panah gelembung kanan biru Buat daftar semua komentar ke lembar kerja atau buku kerja baru dengan satu klik

Dengan Buat Daftar Komentar of Kutools untuk Excel, Anda bisa dengan cepat mencantumkan semua komentar ke lembar kerja baru atau buku kerja baru.

Kutools untuk Excel: dengan lebih dari 300 add-in Excel yang praktis, gratis untuk dicoba tanpa batasan dalam 30 hari. Dapatkan Sekarang.

1. Jika Anda telah menginstal Kutools for Excel, klik Ya Kutools > More > Buat Daftar Komentar, lihat tangkapan layar:

doc-daftar-komentar-3-3

2. di Buat Daftar Komentar kotak dialog:

  • Pilih cakupan yang ingin Anda daftarkan komentarnya, Anda dapat memilih Lembar aktif or Semua lembar.
  • Kemudian tentukan lokasi yang Anda inginkan untuk meletakkan daftar komentar, Anda dapat mencantumkan komentar di buku kerja baru atau lembar baru, lihat tangkapan layar:

doc-daftar-komentar-4-4

3. Dan kemudian klik membuattombol. Lembar kerja baru akan ditambahkan ke daftar semua komentar lembar kerja aktif dengan atributnya seperti nama lembar, referensi sel, baris dan kolom. Lihat tangkapan layar:

Untuk informasi lebih rinci tentang Buat Daftar Komentar, Silakan kunjungi Buat deskripsi fitur Daftar Komentar.


Artikel terkait:

Alat Produktivitas Kantor Terbaik

Fitur Populer: Temukan, Sorot, atau Identifikasi Duplikat   |  Hapus Baris Kosong   |  Gabungkan Kolom atau Sel tanpa Kehilangan Data   |   Putaran tanpa Formula ...
Pencarian Super: VLookup Beberapa Kriteria    VLookup Nilai Berganda  |   VLookup di Beberapa Lembar   |   Pencarian Fuzzy ....
Daftar Drop-down Lanjutan: Buat Daftar Drop Down dengan Cepat   |  Daftar Drop Down yang Bergantung   |  Multi-pilih Drop Down List ....
Manajer Kolom: Tambahkan Jumlah Kolom Tertentu  |  Pindahkan Kolom  |  Alihkan Status Visibilitas Kolom Tersembunyi  |  Bandingkan Rentang & Kolom ...
Fitur Unggulan: Fokus Kisi   |  Tampilan Desain   |   Bar Formula Besar    Manajer Buku Kerja & Lembar   |  Perpustakaan Sumberdaya (Teks otomatis)   |  Pemetik tanggal   |  Gabungkan Lembar Kerja   |  Enkripsi/Dekripsi Sel    Kirim Email berdasarkan Daftar   |  Filter Super   |   Filter Khusus (filter tebal/miring/coret...) ...
15 Perangkat Teratas12 Teks Tools (Tambahkan Teks, Hapus Karakter, ...)   |   50 + Grafik jenis (Gantt Chart, ...)   |   40+ Praktis Rumus (Hitung usia berdasarkan ulang tahun, ...)   |   19 Insersi Tools (Masukkan Kode QR, Sisipkan Gambar dari Jalur, ...)   |   12 Konversi Tools (Angka ke Kata, Konversi Mata Uang, ...)   |   7 Gabungkan & Pisahkan Tools (Lanjutan Gabungkan Baris, Pisahkan Sel, ...)   |   ... dan banyak lagi

Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu.  Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...

tab kte 201905


Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah

  • Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
  • Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
  • Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
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