当选择的任何1个单元格包含定义的字符串时，触发VBA脚本

Question

只要仅在单击单元格G14时才需要触发“ MainSubroutine”，下面的代码就可以正常工作，但是现在我需要将触发事件的范围扩大到每当单击工作表上的任何目标单元格时特定字符串“单击以了解更多信息”。

那我该怎么写呢？我尝试将第2行更改为“如果Selection.Count = 1 AND selection.value =“单击以了解更多信息”然后...“，但显然这没有用。帮助吗？

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Selection.Count = 1 Then If Not Intersect(Target, Range("G14")) Is Nothing Then Call MainSubroutine End If End If End Sub

Answer 1

这应该做吗？如果可以包含字符串，请使用Instr或类似的字符串。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If target.Count = 1 Then
        If Target.value="Click to learn more" Then
            Call MainSubroutine
        End If
    End If
End Sub