Loncat ke daftar isi utama

Bagaimana cara mengubah semua format komentar dalam sel di Excel?

Saat kita memasukkan komentar di worksheet, terkadang kita mungkin perlu mengubah format komentar default, jika ada sedikit komentar, kita dapat mengubahnya secara manual, tetapi jika ada ratusan komentar yang perlu diubah, bagaimana cara mengatasinya ?

Ubah semua format komentar dengan kode VBA

Alat praktis untuk mengubah semua format komentar dengan cepat dan menghemat waktu


panah gelembung kanan biru Ubah semua format komentar dengan kode VBA

Dengan kode VBA berikut, Anda bisa mengubah ukuran font dan font komentar di sel, tetapi tidak bisa mengubah warna font. silakan gunakan VBA berikut sebagai:

1. Klik Pengembang > Visual Basic, Baru Microsoft Visual Basic untuk aplikasi jendela akan ditampilkan, klik Menyisipkan > Modul, lalu salin dan tempel kode berikut di modul:

Sub FormatAllComments()
'Updateby20140509
Dim xWs As Worksheet
Dim xComment As Comment
For Each xWs In Application.ActiveWorkbook.Worksheets
    For Each xComment In xWs.Comments
        With xComment.Shape.TextFrame.Characters.Font
            .Name = "Times New Roman"
            .Size = 14
        End With
    Next
Next
End Sub

Pada kode di atas, Anda dapat mengatur .Nama dan .Ukuran variabel yang Anda inginkan.

2. Lalu klik doc-ubah-komentar-format-1 tombol untuk menjalankan kode. Dan kemudian klik ULASAN > Tampilkan semua komentar untuk melihat komentar, semua format komentar di seluruh buku kerja telah diubah. Lihat tangkapan layar:

doc-ubah-komentar-format1 -2 doc-ubah-komentar-format2

panah gelembung kanan biru Alat praktis untuk mengubah semua format komentar dengan cepat dan menghemat waktu

Jika Anda ingin dengan cepat mengubah jenis format lain untuk semua komentar, Anda dapat mencoba menggunakan Format Komentar of Kutools untuk Excel.

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

Setelah menginstal Kutools for Excel, ikuti langkah-langkah berikut untuk mengubah format komentar:

1. Format satu komentar dengan gaya yang ingin Anda terapkan ke komentar lainnya.

2. Klik Kutools > More > Format Komentar, lihat tangkapan layar:

3. di Format Komentar kotak dialog, klik dibentuk tab, dan pilih cakupan yang ingin Anda ubah format komentar, Anda bisa memilih Lembar aktif or Semua lembar. Lalu klik Tentukan sel komentar untuk memilih sel yang berisi format komentar tertentu yang ingin Anda terapkan. Kemudian dialog lain muncul untuk memberi tahu Anda jumlah sel yang diubah. Lihat tangkapan layar:

4. Lalu klik Ok > Cancel tombol untuk menutup kotak dialog, dan format komentar sel yang dipilih telah diterapkan ke komentar lain.

Catatan:

Jika Anda tidak ingin menggunakan gaya font tebal di semua sel komentar, harap periksa Paksa pemformatan tidak tebal .

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


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 (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thanks for this bit of code. It worked for me. But, I would also like to stretch the width property so the increase size text will show the way I like it. Recorder records what you see below, but I can't figure out how to get this into the For Each loop. Selection.ShapeRange.ScaleWidth 1.63, msoFalse, msoScaleFromTopLeft Selection.ShapeRange.ScaleHeight 1.98, msoFalse, msoScaleFromTopLeft Any advice on how to update the code for this extra little trick? Thanks!
This comment was minimized by the moderator on the site
Hi, I join myself to the thanksgiving. The piece of code did work perfectly! Thx again!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations