Loncat ke daftar isi utama

Bagaimana cara mengukur kotak komentar secara otomatis agar sesuai dengan isinya di Excel?

Saat Anda menyisipkan komentar ke sel, ukuran kotak komentar adalah defaultnya. Jika Anda memasukkan banyak konten ke dalamnya, beberapa konten tidak akan langsung terlihat. Apakah mungkin untuk menyesuaikan ukuran kotak komentar dengan isinya secara otomatis?

Ukuran otomatis kotak komentar agar sesuai dengan isinya di lembar kerja
Ukuran otomatis kotak komentar agar sesuai dengan kontennya dalam rentang sel
Dengan mudah mengubah ukuran kotak komentar agar sesuai dengan isinya di lembar aktif atau semua lembar dengan alat yang luar biasa


Ukuran otomatis kotak komentar agar sesuai dengan isinya di lembar kerja

Di Excel, Anda dapat menyeret kotak komentar ke ukuran kebutuhan Anda secara manual satu per satu, tetapi jika ada banyak kotak komentar yang perlu diubah ukurannya, cara ini akan membosankan dan menyita waktu. Dalam kasus ini, Anda dapat menerapkan kode VBA berikut.

1. Tahan ALT + F11 kunci, dan itu membuka Jendela Microsoft Visual Basic for Applications.

2. klik Menyisipkan > Modul, dan tempelkan makro berikut di file Jendela modul.

Kode VBA: Ukuran otomatis kotak komentar di lembar kerja

Sub FitComments()
'Updateby20140325
Dim xComment As Comment
For Each xComment In Application.ActiveSheet.Comments
    xComment.Shape.TextFrame.AutoSize = True
Next
End Sub

3. Kemudian tekan F5 kunci untuk menjalankan kode ini, dan semua kotak komentar di lembar kerja aktif telah diubah ukurannya agar sesuai dengan isinya seperti gambar berikut yang ditampilkan:

doc mengubah ukuran otomatis komentar1

jenis: Kode ini hanya berfungsi di lembar kerja saat ini, dan tidak dapat secara otomatis mengubah ukuran kotak komentar baru yang Anda tambahkan.


Satu klik untuk menyesuaikan ukuran kotak komentar dengan kontennya secara otomatis di Excel dengan cepat:

Grafik Komentar Paskan Otomatis kegunaan Kutools untuk Excel dapat membantu dengan cepat menyesuaikan ukuran kotak komentar dengan isinya secara otomatis di lembar kerja seperti yang ditunjukkan demo di bawah ini. Unduh dan coba sekarang! (Jejak gratis 30 hari)


Ukuran otomatis kotak komentar agar sesuai dengan kontennya dalam rentang sel

Jika Anda hanya perlu mengubah ukuran kotak komentar sel secara otomatis, Anda dapat menggunakan kode VBA berikut.

1. Tahan ALT + F11 kunci, dan itu membuka Jendela Microsoft Visual Basic for Applications.

2. klik Menyisipkan > Modul, dan tempelkan makro berikut di file Jendela modul.

Kode VBA: Ukuran otomatis kotak komentar dalam rentang sel

Sub Fitrangecomments()
'Updateby20140325
Dim rng As Range
Dim WorkRng As Range
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each rng In WorkRng
    If Not rng.Comment Is Nothing Then
        rng.Comment.Shape.TextFrame.AutoSize = True
    End If
Next
End Sub

3. Kemudian tekan F5 kunci untuk mengeksekusi kode ini, dan kotak prompt akan muncul untuk mengingatkan Anda memilih berbagai sel yang ingin Anda ubah ukuran kotak komentar, lihat tangkapan layar:

doc-resize-komentar-kotak3

4. Dan kemudian klik OK, kotak komentar sel yang Anda pilih telah dipasang secara otomatis ke konten komentar.

jenis: Kode ini tidak dapat secara otomatis mengubah ukuran kotak komentar baru yang Anda tambahkan.


