エクセルの質問です。

A列に検索したい候補の文字列がずらっと並んでいます。
これをgoogleで連続して検索したいのです。
例えば「冬は寒い」は下記になるようですが、
http://www.google.co.jp/search?hl=ja&rls=GGLF%2CGGLF%3A2007-04%2CGGLF%3Aja&q=%E5%86%AC%E3%81%AF%E5%AF%92%E3%81%84&lr=

以下、「夏は暑い」とかたくさんの文字列を連続して検索項目として取得することはできますか。

B列にhttp://以下が入るようにしたいです。

参考サイトなど教えてください。

回答の条件
  • URL必須
  • 1人2回まで
  • 登録:2008/02/13 16:18:37
  • 終了:2008/02/15 14:28:31

回答(2件)

id:j1960 No.1

j1960回答回数322ベストアンサー獲得回数212008/02/13 19:16:29

ポイント35pt

URLえんこ関数

http://www.vector.co.jp/soft/winnt/net/se369699.html

このようなエンコード関数を使ってやればhttp://以下の文字列は作れます。

B1に以下の式を入れてA1に検索文字列を入力するとOKです。

="http://www.google.co.jp/search?hl=ja&rls=GGLF%2CGGLF%3A2007-04%2CGGLF%3Aja&q="&URL_Enc(A1)&"&lr="

あとは必要なだけB列にコピーすればA列の文字列で検索URLを作ることができます。

ただ、これをクリックしてブラウザを起動するのはもうひとひねり必要ですね。

id:tawazou No.2

tawazou回答回数33ベストアンサー獲得回数72008/02/14 11:34:10

ポイント35pt

ExcelVBAで、URLエンコーディングをする方法っていうか、JavaScriptを使う方法 - ウィリアムのいたずらの開発日記

でも実現できます。


1.ユーザー定義関数を作成する

Function EncodeURI(セル)
    Set sc = CreateObject("ScriptControl")
    sc.Language = "Jscript"
    Set js = sc.CodeObject
    EncodeURI = "http://www.google.co.jp/search?hl=ja&rls=GGLF%2CGGLF%3A2007-04%2CGGLF%3Aja&q=" & js.encodeURIComponent(セル.Text) & "&lr="
End Function

2.B1列に =EncodeURI(A1) と入力する。

※B2列以降はB1列をコピーして下さい。

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

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

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

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

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