|
こんな感じです。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
Cancel As Boolean)
Dim MyV As String
With Target
If IsEmpty(.Value) Then Exit Sub
If IsNumeric(.Value) Then Exit Sub
MyV = .Value
End With
Cancel = True
With CreateObject("InternetExplorer.Application")
.Visible = True
.Navigate "http://www.google.co.jp/"
Do While .Busy: Loop
Do Until .ReadyState = 4: Loop
With .Document
.All("q").Value = MyV
.Forms(0).submit
End With
End With
End Sub
なお、表示したIEの窓が最大化していないなら、それを最大化するためWin32API
のコードを追加します。即ちシートモジュールの先頭に
Private Declare Function ShowWindow Lib "user32.dll" _
(ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Const SW_SHOWMAXIMIZED As Long = 3
と宣言し
中略
>With CreateObject("InternetExplorer.Application")
> .Visible = True
ShowWindow .hwnd, SW_SHOWMAXIMIZED
> .Navigate "http://www.google.co.jp/"
中略
というコードを追加すれば OK です。
|
|