☰

我可以在工作表末尾打印带有单元格注释的单元格内容吗？

tag-icon • tag-icon microsoft-excel comments
我可以在工作表末尾打印带有单元格注释的单元格内容吗？

如何在工作表末尾打印注释单元格的内容以及单元格注释？我知道如何打印末尾的注释，但是否可以添加单元格内容？

例子：

我的工作表中的单元格 E96 包含：“拆除防风窗”

单元格 E96 的注释：“6 个窗口加上 1 个小窗口……每个窗口 0.5 小时 = 3.5 小时”

当我打印带有附加在工作表后的注释的工作表时，我得到：

手机 | E96

评论 | 6 个窗口加 1 个小窗口...每个窗口 0.5 小时 = 3.5 小时

我也想在那里添加注释单元格的内容，如下所示：

（或类似的东西，我很灵活）

手机 | E96移除防风窗

评论 | 6 个窗口加 1 个小窗口...每个窗口 0.5 小时 = 3.5 小时

答案1

我从chuffs 链接并修正了一些错误。

该宏提取所有注释单元格的单元格地址、单元格值、作者、注释文本，并将它们写入新工作表。此工作表可以与普通工作表分开打印。

  • 打开你的工作簿并按ALT+F11
  • 将下面的代码插入到工作表1或新模块
  • 关闭 VBA 编辑器并返回到包含您的评论的工作表
  • 按ALT+F8并执行宏
Sub ListComments()
Application.ScreenUpdating = False

    Dim X As Long, RngName As String, newwks As Worksheet, curwks As Worksheet

    Set curwks = ActiveSheet
    If curwks.Comments.Count Then

        Set newwks = Worksheets.Add
        newwks.Range("A1").Resize(1, 4) = Array("Address", "Cell Value", "Author", "Comment")

        On Error Resume Next
        For X = 1 To curwks.Comments.Count
            With curwks.Comments.Item(X)
                newwks.Range("A1").Offset(X, 0).Resize(1, 4) = _
                    Array(.Parent.Address(False, False), .Parent.Value, .Author, .Text)
            End With
        Next
    End If

Application.ScreenUpdating = True
End Sub

答案2

我不确定这是否会对你有帮助，但你可以尝试Ctrl V它应该复制公式、值等。我不知道这是否会满足您的要求，但如果您还不知道此功能，您可能想尝试一下。

相关内容