如何在 Excel 注释中插入公式结果？

---

本文将指导用户如何在 Excel 注释中插入公式结果。文章介绍了两种实现相同任务的不同方法。第一个示例允许用户使用 VBA 代码，在 Excel 中将公式结果显示为注释。之后，下一个任务允许用户使用 Kutools 工具在 Excel 表格中将结果插入为注释。所有提供的步骤都清晰明了。所有步骤中提供的详细信息都详细而全面。

示例 1：使用 VBA 代码在 Excel 中将公式结果插入为注释。

步骤 1

为了理解在 Excel 表格中将公式结果插入为注释的过程，请考虑一个 Excel 电子表格。此电子表格包含几个列，例如员工代码、工资、奖金和总计。需要注意的是，总计列的值存储了工资和奖金值的总和。下面提供了 Excel 表格的快照

步骤 2

在这里，用户将使用 VBA 代码执行任务。为此，用户需要打开 VBA 编辑器。为此，请右键单击工作表选项卡。这将显示一个选项列表，在提供的选项列表中选择“**查看代码**”选项。下面提供了相同的快照

步骤 3

另一个对话框“**Microsoft Visual Basic for Applications**”将打开。此对话框显示一个大的空代码区域。下面提供了相同的快照

步骤 4

Copy the below provided code to editor:
'define module
Sub add_comment_to_formula()
    'declare required variable
    Dim range_x As Range
    Dim text_x As String
    Dim cell_x As Range
    On Error Resume Next
    'if salary
    If ActiveWindow.RangeSelection.Count > 1 Then
      ' setting variables
      text_x = ActiveWindow.RangeSelection.AddressLocal
    'else statement
    Else
      ' setting variables
      text_x = ActiveSheet.UsedRange.AddressLocal
    ' end of if block
    End If
    ' setting range variable
    Set range_x = Application.InputBox("Set the certain cell:", "Formula result", text_x, , , , , 8)
    ' if range is nothing
    If range_x Is Nothing Then Exit Sub
    ' on error resume next
    On Error Resume Next
    Application.ScreenUpdating = False
    ' for each loop
    For Each cell_x In range_x
        ' if cell has formula
        If cell_x.HasFormula Then
            'calling delete
            cell_x.Comment.Delete
            ' calling add comment
            cell_x.AddComment CStr(cell_x.Value)
        'end of if statement
        End If
    ' next statement
    Next
    ' screen update to true
    Application.ScreenUpdating = True
End Sub

在将上述代码键入或粘贴到代码区域后，单击“运行”按钮。下面提供了相同的快照

步骤 5

运行选项将显示“Kutools for Excel”对话框。在输入区域中，选择行，然后单击“**确定**”按钮。

步骤 6

上述步骤将在总计列中添加注释。此列包含存储求和数据的注释。下面提供了相同的快照

示例 2：使用 Kutools 工具在 Excel 中将公式结果插入到注释中。

步骤 1

对于此示例，将使用相同的 Excel 表格。下面提供了相同的快照

步骤 2

之后，转到“**Kutools**”选项卡，然后转到“编辑”选项卡，然后选择“**更多**”磁贴，然后进一步选择选项“**转换注释和单元格…**”。为了便于参考，请考虑以下提供的示例数据

步骤 3

上述步骤将打开“**转换注释和单元格**”对话框。此对话框允许用户在“源区域”标签中选择数据范围，然后在“转换”标签下选择第二个选项“**将单元格内容插入到注释中**”，最后单击“**确定**”按钮。

步骤 4

上述步骤将再次在总计列中添加注释标签。下面提供了相同的快照

结论

本文指导用户完成将公式生成的计算结果作为注释插入最后一列的过程。本文中描述了两个示例。用户必须在 VBA 代码中编写正确的语法、声明和语句才能获得所需的结果。所有提供的步骤都详细而全面。