„Excel“, rengdami ataskaitas viršininkui/valdymui, mes linkę įterpti komentarus, kad kitas asmuo galėtų pranešti apie užduoties būseną. Komentarai iš esmės naudojami vidiniams tikslams. Šiame straipsnyje mes sužinosime, kaip pašalinti visus komentarus „Excel“ naudojant makrokomandas.
Klausimas): Norėčiau pritaikyti VBA kodą, kuris pašalins visus komentarus iš darbaknygės.
Aš naudoju „Excel 2003“ versiją namuose ir „Excel 2010“ versiją biure. Turiu kodą, kuris puikiai veikia ištrinant „Excel 2010“ komentarus, bet negaliu ištrinti „Excel 2003“ komentarų.
Turime atlikti šiuos veiksmus:
- Spustelėkite skirtuką Kūrėjas
- Kodo grupėje pasirinkite „Visual Basic“
- Spustelėkite Įterpti, tada - Modulis
- Tai sukurs naują modulį
- Į standartinį modulį įveskite šį kodą
Šis kodas suderinamas su „Excel 2007“, „Excel 2010“ ir „Excel 2013“ versijomis
Sub Remove_Comments_After2007 ()
„Pašalinkite komentarus iš„ Excel 2007 “darbaknygės
ActiveWorkbook.RemoveDocumentInformation (xlRDIComments)
Pabaiga Sub
Šis kodas suderinamas su „Excel 2003“ versija
Antrasis Pašalinti_komentarus_2003 ()
„Pašalinkite komentarus iš„ Excel 2003 “darbaknygės
„Dim wksAs“ darbalapis
Dim cmnt kaip komentaras
Už kiekvieną wksInActiveWorkbook.Sheets
Už kiekvieną cmntInwks.Komentarai
cmnt. Ištrinti
Kitas cmnt
Kitas
Pabaiga Sub
- Norėdami paleisti makrokomandą, paspausime ALT + F8 spartusis klavišas, kad atidarytumėte makro langą ir pasirinkite makrokomandą.
- Visi komentarai bus ištrinti.
Tokiu būdu galime ištrinti „Excel“ komentarus, priklausomai nuo naudojamų versijų.