excel（２００７）でリンク先のwebへ

質問

excel（２００７）でリンク先のwebを開く状態へ

ダウンロードソフト（Irvine等)で、取得したアドレスをエクセルで管理して（余分な部分・・・例えば
http://www.ｘｘｘｘｘ.com/st/st.php?
id=71922&script=1&url= http://ｘｘｘｘｘｘ.com/abcdefgh/3683390
＆P=70)
の様なアドレスの中から必要な部分を関数（ＭＩＤ）等で抽出して別のシートへコピーします
そのアドレスを1つ1つ選択していくとアンダーライン＆ブルーになってリンク先へ1クリック…状態になるのですが…。

取得したアドレスが１００とかそれ以上ある場合は≪アドレスを1つ1つ選択≫するのが非常に煩雑になります

そこでアンダーライン＆ブルーになったリンクが含まれるセルの書式をペーストして見たところ…見た目はリンクになっているのですがポインターを持っていっても指印になりません

もちろんオートコレクトのオプション設定は初期状態（http://www.ｘｘｘｘｘ.com/）と入力していくとリンクと認識される状態です

１００以上のアドレスをワークシート上で一気に（ワンクリックで…１つづつ）ＨＰを参照できる状態にしたいのですが？

教えてください

回答No.2

xls88

試しに下記のようなマクロを組んでみました。
マクロを実行してみてください。

http://oshiete1.goo.ne.jp/kotaeru_reply.php3?q=4364000
上記URLから
http://oshiete1.goo.ne.jp/
を抜き出し、Sheet1のE1に「値」で貼り付けていると仮定しています。

Sub testハイパーリンク()
　　With Worksheets("Sheet1")
　　　　.Hyperlinks.Add Anchor:=.Range("E1"), Address:=.Range("E1").Value
　　End With
End Sub

お礼

ｘｌｓ８８さんありがとうございました。

大量のＵＲＬをワークシート上に取り込んだ後の処理に関する質問でした。

ＵＲＬにリンク下線を表示する方法を質問しました。

…質問の表現が十分でなくご迷惑をおかけいたしました。

大量のＵＲＬのたとえばＢの列の１～２００にＵＲＬを取得したと仮定して、たとえば（Ｆ２）に=HYPERLINK(Ｂ２)と入力し、２～２００までコピーすれば解決いたしました。

お騒がせいたしました。

回答No.1

xls88

内容がイマイチ明確にイメージできません。
実際の例をひとつ提示して説明していただけませんでしょうか。

例えば、下記URLの場合、どのようにしているのでしょうか？
http://oshiete1.goo.ne.jp/kotaeru_reply.php3?q=4364000

>アドレスの中から必要な部分
はどの部分になりますか？

>関数（ＭＩＤ）等で抽出して別のシートへコピーします
「形式を選択して貼り付け」の「値」でコピーしているということでしょうか？

>取得したアドレスが１００とかそれ以上ある場合は≪アドレスを1つ1つ選択≫するのが非常に煩雑になります
意味がよく解りません。
選択とはどういう状態のことを言っているのですか？
セルを選択という意味合いでしょうか？

>１００以上のアドレスをワークシート上で一気に（ワンクリックで…１つづつ）ＨＰを参照できる状態にしたいのですが？
ハイパーリンクが有効な状態にしたいという意味でよかったでしょうか？

補足

早々にありがとうございます。

http://www.themetart.com/ というページ内で、例えば…Irvineでurlを抽出すると５００超の数が出てきます。

それを実際に下記のような興味のある（笑）urlは下記のようになっています。先ほど抽出すると１１９下記のようなurlが出現します

http://www.themetart.com/st/st.php?id=233272&script=1&url
=http://www.themetart.com/galleries/2008/2287ad1a65/index.html&p=70
この中で必要なのは
http://www.themetart.com/galleries/2008/2287ad1a65/index.html

のような部分です。この際にMID関数などが必要になります。
或る場合はindex.htmlの代わりに[01-15].jpg　を置き換えてIrvineでURLを展開して貼り付けすると楽しい画像が…

しかし１つずつ確認しながら（ページ内で）URLを引っ張ってきたい場合少しでも便利にできないかな？・・・という質問でした。(恐縮;)