Przejdź do głównej zawartości

Jak znaleźć i zamienić tekst w komentarzach w programie Excel?

Jak wiemy, w programie Excel istnieje funkcja Znajdź i zamień, a dzięki tej funkcji możemy szybko znaleźć i zamienić zawartość w komórkach. Ale czy możemy znaleźć i zamienić zawartość w komentarzach w programie Excel?

Używanie kodu VBA do znajdowania i zamieniania tekstu w komentarzach

Szybkie i łatwe wyszukiwanie i zamienianie tekstu w komentarzach


strzałka niebieski prawy bąbelek Używanie kodu VBA do znajdowania i zamieniania tekstu w komentarzach

Wygląda na to, że w programie Excel nie ma innego sposobu rozwiązania tego problemu, poza użyciem kodu VBA, możesz użyć następującego kodu VBA, aby znaleźć i zamienić tekst we wszystkich komentarzach. Na przykład zamieniam rok 2011 na 2012 we wszystkich komentarzach w Excelu.

1. Kliknij Deweloper >Visual Basic, Nowy Microsoft Visual Basic dla aplikacji zostanie wyświetlone okno, kliknij wstawka > Moduł a następnie wprowadź następujący kod VBA w module:

VBA: znajdź i zamień tekst we wszystkich komentarzach w programie Excel.

Sub ReplaceComments ()
Dim cmt Jako komentarz
Przyciemnij tyg. Jako arkusz roboczy
Dim sZnajdź jako ciąg
Dim sZamień jako ciąg
Dim scmt As String
sFind = „2011”
sReplace = „2012”
Dla każdego tygodnia w ActiveWorkbook.Worksheets
Za każdy cmt w tyg. Uwagi
sCmt = cmt.Tekst
Jeśli InStr (sCmt, sFind) <> 0 Then
sCmt = Aplikacja.Funkcja Arkusza. _
Zastąpienie (sCmt, sFind, sReplace)
cmt.Text Text: = sCmt
End If
Następna
Następna
Ustaw wks = nic
Ustaw cmt = nic
End Sub

Uwaga: W powyższym kodzie możesz ustawić sZnajdź i sZamień zmienne dla tego, czego szukasz i co chcesz zastąpić.

2. Następnie kliknij dpc-zamień-komentarz-1 przycisk, aby uruchomić kod, a cały rok 2011 we wszystkich komentarzach zostanie zastąpiony rokiem 2012 w całym skoroszycie.


strzałka niebieski prawy bąbelek Poręczne narzędzie do szybkiego i łatwego znajdowania i zamieniania tekstu w komentarzach

We wszystkich komentarzach możemy szybko znaleźć i zamienić tekst na Kutools dla programu Excel'S Narzędzia komentarzy do komórek.

Kutools dla programu Excel: z ponad 300 poręcznymi dodatkami do programu Excel, które można wypróbować bez ograniczeń w ciągu 30 dni. Pobierz teraz

Jeśli zainstalowałeś Kutools dla programu Excel, możesz łatwo znaleźć i zamienić tekst we wszystkich komentarzach w programie Excel.

1. Kliknij Kutools > Więcej > Narzędzia komentarzy do komórek. Zobacz zrzut ekranu:

zamień-doc-komentarz-2

2, w Narzędzia komentarzy do komórek Okno dialogowe:

  • (1.) Kliknij Znaleźć zamiennik patka;
  • (2.) Wybierz zakres, w którym chcesz zastosować to narzędzie, możesz wybrać Aktywny arkusz or Wszystkie arkusze;
  • (3.) Wprowadź tekst (2011), który chcesz zamienić na Znajdź tekst w komentarzach i wprowadź określony tekst (2012), którego chcesz użyć w Zastąp pudełko.

zamień-doc-komentarz-3

3. A następnie kliknij zastąpić przycisk. Cały rok 2011 zostanie zastąpiony rokiem 2012 w komentarzach w aktywnym arkuszu. Zobacz zrzuty ekranu:

zamień-doc-komentarz-4 -2 zamień-doc-komentarz-5

Note: Jeśli zaznaczyłeś Pokaż podsumowanie, pojawi się okienko z przypomnieniem, ile komentarzy do komórek zostało zmienionych.

Więcej szczegółowych informacji na temat Narzędzia komentarzy do komórekMożna znaleźć na stronie Opis funkcji Cell Comment Tools.


Podobne artykuły:

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
I did it, change these 3 lines of the code above like below, Chr(10) is the key change:

If InStr(sCmt, Chr(10)) <> 0 Then

sCmt = Application.WorksheetFunction. _

Substitute(sCmt, Chr(10), sReplace)
This comment was minimized by the moderator on the site
I did it, change these 3 lines of the code above as below, Chr(10) is the key change!

If InStr(sCmt, Chr(10)) <> 0 Then

sCmt = Application.WorksheetFunction. _

Substitute(sCmt, Chr(10), sReplace)
This comment was minimized by the moderator on the site
How to replace line break in comments?
This comment was minimized by the moderator on the site
The above code turns the whole comment to bold. Normally only the title is bold in an Excel comment by default. The below code fixes the problem. Sub ReplaceComments() Dim cmt As Comment Dim wks As Worksheet Dim sFind As String Dim sReplace As String Dim lTitleLength As Long Dim sCmt As String sFind = "2011" sReplace = "2014" For Each wks In ActiveWorkbook.Worksheets For Each cmt In wks.Comments sCmt = cmt.Text If InStr(sCmt, sFind) 0 Then sCmt = Application.WorksheetFunction. _ Substitute(sCmt, sFind, sReplace) cmt.Text Text:=sCmt End If lTitleLength = InStr(cmt.Text, ":") With cmt.Shape.TextFrame .Characters(1, lTitleLength).Font.Bold = True .Characters(lTitleLength + 1, Len(cmt.Text)).Font.Bold = False End With Next Next Set wks = Nothing Set cmt = Nothing End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations