我们可以通过单击具有公式的单元格来运行vba sub吗？

Question

是否可以通过单击包含公式的单元格来运行VBA Sub。

我知道可以在一个没有公式确定其价值的单元格上运行。

如何去做？

请分享您的想法。

提前致谢。

Answer 1

只需使用选择更改事件并测试.HasFormula属性：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count = 1 And Target.HasFormula Then
        '// your code here
    End If
End Sub