エクセルVBAについて質問です。


A列に複数の英単語があるとします。これらの全てを「goo英和辞典(http://dictionary.goo.ne.jp/)」で検索するというマクロを作成してください。Firefoxを使用していますが、各タブにその検索結果が表示されるとうれしいです。

最初に正解された方に150ポイント差し上げます。

【注】
上記のURLで単語を検索すると国語辞典やwikipediaなどの検索結果も反映されてしまうので、英和辞典で検索されるようにしてください。

なお、そのような方法が存在しない場合、
「そんな方法はない」というご回答はご遠慮ください。

以上、よろしくお願いします。

回答の条件
  • 1人2回まで
  • 登録:2007/10/02 05:48:36
  • 終了:2007/10/02 14:58:55

回答(2件)

id:kseikaku0801 No.1

清角克由回答回数18ベストアンサー獲得回数22007/10/02 11:56:40

ポイント75pt

すみません。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 = "http://dictionary.goo.ne.jp/search.php?MT="

  検索URL部品2 = "&kind=ej&mode=0&kwassist=0"

  単語数 = Cells(1, 1).Value

  For i = 2 To 単語数

    検索単語 = Cells(i, 1).Value '<A列の2行目から順に単語を取得</p>

    検索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

id:taroemon

ご回答ありがとうございます。


おおむね僕の望んでいたとおりできました。

Firefoxでも問題なく動きます。


ただ、A1に数字を入力しなければならないのと、

単語にリンクが挿入されてしまうので、

これは僕の仕事環境からすると実用的ではありません。


申し訳ありませんが、

上記の2点を修正していただいたものを、

正解とさせていただきます。

2007/10/02 13:28:22
id:kseikaku0801 No.2

清角克由回答回数18ベストアンサー獲得回数22007/10/02 14:30:48

ポイント75pt

数字の入力と単語のリンクの問題を解消しました。

単語はA1から縦に連続して入力されていることが前提になります。

Sub Sample1()

Dim i As Integer

Dim 検索URL部品1, 検索URL部品2, 検索URL, 検索単語 As String

検索URL部品1 = "http://dictionary.goo.ne.jp/search.php?MT="

検索URL部品2 = "&kind=ej&mode=0&kwassist=0"

i = 1

Do While Cells(i, 1).Value <> ""

検索単語 = Cells(i, 1).Value '<A列の2行目から順に単語を取得</p>

検索URL = 検索URL部品1 + 検索単語 + 検索URL部品2

ActiveSheet.Hyperlinks.Add(Anchor:=Range(Cells(i, 1), Cells(i, 1)), Address:=検索URL).Follow: NewWindow = True

Cells(i, 1).Hyperlinks.Delete

i = i + 1

Loop

End Sub


これならばどうでしょうか?

id:taroemon

再度のご回答ありがとうございます。

完璧にうまくできました。

2007/10/02 14:57:55

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません