excel怎样在打开工作簿时自动运行下面的宏？

Sub 计算色()
Function coloursum(a As Range)
Application.Volatile True
For Each c In a
If c.Interior.ColorIndex <> xlNone Then coloursum = coloursum + 1
Next
End Function
把第一行去掉

在Tishworkbook代码区，输入：
Private Sub Workbook_Open()
    Call 计算色
End Sub写完代码又奇怪了，你怎么在子程序代码下，直接加了个自定义函数代码，我迷茫了。

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息