動的に指定してやるにはどうすれば良いでしょうか?
---
Sub google()
param = Worksheets(”Sheet1”).Range(”A2”).Value
targetURL = ”http://www.google.co.jp/search?q=” + param
Set ie = CreateObject(”InternetExplorer.application”)
ie.Visible = True
ie.Navigate (targetURL)
i = 0
Do Until ie.busy = False Or i > 10
Sleep (1000)
i = i + 1
Loop
If i > 10 Then
MsgBox (”タイムアウト”)
Exit Sub
End If
End Sub
---
例えば
A1をクリックするとマクロが起動し、A2の値を変数に入れ
実行する
といった事を考えています。
よろしくお願いします。
セルをクリックするのならば、クリックしたセルがアクティブになるはずなので、以下のようにして、アクティブセルをみればいいかと思います。
param = ActiveCell.Value
ありがとうございます。
アクティブセル、使い方覚えました!