·
1 years ago
Ich habe eine Frage zu dem VBA. Ist es auch möglich dort einen Sverweis zu integrieren? Wenn ja, wie?
在单元格中插入注释也许可以帮助您明确地描述某些内容,但是当注释单元格应用公式时,您是否曾经尝试过将公式结果插入注释中,如下图所示? 在Excel中,除了手动将公式结果输入注释中,没有内置函数可以解决该问题。 但是在这里,我介绍一些有趣的技巧,可以帮您一个忙。
这是一个VBA代码,可以帮助您快速插入带有活动单元格公式结果的注释。
1。 按 Alt + F11键 打开钥匙 Microsoft Visual Basic应用程序 窗口。
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的“转换注释和单元格”实用程序直接插入到注释中。
30后 免费安装 Kutools for Excel,请执行以下操作:
1.选择要插入公式结果作为注释的公式单元格,然后单击 Kutools > 更多 > 转换评论和单元格。 看截图:
2.在提示对话框中,选中将单元格内容插入注释选项,请参见屏幕截图:
3。 点击 Ok。 您会看到所有单元格内容都已插入到相应的注释中。 看截图: