人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

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

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

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

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

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

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

●質問者: taroemon
●カテゴリ:ウェブ制作
✍キーワード:firefox goo URL VBA Wikipedia
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● 清角克由
●75ポイント

すみません。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

◎質問者からの返答

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


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

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


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

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

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


申し訳ありませんが、

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

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


2 ● 清角克由
●75ポイント

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

単語は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


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

◎質問者からの返答

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

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

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