質問: エクセルVBAについて質問です。 A列に複数の英単語があるとします。これらの全てを「goo英和辞典()」で検索するというマクロを作成してください。Firefoxを使用していますが、各タブにその検索結果が表示されるとうれしいです。 最初に正解された方に150ポイント差し上げます。 【注】 上記のURLで単語を検索すると国語辞典やwikipediaなどの検索結果も反映されてしまうので、英和辞典で検索されるようにしてください。 なお、そのような方法が存在しない場合、 「そんな方法はない」というご回答はご遠慮ください。 以上、よろしくお願いします。
回答: すみません。FIREFOXを持っていないので、FIREFOXでどうこうという部分は実現できませんが、エクセルに並んでいる単語をGooで検索するマクロです。 ご自身のエクセル(コピーをとってください。念のため)のモジュールに貼り付けてsample1を実行してください。私の環境下ではIE6の新窓が全ての単語について開きます。 アクティブシートに以下のようにA1セルから下向きにデータが入っている事が前提になっています。(最初の5という数字は、単語の入っている最後の行数です。) 5 english selfish standard test '以下がマクロ Sub Sample1() Dim 単語数 As Integer Dim i As Integer Dim 検索URL部品1, 検索URL部品2, 検索URL, 検索単語 As String 検索URL部品1 = "" 検索URL部品2 = "&kind=ej&mode=0&kwassist=0" 単語数 = Cells(1, 1).Value For i = 2 To 単語数 検索単語 = Cells(i, 1).Value ' 検索URL = 検索URL部品1 + 検索単語 + 検索URL部品2 ActiveSheet.Hyperlinks.Add(Anchor:=Range(Cells(i, 1), Cells(i, 1)),Address:=検索URL).Follow: NewWindow = True Next i End Sub