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
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:
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
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 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!