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

Excel VBA实用技巧与代码示例

1. 将公式详情添加到注释中

在处理复杂电子表格时，检查公式以确保结果正确往往是一项耗时且令人沮丧的任务。在Excel中，查看公式的常规方法是点击包含该公式的单元格，但这种方式效率较低。一种更简便的方法是将公式复制到单元格的注释中，这样只需将光标悬停在单元格上，公式就会在注释框中弹出，无需移动单元格光标位置。

1.1 代码实现

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)
                End If
                Range(addr).ClearComments
                If Range(addr).HasFormula = True T