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

エクセルの質問です。
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://以下が入るようにしたいです。

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

●質問者: clinejp
●カテゴリ:コンピュータ インターネット
✍キーワード:Google http:// エクセル サイト 寒い
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● j1960
●35ポイント

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を作ることができます。

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


2 ● tawazou
●35ポイント

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列をコピーして下さい。

関連質問


●質問をもっと探す●



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