VBA ハイパーリンク自動設定について

質問

EXCEL2010にて マクロでハイパーリンクを自動設定を作りたいのですが、
中々うまくいきませんので、ご教授お願い致します。

只今、ミスチェック的なものを作成中ですが、
ＣＳＶをマクロが組み込んでるSheet１へ貼り付けて、マクロ実行し、
結果をSheet２へ書き込む様に作っています。

それで、Sheet１のＡ列を項番(１日に１００件あったら項番１～１００まで)に設定しており、
マクロを実行するとSheet２のＡ列へ項番をコピーするようにしているのですが、
このSheet２の項番からSheet１の項番へリンクする様にしたいのです。

マクロ実行すると・・・
Sheet２のＡ１をクリック→Sheet１のＡ１へ移動
Sheet２のＡ２をクリック→Sheet１のＡ２へ移動
Sheet２のＡ３をクリック→Sheet１のＡ３へ移動・・・・

項番が１００件あれば１００件までリンクを自動設定。

という感じです。

色々ググってみましたが、別のExcelへ移動したり、Sheet１へ移動するのみだったりと
イマイチよく分かりませんでしたので、宜しくお願い致します。

回答No.1

queuerev2

Excelにおけるハイパーリンク挿入のVBAですね。
マクロとSheet1とSheet2は同じブックにあるということなので、たとえば

Set HLSheet = ThisWorkbook.Sheets("sheet2")
For i = 1 To 100
HLSheet.Sheets("graph1").Hyperlinks.Add HLSheet.Cells(i, 1), "", "Sheet1!A" & i
Next

でいかがでしょうか。（Excel2003で検証しました）
少し解説すると、リンク先がExcelのセル場合、２番目の引数(Address)は""、３番目の引数(SubAddress)をセル参照の文字列とします。
また、Hyperlinksの前のHLSheetはどうやら場所を指定するものではないらしく、ハイパーリンク埋め込み場所のワークシートでなくても存在するシートなら何でも大丈夫のようなのですが、念のため埋め込み場所のシートにしてあります。
埋め込み場所の指定はもちろん最初の引数のHLSheet.Cells(i, 1)で行っています。

なお、「色々ググってみましたが、（中略）イマイチよく分かりませんでした」とのことですが、今回のケースではマクロの記録とヘルプが役に立ちます。
まず、Sheet1!A1とSheet2!A2に数字の1を入力、Sheet2!A2を選択、マクロの記録開始、Sheet1!A1へのハイパーリンクを挿入、マクロの記録終了、としました。
記録されたマクロからまずはヘルプを調べ、あとは試行錯誤で上記のようなコードができました。