23、Excel VBA实用技巧与代码示例

Excel VBA实用技巧与代码示例

1. 向注释中添加公式详情

在处理复杂电子表格时，检查公式以确保结果正确是一项常见需求。通常，在Excel中查看公式的唯一方法是点击包含该公式的单元格，这既耗时又令人沮丧。更简便的方法是将公式复制到单元格的注释中，只需将光标悬停在该单元格上，公式就会在注释框中弹出，无需移动单元格光标位置即可立即查看。

但问题是，电子表格中可能有许多公式，如果其中任何一个发生更改，手动检查将是一场噩梦。以下代码可将用户所选单元格的公式添加到注释框中。如果已有注释，会保留该注释；如果已有公式和注释，则会更新注释。使用竖线（|）符号（SHIFT - \）分隔现有注释和公式。

Sub note()
    For Each window In Windows
        For Each Worksheet In window.SelectedSheets
            For Each cell In Application.Selection
                addr = Worksheet.Name & "!" & cell.Address
                temp = ""
                On Error Resume Next
                temp = Range(addr).Comment.Text
                If InStr(temp, "|") Then
                    temp = Mid(temp, InStr(temp, "|") + 1)