Ukuran otomatis kotak komentar agar sesuai dengan isinya di lembar aktif atau semua lembar 

Anda bisa mencoba Komentar Paskan Otomatis kegunaan Kutools untuk Excel untuk secara otomatis mengubah ukuran all kotak komentar di lembar aktif atau semua lembar di Excel. Silakan lakukan sebagai berikut.

Sebelum melamar Kutools untuk Excel, Mohon unduh dan instal terlebih dahulu.

1. Untuk mengubah ukuran kotak komentar secara otomatis agar sesuai dengan isinya di lembar aktif, silakan klik Kutools > More > Komentar Paskan Otomatis > Lembar aktif.

Dan jika Anda ingin mengubah ukuran otomatis semua kotak komentar di seluruh workbook, klik Kutools > More > Komentar Paskan Otomatis > Semua lembar. Lihat tangkapan layar:

Kemudian semua kotak komentar secara otomatis diubah ukurannya agar sesuai dengan isinya. Lihat tangkapan layar:

Catatan:

  • 1. Setelah mengubah ukuran kotak komentar secara otomatis, saat mengedit komentar lagi, kotak komentar secara otomatis akan meluas atau menyusut dengan konten.
  • 2. Untuk komentar baru yang Anda sisipkan, Anda perlu mengaktifkan utilitas komentar Paskan Otomatis ini lagi untuk mengubah ukuran semua kotak komentar baru yang dimasukkan.

  Jika Anda ingin memiliki uji coba gratis (30 hari) dari utilitas ini, silahkan klik untuk mendownloadnya, lalu lanjutkan untuk menerapkan operasi sesuai langkah di atas.


Dengan mudah mengubah ukuran kotak komentar agar sesuai dengan isinya


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 (19)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi. I've been using an xls spreadsheet for 10+ years. Suddenly, all my note boxes were hugely expanded, showed as a blank note until I edited them. Your solution below worked to resize all of my note boxes to fit contents. But now when I try to resize the note box to add more text, Excel crashes. This is even after I saved as an xlsx file to remove all VB code. Can you help?

Sub FitComments()
'Updateby20140325
Dim xComment As Comment
For Each xComment In Application.ActiveSheet.Comments
xComment.Shape.TextFrame.AutoSize = True
Next
End Sub
This comment was minimized by the moderator on the site
Bom-dia,

Salvou de mais! Ap贸s abrir planilha no celular todos os coment谩rios ficaram desajustados no pc.
Tinha mais de 10 mil coment谩rios pra arrumar o tamanho da caixa! Se tivesse pix eu at茅 pagava! Obrigado.
This comment was minimized by the moderator on the site
It doesn't work, the insert module does not show up
This comment was minimized by the moderator on the site
amazing! thank you, the first way works! saved me hours of work!
This comment was minimized by the moderator on the site
I guess Crystal got us off track the question was: Is there a way of making the line from the comment box to the cell darker or fatter? That would be the line surrounding the comment box. TIA DD
This comment was minimized by the moderator on the site
Is there a way of making the line from the comment box to the cell darker or fatter?
This comment was minimized by the moderator on the site
Hi Demondrew,
Sorry can help you for that.
This comment was minimized by the moderator on the site
Thank you so much for sharing this. Really helpful!
This comment was minimized by the moderator on the site
@DENNIE "While the code works it makes the box one line high meaning that large comments disappear off-page somewhere. Could you give the code for fixing the width of each box (to let's say three standard Excel column widths) and auto-adjusting the length of the box to fit the text? Thanks." // Agreed
This comment was minimized by the moderator on the site
Thank you very much. This really saved me from lots of hassles.
This comment was minimized by the moderator on the site
While the code works it makes the box one line high meaning that large comments disappear off-page somewhere. Could you give the code for fixing the width of each box (to let's say three standard Excel column widths) and auto-adjusting the length of the box to fit the text? Thanks.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
Rate this post:
0   Characters
Suggested Locations