第三步 :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 And Target.Row > 1 Then '只对B列 第2行开始 点击有效
Shell "cmd /c start file:///" & ActiveWorkbook.Path & "\" & Target.Cells.Offset(0, -1).Value & "\" & Target.Value & ".pdf"
End If
End Sub