Loncat ke daftar isi utama

Bagaimana menemukan dan mengganti teks dalam komentar di Excel?

Seperti yang kita ketahui, ada fungsi Find and Replace di excel, dan dengan fungsi ini, kita bisa mencari dan mengganti konten dalam sel dengan cepat. Tapi bisakah kita menemukan dan mengganti konten dalam komentar di Excel?

Menggunakan kode VBA untuk menemukan dan mengganti teks dalam komentar

Untuk menemukan dan mengganti teks dalam komentar dengan cepat dan mudah


panah gelembung kanan biru Menggunakan kode VBA untuk menemukan dan mengganti teks dalam komentar

Di Excel, sepertinya tidak ada cara lain untuk mengatasi masalah ini kecuali menggunakan kode VBA, Anda bisa menggunakan kode VBA berikut untuk mencari dan mengganti teks di semua komentar. Misalnya, saya akan mengganti 2011 dengan 2012 di semua komentar di Excel.

1. Klik Pengembang >Visual Basic, Baru Microsoft Visual Basic untuk aplikasi jendela akan ditampilkan, klik Menyisipkan > Modul lalu masukkan kode VBA berikut di Modul:

VBA: temukan dan ganti teks di semua komentar di Excel.

Sub ReplaceComments ()
Redupkan cmt Sebagai Komentar
Dim wks Sebagai Lembar Kerja
Dim sTemukan Sebagai String
Redupkan sReplace As String
Redupkan sCmt Sebagai String
sFind = "2011"
sReplace = "2012"
Untuk Setiap wks Di ActiveWorkbook.Worksheets
Untuk Setiap cmt Dalam wks.Comments
sCmt = cmt.Teks
Jika InStr (sCmt, sFind) <> 0 Kemudian
sCmt = Aplikasi.Fungsi Lembar Kerja. _
Pengganti (sCmt, sFind, sReplace)
cmt. Teks Teks: = sCmt
End If
Selanjutnya
Selanjutnya
Set wks = Tidak ada
Set cmt = Tidak ada
End Sub

Catatan: Pada kode di atas, Anda dapat mengatur temukan dan sGanti variabel untuk apa yang Anda cari dan apa yang ingin Anda ganti.

2. Lalu klik dpc-ganti-komentar-1 tombol untuk menjalankan kode, dan semua 2011 di semua komentar akan diganti dengan 2012 di seluruh buku kerja.


panah gelembung kanan biru Alat praktis untuk menemukan dan mengganti teks dalam komentar dengan cepat dan mudah

Kami dapat dengan cepat menemukan dan mengganti teks di semua komentar dengan Kutools untuk Excel'S Alat Komentar Sel.

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

Jika Anda telah menginstal Kutools for Excel, Anda dapat dengan mudah menemukan dan mengganti teks di semua komentar di Excel.

1. Klik Kutools > More > Alat Komentar Sel. Lihat tangkapan layar:

doc-ganti-komentar-2

2. di Alat Komentar Sel kotak dialog:

  • (1.) Klik Temukan / Ganti Tab;
  • (2.) Pilih cakupan yang ingin Anda terapkan utilitas ini, Anda dapat memilih Lembar aktif or Semua lembar;
  • (3.) Masukkan teks (2011) yang ingin Anda ganti ke file Temukan teks dalam komentar kotak, dan masukkan teks tertentu (2012) yang ingin Anda gunakan di file Ganti dengan kotak.

doc-ganti-komentar-3

3. Dan kemudian klik menggantikan tombol. Semua tahun 2011 akan diganti dengan 2012 dalam komentar di lembar kerja aktif. Lihat tangkapan layar:

doc-ganti-komentar-4 -2 doc-ganti-komentar-5

Note: Jika Anda memeriksa Tunjukkan ringkasan, akan ada kotak prompt untuk mengingatkan Anda berapa banyak komentar sel yang telah diubah.

Untuk informasi lebih rinci tentang Alat Komentar Sel, Silakan kunjungi Deskripsi fitur Alat Komentar Sel.


Artikel terkait:

Alat Produktivitas Kantor Terbaik

馃 Kutools AI Ajudan: Merevolusi analisis data berdasarkan: Eksekusi Cerdas   |  Hasilkan Kode  |  Buat Rumus Khusus  |  Analisis Data dan Hasilkan Grafik  |  Aktifkan Fungsi Kutools...
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...

Deskripsi Produk


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 (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I did it, change these 3 lines of the code above like below, Chr(10) is the key change:

If InStr(sCmt, Chr(10)) <> 0 Then

sCmt = Application.WorksheetFunction. _

Substitute(sCmt, Chr(10), sReplace)
This comment was minimized by the moderator on the site
I did it, change these 3 lines of the code above as below, Chr(10) is the key change!

If InStr(sCmt, Chr(10)) <> 0 Then

sCmt = Application.WorksheetFunction. _

Substitute(sCmt, Chr(10), sReplace)
This comment was minimized by the moderator on the site
How to replace line break in comments?
This comment was minimized by the moderator on the site
The above code turns the whole comment to bold. Normally only the title is bold in an Excel comment by default. The below code fixes the problem. Sub ReplaceComments() Dim cmt As Comment Dim wks As Worksheet Dim sFind As String Dim sReplace As String Dim lTitleLength As Long Dim sCmt As String sFind = "2011" sReplace = "2014" For Each wks In ActiveWorkbook.Worksheets For Each cmt In wks.Comments sCmt = cmt.Text If InStr(sCmt, sFind) 0 Then sCmt = Application.WorksheetFunction. _ Substitute(sCmt, sFind, sReplace) cmt.Text Text:=sCmt End If lTitleLength = InStr(cmt.Text, ":") With cmt.Shape.TextFrame .Characters(1, lTitleLength).Font.Bold = True .Characters(lTitleLength + 1, Len(cmt.Text)).Font.Bold = False End With Next Next Set wks = Nothing Set cmt = Nothing End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
Rate this post:
0   Characters
Suggested Locations