Przejdź do głównej zawartości

Jak zmienić kolor wskaźnika komentarza w programie Excel?

W programie Excel po wstawieniu komentarza w prawym górnym rogu komórki pojawia się mały czerwony trójkątny wskaźnik. Wielu użytkowników programu Excel może się zastanawiać, czy czerwony kolor wskaźnika można zmienić na inny, który im się podoba. W tym artykule omówię sposób obejścia tego zadania.

Zmień kolor wskaźnika komentarza za pomocą kodu VBA


strzałka niebieski prawy bąbelek Zmień kolor wskaźnika komentarza za pomocą kodu VBA

Nie ma bezpośredniego sposobu, abyśmy mogli szybko i łatwo zmienić kolor wskaźników komentarzy, ale poniższy kod VBA może pomóc w narysowaniu trójkątnego kształtu nakładającego się na każdy wskaźnik komentarza o określonym kolorze, którego potrzebujesz na aktywnym arkuszu.

1. Aktywuj swój arkusz roboczy, w którym chcesz zmienić kolor wskaźników komentarzy.

2. Przytrzymaj ALT + F11 klawisze, aby otworzyć Okno Microsoft Visual Basic for Applications.

3. Kliknij wstawka > Modułi wklej następujący kod w Okno modułu.

Kod VBA: Zmień kolor wskaźnika komentarza w aktywnym arkuszu

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. Po wklejeniu kodu naciśnij F5 klawisz, aby wykonać kod, a wszystkie czerwone wskaźniki trójkątów są zakryte niebieskimi trójkątami, jak pokazano na poniższych zrzutach ekranu:

wskaźniki-zmiany-dokumentu-komentarza-1
-1
wskaźniki-zmiany-dokumentu-komentarza-2

Uwagi:

1. W powyższym kodzie możesz zmienić kolor niebieski na swój, po prostu zmieniając indeks kolorów w skrypcie .Fill.ForeColor.SchemeColor = 12.

2. Kształt trójkąta, który dodasz powyżej VBA, zmieni swój rozmiar, gdy zmienisz rozmiar komórki.

3. Jeśli chcesz natychmiast usunąć wszystkie kolorowe kształty trójkątów, poniższy kod VBA zrobi ci korzyść:

Kod VBA: Usuń trójkątne kształty nad wskaźnikami komentarzy

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

Podobne artykuły:

Jak wyróżnić wszystkie komórki komentarzami w programie Excel?

Jak pokazać lub ukryć wszystkie komentarze i wskaźniki komentarzy w programie Excel?

Najlepsze narzędzia biurowe

🤖 Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup    Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły    Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki    Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas.  Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...

Opis


Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
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