Sub googleimfeellucky() 'I'm feeling Luckyになげる
Dim words As String
Dim url As String
Dim cmd As String
url = "explorer.exe ""http://www.google.com/search?btnI=I%27m+Feeling+Lucky&lr=lang_ja&q="
words = ActiveCell.Value
cmd = url & words & """"
Shell cmd
End Sub
0 件のコメント:
コメントを投稿