V aplikaci Excel při přípravě zpráv pro šéfa/vedení obvykle vkládáme komentáře, abychom nechali druhou osobu informovat o stavu úkolu. Komentáře se v zásadě používají pro interní účely. V tomto článku se naučíme, jak odstranit všechny komentáře v aplikaci Excel pomocí maker.
Otázka): Chtěl bych použít kód VBA, který odstraní všechny komentáře ze sešitu.
Používám verzi aplikace Excel 2003 doma a verzi aplikace Excel 2010 v kanceláři. Mám kód, který perfektně běží při odstraňování komentářů aplikace Excel 2010, ale nedokáže odstranit komentáře aplikace Excel 2003.
Musíme postupovat podle následujících kroků:
- Klikněte na kartu Vývojář
- Ze skupiny kódů vyberte Visual Basic
- Klikněte na Vložit a poté na Modul
- Tím se vytvoří nový modul
- Do standardního modulu zadejte následující kód
Následující kód je kompatibilní s verzí Excel 2007, Excel 2010 a Excel 2013
Sub Odebrat_Comments_After2007 ()
'Odebrat komentáře ze sešitu aplikace Excel 2007
ActiveWorkbook.RemoveDocumentInformation (xlRDIComments)
End Sub
Následující kód je kompatibilní s verzí aplikace Excel 2003
Dílčí odebrání_komentářů_2003 ()
'Odebrat komentáře ze sešitu aplikace Excel 2003
Dim wksAs Worksheet
Dim cmnt jako komentář
Pro každý wksInActiveWorkbook.Sheets
Pro každý cmntInwks.Comments
cmnt.Delete
Další cmnt
další
End Sub
- Pro spuštění makra stiskneme ALT + F8 klávesovou zkratkou otevřete okno Makro a vyberte makro.
- Všechny komentáře budou smazány.
Tímto způsobem můžeme mazat komentáře aplikace Excel v závislosti na verzích, které používáme.
