Programmā Excel, gatavojot ziņojumus priekšniekam/vadībai, mums ir tendence ievietot komentārus, lai ļautu otrai personai informēt par uzdevuma statusu. Komentāri pamatā tiek izmantoti iekšējiem mērķiem. Šajā rakstā mēs uzzināsim, kā noņemt visus komentārus programmā Excel, izmantojot makro.
Jautājums): Vēlos lietot VBA kodu, kas noņems visus komentārus no darbgrāmatas.
Mājās izmantoju Excel 2003 versiju un birojā - Excel 2010 versiju. Man ir kods, kas lieliski darbojas Excel 2010 komentāru dzēšanā, bet nevar izdzēst Excel 2003 komentārus.
Mums jāveic šādas darbības:
- Noklikšķiniet uz cilnes Izstrādātājs
- Kodu grupā atlasiet Visual Basic
- Noklikšķiniet uz Ievietot un pēc tam uz moduļa
- Tādējādi tiks izveidots jauns modulis
- Standarta modulī ievadiet šādu kodu
Šis kods ir saderīgs ar Excel 2007, Excel 2010 un Excel 2013 versiju
Sub Remove_Comments_After2007 ()
'Noņemt komentārus no Excel 2007 darbgrāmatas
ActiveWorkbook.RemoveDocumentInformation (xlRDIComments)
Beigt apakš
Šis kods ir saderīgs ar Excel 2003 versiju
Sub Remove_Comments_2003 ()
'Noņemt komentārus no Excel 2003 darbgrāmatas
Dim wksAs darblapa
Dim cmnt Kā komentārs
Katrai wksInActiveWorkbook.Sheets
Par katru cmntInwks.Komentāri
cmnt.Delete
Nākamais cmnt
Nākamais
Beigt apakš
- Lai palaistu makro, mēs nospiedīsim ALT + F8 īsinājumtaustiņu, lai atvērtu makro logu un atlasītu makro.
- Visi komentāri tiks izdzēsti.
Tādā veidā mēs varam izdzēst Excel komentārus atkarībā no mūsu izmantotajām versijām.