Excel'de yorum göstergesi rengi nasıl değiştirilir?
Excel'de, bir yorum ekledikten sonra, hücrenin sağ üst köşesinde küçük bir kırmızı üçgen göstergesi belirir. Birçok Excel kullanıcısı, kırmızı gösterge renginin sevdikleri diğer renklerle değiştirilip değiştirilemeyeceğini merak edebilir. Bu yazıda, bu görevi bitirmek için bir geçici çözümden bahsedeceğim.
Yorum göstergesi rengini VBA kodu ile değiştirin
Yorum göstergesi rengini VBA kodu ile değiştirin
Yorum göstergelerinin rengini hızlı ve kolay bir şekilde değiştirmemizin doğrudan bir yolu yoktur, ancak aşağıdaki VBA kodu, aktif sayfada ihtiyacınız olan belirli bir renkle her bir yorum göstergesinin üst üste gelmesini sağlayan üçgen bir şekil çizmenize yardımcı olabilir.
1. Yorum göstergelerinin rengini değiştirmek istediğiniz çalışma sayfanızı etkinleştirin.
2. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic penceresi.
3. tıklayın Ekle > modülve aşağıdaki kodu Modül Penceresi.
VBA kodu: Etkin sayfadaki yorum göstergesi rengini değiştirin
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. Kodu yapıştırdıktan sonra F5 kodu yürütme tuşuna basın ve tüm kırmızı üçgen göstergeleri aşağıda gösterilen ekran görüntüleri gibi mavi üçgenlerle kaplıdır:
Notlar:
1. Yukarıdaki kodda, sadece komut dosyasındaki renk indeksini değiştirerek mavi rengi istediğiniz gibi değiştirebilirsiniz. .Fill.ForeColor.SchemeColor = 12.
2. Yukarıda VBA tarafından eklediğiniz üçgen şekli, hücreyi yeniden boyutlandırdığınızda boyutu değişecektir.
3. Tüm renkli üçgen şekillerini hemen kaldırmak istiyorsanız, aşağıdaki VBA kodu size bir iyilik sağlayacaktır:
VBA kodu: Yorum göstergelerinin üzerindeki üçgen şekilleri kaldırın
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
İlgili yazılar:
Excel'de yorum içeren tüm hücreleri nasıl vurgulayabilirim?
Excel'deki tüm yorumları ve yorum göstergelerini nasıl gösterebilir veya gizleyebilirim?
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!