VBA实战技巧08： 鼠标悬停在超链接公式上时运行自定义函数
本文介绍的技巧来自于myspreadsheetlab.com，这个技巧很有趣，当鼠标悬停在超链接公式上时会运行使用VBA自定义的函数，如下图1所示。
图1
如上图1所示，单元格K9中是一个超链接公式：
=IFERROR(HYPERLINK(RolloverSquare(K100),K100+1),K100+1)
其中，RolloverSquare是一个自定义函数：
Public Function RolloverSquare(XIndex As Integer)
If XIndex <> Range("XIndex").Value + 1 Then Range("XIndex").Value = XIndex + 1
End Function
在这个自定义函数中：
Range("XIndex").Value
引用名为“XIndex”的单元格中的值。这个名称为“XIndex”的单元格就是单元格K98。
因此，当我们将鼠标悬停在公式单元格K9上时，会将单元格K100中的值传递给RolloverSquare函数。在函数中，将该值与单元格K98中的值加上1的结果比较，如果两者不相等，则将K98中的值修改为K100中的值加1。
简单地说，就是当鼠标悬停在公式单元格K9上时，会比较单元格K98和K100中的值，如果K100中的值不等于K98+1，则单元格K98=K100+1。
其中间运行过程信息如下图2所示。
图2
下面将此公式应用到更多的单元格，其效果如下图3所示。
图3
可以利用这项技术创建一个小有意思的游戏，如下图4所示。单击右下角开始，当沿着白色区域到达左上角“胜利”按钮并单击，游戏获胜，右下方会显示游戏开始时间、结束时间和使用时间，并显示游戏结束。当单击开始后，碰到蓝色区域，则游戏结束。
图4
蓝色区域中使用了我们在上文中的超链接公式。