コメントプリントアウトの調整(Microsoft Excel)
ワークシートでコメントをかなり使用する場合、コメントを印刷する方法があるかどうか疑問に思うかもしれませんが、通常はすべてのコメントの前にある名前とコロンはありません。残念ながら、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:/ excelribbon-ExcelTipsMacros [ここをクリックして、新しいブラウザタブでその特別なページを開きます]
。
_ExcelTips_は、費用効果の高いMicrosoftExcelトレーニングのソースです。
このヒント(9602)は、Microsoft Excel 2007、2010、2013、2016、2019、およびOffice 365のExcelに適用されます。Excelの古いメニューインターフェイス用のこのヒントのバージョンは、次の場所にあります。
link:/ excel-Adjusting_Comment_Printouts [Adjusting CommentPrintouts]
。