W Excelu, przygotowując raporty dla szefa/zarządu, zwykle wstawiamy komentarze, aby druga osoba informowała o statusie zadania. Komentarze są zasadniczo używane do celów wewnętrznych. W tym artykule dowiemy się, jak usunąć wszystkie komentarze w Excelu za pomocą makr.
Pytanie): Chciałbym zastosować kod VBA, który usunie wszystkie komentarze ze skoroszytu.
Używam wersji Excel 2003 w domu i wersji Excel 2010 w biurze. Mam kod, który doskonale działa w usuwaniu komentarzy programu Excel 2010, ale nie jest w stanie usunąć komentarzy programu Excel 2003.
Musimy wykonać poniższe kroki:
- Kliknij kartę Deweloper
- Z grupy Kod wybierz Visual Basic
- Kliknij Wstaw, a następnie Moduł
- Spowoduje to utworzenie nowego modułu
- Wprowadź następujący kod w standardowym module
Poniższy kod jest zgodny z wersjami Excel 2007, Excel 2010 i Excel 2013
Sub Usuń_Komentarze_Po 2007()
' Usuń komentarze ze skoroszytu programu Excel 2007
ActiveWorkbook.RemoveDocumentInformation (xlRDIComments)
Napis końcowy
Poniższy kod jest kompatybilny z wersją Excel 2003
Sub Usuń_Comments_2003()
' Usuń komentarze ze skoroszytu programu Excel 2003
Dim wksAs Arkusz roboczy
Dim cmnt jako komentarz
Dla każdego wksInActiveWorkbook.Sheets
Dla każdego cmntInwks.Comments
cmnt.Usuń
Następny cmnt
Następny
Napis końcowy
- Aby uruchomić makro, naciśniemy ALT + F8 klawisz skrótu, aby otworzyć okno makra i wybrać makro.
- Wszystkie komentarze zostaną usunięte.
W ten sposób możemy usuwać komentarze Excela w zależności od używanych przez nas wersji.
