エクセルで作成したURLをクリックする

質問

エクセルで末尾の番号だけが違うURLを作成し、そのページを表示させたいとおもっています。

今のやり方はエクセルでURLを作成しそれをコピペして更新というやり方です。
これをURL作成、そのページの表示までを自動化させたいと思っています。
いい方法を知っている方は（マクロとかに詳しい方）教えていただけないでしょうか。
エクセルは2007,2003両方使えます。

回答No.3

DOUGLAS_

[回答番号：No.2] の DOUGLAS_ です。

＞エクセルは2007,2003両方使えます。

　では、Excel2003 で説明いたします。

１）[ツール(T)] - [マクロ(M)] - [新しいマクロの記録(R)] で記録を取ります。
２）[挿入(I)] - [ハイパーリンク(I)] - [アドレス(E):] に
ｈttp://okwave.jp/qa5024454.html
と入力し、[OK] します。
３）そのセルをクリックします。
４）画面をエクセルに戻し、[ツール(T)] - [マクロ(M)] - [記録終了(R)] します。

５）以上で、
　Sub Macro1()
　　ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
　　　"ｈttp://okwave.jp/qa5024454.html", TextToDisplay:= _
　　　"ｈttp://okwave.jp/qa5024454.html"
　　Range("A1").Select
　　Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
　End Sub
というコードが得られます。

６）ご要望は、
＞一気に該当URLを開いた上で作業をする
ということですので、上記コードの内「Address:=」・「TextToDisplay:」・「Selection」の部分を変数にはめこんで、「For ～ Next」で回します。

例）「末尾の番号」が A1:A10 に入っているものとします。
　ここでは、「5024454」～「5024463」の数字を入れてみました。

　Sub Macro1()
　　Dim i As Integer
　　For i = 1 To 10
　　　ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:= _
　　　　"ｈttp://okwave.jp/qa" & Cells(i, 1).Value & ".html", TextToDisplay:= _
　　　　Cells(i, 1).Text
　　　Cells(i, 1).Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
　　Next
　End Sub

　なお、「Cells(i, 1).Text」の部分は、「Cells(i, 1).Value」にするとエラーになりました。

＞表示までを自動化させたいと思っています。
＞いい方法を知っている方は（マクロとかに詳しい方）
＞教えていただけないでしょうか。
＞一気に該当URLを開いた上で作業をする方が効率のいいので
＞その方法を伺いたいと思っていました。
　このような場合は、先ず
＞[ツール(T)] - [マクロ(M)] - [新しいマクロの記録(R)] で記録を取ります。
その上で、ドコをドウしたらよいかをお尋ねになる方が勉強になります。

回答No.2

DOUGLAS_

１）「エクセルでURLを作成」します。
２）[ファイル(F)] - [Web ページとして保存(G)

　以上でいかがでしょうか？

　必要に応じて、[ツール(T)] - [マクロ(M)] - [新しいマクロの記録(R)] で記録なさってみてください。

回答No.1

mshr1962

=HYPERLINK("C:\AAAAAA\BBBBBB\CCCCC"&ROW(A1)&".XLS","CCCCC"&ROW(A1))
で下方にコピーすると
CCCCC1
CCCCC2
CCCCC3
・
CCCCC10
CCCCC11
のように表示されそれぞれの拡張子XLSのファイルにハイパーリンクします。
下の数値の桁数が固定であればROW(A1)の部分を
TEXT(ROW(A1),"000")
のようにしてください。（上記は3桁001～999を想定）

補足

回答していただきましてありがとうございます。
言葉足らずの質問で申し訳ございません。
私のしたかったことは業務管理で、それぞれの案件がURL末尾の数字だけが違うURLで紐づいています。

その際のチェックをひとつずつ、個別に開いて行うのではなく、一気に該当URLを開いた上で作業をする方が効率のいいのでその方法を伺いたいと思っていました。

とてもPCの操作にお詳しいようなので、もしその方法をご存知でしたら教えていただけないでしょうか？
よろしくお願いします。