Excelのコメントに数式の結果を挿入するにはどうすればよいですか？

セルにコメントを追加することで、内容を明確にすることができます。しかし、下のスクリーンショットに示すように、数式の結果を直接コメントに挿入したことはありますか？ Excelでは、手動で数式の結果をコメントに入力しない限り、それを解決するための組み込み機能はありません。しかし、ここでいくつかの興味深い方法を紹介します。これにより、その作業が簡単になります。

VBAを使用してコメントに数式の結果を挿入する

Kutools for Excelを使用してコメントに数式の結果を挿入する

VBAを使用してコメントに数式の結果を挿入する

以下は、アクティブなセルの数式の結果を含むコメントを迅速に挿入できるVBAコードです。

1. Alt + F11キーを押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。

2. 「挿入」> モジュールをクリックし、以下のコードをモジュールスクリプトに貼り付けます。

VBA: 数式の結果を含むコメントを挿入

Sub ValueToComment()
'Updateby20160711Extendoffice
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Select cells you want to insert comment with formula result:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    On Error Resume Next
    Application.ScreenUpdating = False
    For Each xCell In xRg
        If xCell.HasFormula Then
            xCell.Comment.Delete
            xCell.AddComment CStr(xCell.Value)
        End If
    Next
    Application.ScreenUpdating = True
End Sub

3. F5 キーを押してコードを実行すると、対応する数式の結果を持つコメントを挿入したいセルを選択するよう促すダイアログが表示されます。スクリーンショットをご覧ください：

4. OKをクリックすると、コメントが対応する数式の結果と共に作成されます。

Kutools for Excelを使用してコメントに数式の結果を挿入する

数式の結果をコメントに挿入するには、Kutools for Excelの「コメントとセルの変換」機能を使用して、セルの内容を直接コメントに挿入することができます。

1. 数式の結果をコメントとして挿入したい数式セルを選択し、「 Kutools > More > Convert Comment and Cell」をクリックします。スクリーンショットをご覧ください：

2. 表示されるダイアログで、「 セルの内容をコメントに追加 」オプションをチェックします。スクリーンショットをご覧ください：

3. Okをクリックします。これで、すべてのセルの内容が対応するコメントに挿入されていることが確認できます。スクリーンショットをご覧ください：

デモ： Kutools for Excelを使用してコメントに数式の結果を挿入する