Loncat ke daftar isi utama

Bagaimana cara mengubah warna indikator komentar di Excel?

Di Excel, setelah menyisipkan komentar, indikator segitiga merah kecil muncul di sudut kanan atas sel. Banyak pengguna Excel mungkin bertanya-tanya apakah warna indikator merah dapat diubah ke warna lain yang mereka suka. Pada artikel ini, saya akan berbicara tentang solusi untuk menyelesaikan tugas ini.

Ubah warna indikator komentar dengan kode VBA


panah gelembung kanan biru Ubah warna indikator komentar dengan kode VBA

Tidak ada cara langsung bagi kami untuk mengubah warna indikator komentar dengan cepat dan mudah, namun, kode VBA berikut dapat membantu Anda menggambar bentuk segitiga yang tumpang tindih dengan setiap indikator komentar dengan warna tertentu yang Anda butuhkan di lembar aktif.

1. Aktifkan lembar kerja Anda yang ingin Anda ubah warna indikator komentarnya.

2. Tahan ALT + F11 kunci untuk membuka Jendela Microsoft Visual Basic for Applications.

3. Klik Menyisipkan > Modul, dan tempel kode berikut di Jendela Modul.

Kode VBA: Ubah warna indikator komentar di lembar aktif

Sub CoverCommentIndicator()
'Update 20141110
Dim pWs As Worksheet
Dim pComment As Comment
Dim pRng As Range
Dim pShape As Shape
Set pWs = Application.ActiveSheet
wShp = 6
hShp = 4
For Each pComment In pWs.Comments
  Set pRng = pComment.Parent
  Set pShape = pWs.Shapes.AddShape(msoShapeRightTriangle, pRng.Offset(0, 1).Left - wShp, pRng.Top, wShp, hShp)
  With pShape
    .Flip msoFlipVertical
    .Flip msoFlipHorizontal
    .Fill.ForeColor.SchemeColor = 12
    .Fill.Visible = msoTrue
    .Fill.Solid
    .Line.Visible = msoFalse
  End With
Next
End Sub

4. Setelah menempelkan kode, tekan F5 kunci untuk mengeksekusi kode, dan semua indikator segitiga merah ditutupi oleh segitiga biru seperti gambar berikut yang ditampilkan:

doc-ubah-komentar-indikator-1
-1
doc-ubah-komentar-indikator-2

Catatan:

1. Pada kode di atas, Anda dapat mengubah warna biru sesuai keinginan Anda hanya dengan mengubah indeks warna pada skrip .Isi.ForeColor.SchemeColor = 12.

2. Bentuk segitiga yang Anda tambahkan di atas VBA akan berubah ukurannya saat Anda mengubah ukuran sel.

3. Jika Anda ingin segera menghapus semua bentuk segitiga berwarna, kode VBA berikut akan membantu Anda:

Kode VBA: Hapus bentuk segitiga di atas indikator komentar

Sub RemoveIndicatorShapes()
'Update 20141110
Dim pWs As Worksheet
Dim pShape As Shape
Set pWs = Application.ActiveSheet
For Each pShape In pWs.Shapes
    If Not pShape.TopLeftCell.Comment Is Nothing Then
      If pShape.AutoShapeType = msoShapeRightTriangle Then
        pShape.Delete
      End If
    End If
Next
End Sub

Artikel terkait:

Bagaimana cara menyorot semua sel dengan komentar di Excel?

Bagaimana cara menampilkan atau menyembunyikan semua komentar dan indikator komentar di Excel?

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 (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
so useful, thanks...
This comment was minimized by the moderator on the site
tried the above to change the colour of the comment indicator but no luck? When selecting F5 to execute the code nothing happens? Help please, thansk
This comment was minimized by the moderator on the site
Bonjour peut on faire la meme chose sous condition (ex : si le commentaire contient un mot)?
This comment was minimized by the moderator on the site
Thanks for the idea!! Because I'm working in a VBA/macro free environment (security constraints), I just created a tiny little triangle shape and put it on top of all the bright red indicators, setting the properties to move but don't size with cells. Worked like a charm :-)
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations