Excel 2010 Excel公式不会自动更新

我创建了一个简单的excel公式，以了解单元格A1的字体颜色

Function GetFontColorIndex(elrango As Range) As Integer
        Application.Volatile
       GetFontColorIndex = elrango.Cells(1, 1).Font.ColorIndex
End Function

在：
选中文件>选项>公式>工作簿计算>自动

在单元格

A1

中我有一个数字，在单元格

A3

中我有

=GetFontColorIndex（A1）

但是当我更改单元格

A1

的字体时，公式不会在单元格

A3

上自动更新。我必须单击shift+F9，然后它才能工作

---

知道为什么不自动显示字体的编号吗？

正如simoco所提到的

如果您在

工作表1

中使用您的“自定义项”，则在与该工作表关联的模块中添加以下内容：

如果只是更改颜色，则公式不会更新，但只要按enter键或选择工作表中的另一个单元格，它就会从中更新：

单元格中公式中的一个易失性函数会使该单元格在每次重新计算时始终重新计算

。更改格式（字体颜色）不会触发重新计算。您可以使用

ActiveSheet.Calculate添加
工作表\u selection更改
事件。在很多情况下，它会解决你的问题，你也可以这样做。