VBA Excel 如何从单元格中的公式中获取参数范围？

How in VBA Excel get the range of arguments from formula in the cell?

问题：

  1. 我有一个带有公式的单元格，该工作簿中有一些单元格作为 参数
  2. 我需要使用 VBA 以某种方式访问​​这些参数并更改它们的颜色

提前致谢

如果公式简单，这很容易。假设 A1 包含：

=SUM(B2:B20,D9)

Select 单元格和 运行:

Sub ColorMeElmo()
    Dim s As String

    ActiveCell.Precedents.Interior.ColorIndex = 27
End Sub

获得：

这仅在 Precedences 直接适用时才有效。