Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
  Shell "cmd.exe /c ping " & Range("A" & Target.Row)
End If
End Sub

A1 输入：192.168.0.1