excel自定義函數的注釋

If you've added comments to an Excel worksheet, you have a couple of built-in options for printing the comments.

如果您已將注釋添加到Excel工作表中，則有兩個內置選項可用于打印注釋 。

• Show the comments on the worksheet, and print them as displayed.
  在工作表上顯示注釋，并按顯示方式打印它們。
• Print the list of comments at the end of the worksheet, on a separate printed page.
  在工作表末尾的單獨打印頁面上打印評論列表。

Printing the comments on the worksheet is okay if there are only a couple of comments, and you can arrange them so they don't cover the data.

如果只有幾個注釋，則可以在工作表上打印注釋，并且可以對其進行排列，以使它們不覆蓋數據。

For more than a couple of comments, the list at the end of the worksheet is a better choice. However, with the built-in list printing option, you just get the cell address and comment, printed in a long, single column.

對于不止幾個注釋，工作表末尾的列表是一個更好的選擇。 但是，使用內置的列表打印選項，您只需獲取單元格地址和注釋，并打印在很長的一列中。

創建您自己的評論列表 (Create Your Own List of Comments)

Instead of using the built-in list of printed comments, you can use a macro to create your own list of comments on a separate worksheet, and print that list.

您可以使用宏在單獨的工作表上創建自己的注釋列表，然后打印該列表，而不是使用打印注釋的內置列表。

It's also a great way to review all the comments on a worksheet, and use sorting or filtering to focus on specific comments.

這也是查看工作表上所有評論，并使用排序或篩選來關注特定評論的好方法。

Shown below is the Excel VBA code to create a list of comments from the active sheet, written by Dave Peterson.

下面顯示的是Excel VBA代碼，用于從活動工作表中創建由Dave Peterson編寫的注釋列表。

For more comment programming examples, including Dave's code to list all the comments in the entire workbook, see Excel Comments VBA.

有關更多注釋編程示例，包括Dave列出整個工作簿中所有注釋的代碼，請參閱Excel Comments VBA 。

注釋列表代碼 (The Comment List Code)

The ShowComments macro adds a new sheet to the workbook, and lists all the comments, the comment author name, and the comment cell's value, address and name (if any).

ShowComments宏將新工作表添加到工作簿，并列出所有評論，評論作者名稱以及評論單元格的值，地址和名稱(如果有)。

At the end of the macro, the first row is formatted in bold font, and the column widths are autofit.

在宏的末尾，第一行以粗體格式設置，并且列寬是自動調整的。

Sub ShowComments() 'posted by Dave PetersonApplication.ScreenUpdating = False Dim commrange As Range Dim mycell As Range Dim curwks As Worksheet Dim newwks As Worksheet Dim i As Long Set curwks = ActiveSheet On Error Resume Next Set commrange = curwks.Cells _ .SpecialCells(xlCellTypeComments) On Error GoTo 0 If commrange Is Nothing Then MsgBox "no comments found" Exit Sub End If Set newwks = Worksheets.Add newwks.Range("A1:E1").Value = _ Array("Address", "Name", "Value", "Author", "Comment") i = 1 For Each mycell In commrange With newwks i = i + 1 On Error Resume Next .Cells(i, 1).Value = mycell.Address .Cells(i, 2).Value = mycell.Name.Name .Cells(i, 3).Value = mycell.Value .Cells(i, 4).Value = mycell.Comment.Author .Cells(i, 5).Value = mycell.Comment.Text End With Next mycell With newwks .Rows(1).Font.Bold = True .Cells.EntireColumn.AutoFit End With Application.ScreenUpdating = True End Sub

翻譯自: https://contexturesblog.com/archives/2010/08/27/print-a-customized-list-of-excel-comments/

excel自定義函數的注釋

總結

以上是生活随笔為你收集整理的excel自定义函数的注释_打印Excel注释的自定义列表的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。