我们可以通过单击具有公式的单元格来运行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