Если вы довольно часто используете комментарии в своих таблицах, вы можете задаться вопросом, есть ли способ распечатать комментарии, но без имени и двоеточия, которые обычно предшествуют каждому комментарию. К сожалению, в Excel нет встроенного способа сделать это. Однако макрос можно использовать для быстрого извлечения всех комментариев с рабочего листа и помещения их на отдельный рабочий лист. Затем этот рабочий лист можно распечатать, так как он будет представлять собой сборник всех комментариев. Макрос выглядит следующим образом:

Sub Workbook_BeforePrint(Cancel As Boolean)

myCount = 0     For Each c In ActiveSheet.Comments         myCount = myCount + 1         myComment = ActiveSheet.Comments(myCount).Text         Sheets(2).Range("a1").Offset(myCount, 0).Value = _           Mid(myComment,InStr(myComment, Chr(10)))

Next End Sub

Этот макрос помещает комментарии на второй лист в книге, поэтому, если вы хотите, чтобы они были на другом листе (чтобы вы не перезаписывали информацию, уже находящуюся на втором листе), вам придется внести изменения в объект Sheets (2) .

Также обратите внимание, что имя макроса — Workbook_BeforePrint. Это означает, что макрос будет запускаться каждый раз, когда вы печатаете свой рабочий лист.

_Примечание: _

Если вы хотите узнать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах ExcelTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (2521) применим к Microsoft Excel 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Excel (Excel 2007 и более поздних версий) здесь:

link: / excelribbon-Adjusting_Comment_Printouts [Настройка распечаток комментариев].