只要"MainSubroutine";只需要在点击单元格G14时触发,但现在我需要将触发事件扩大到每当点击页面上的任何目标单元格时,它都有特定的字符串";单击以了解更多信息;。
那我该怎么写呢?我试着把第2行改成";如果Selection.Count=1 AND Selection.value="0";单击以了解更多信息";然后"但很明显,这并没有奏效。
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
应该这样做吗?如果它可以包含字符串,请使用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