Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

64583 / 76732

←次へ　｜　前へ→


	【16729】ハイパーリンクについて

YO - 04/8/7(土) 15:32 -


	引用なし

	パスワード

どなたか？分かるかたご教授願います。

シートの行方向に、ActiveSheet内のシートの名前を順に書き
そのシートへのハイパーリンクを貼ろうと思いマクロを組んでみました。

　For Each WS In Worksheets
　　 ActiveCell.Offset(1, 0).Activate
　　 ActiveCell.Value = WS.Name
　　ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
　　SubAddress:= WS.Name & "!A1", TextToDisplay:=ActiveCell.Value
　Next

こんな感じなのですが、うまくリンクされるシートと
「参照が正しくありません」というシートに分かれて出来しまいます。
手動でリンクを貼る分には特に問題はないのですが・・・・。

どなたか分かる方お願いします。　（WIN XP EXCEL XP です）

0 hits

▼

【16729】ハイパーリンクについて YO 04/8/7(土) 15:32

≪