VBA：Worksheet_SelectionChange 工作表 觸發應用

小編常利用這個功能，在點選儲存格後，自動啟動特定的SUB或是FUNCTION，逐一做進一步的應用。

例如下面這樣，若儲存格具備註解，則啟動IF條件式內的敘句。

解說，TARGET 本身即為RANGE物件，所以基本上RANGE 的屬性與方法都具備，可以玩得應用很多，小編僅是舉一個簡單的例子。

Private Sub Worksheet_SelectionChange(ByVal TARGET As Range)   

        If Not TARGET.Comment Is Nothing Then                        

                If InStr(TARGET.Comment.Text, "I:\") > 0 Then          '含有指定路徑               

                    Call OpenURL(TARGET.Comment.Text)                    '透過SUB 開啟路徑檔案 

                End If  

      End If

End Sub

Sub OpenURL(url)

    'Dim url As String

    shell "cmd /c start " & url, vbNormalFocus '透過SHELL方式開啟檔案。

End Sub