ワークシートでコメントをかなり使用する場合、コメントを印刷する方法があるかどうか疑問に思うかもしれませんが、通常はすべてのコメントの前にある名前とコロンはありません。残念ながら、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

このマクロは、ワークブックの2番目のワークシートにコメントを配置するため、別のワークシートにコメントを配置する場合（2番目のシートの情報を上書きしないようにするため）、Sheets（2）オブジェクトに変更を加える必要があります。 。

また、マクロ名はWorkbook_BeforePrintであることに注意してください。これは、ワークシートを印刷するたびにマクロが実行されることを意味します。

注：

このページ（または_ExcelTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

linkここをクリックして、新しいブラウザタブでその特別なページを開きます。

_ExcelTips_は、費用効果の高いMicrosoftExcelトレーニングのソースです。

このヒント（2521）は、Microsoft Excel 97、2000、2002、および2003に適用されます。Excel（Excel 2007以降）のリボンインターフェイス用のこのヒントのバージョンは、次の場所にあります。

linkAdjusting CommentPrintouts。