[[20060205191724]]　『ハイパーリンクをマクロで』（てつ）　ページの最後に飛ぶ

『ハイパーリンクをマクロで』（てつ）

 たくさんのシートを持つブックの場合、目次のように各シートの名前を
 表示し、それにハイパーリンクをはって、移動できるようなマクロが紹介されていました。
 ところが、シート名に　（　）が含まれていると、　うまくできません。
 例えば、Ａ商店(大阪)　等の場合には、クリックすると
 参照が正しくありません　となります。
 「ハイパーリンクの編集」で確かめてみると、セルの参照は、
 「A1」で、ドキュメント内の場所は「見出し」(目次となるシートの名前)です。
 ドキュメント内の場所を　「'Ａ商店(大阪)'」に指定し直すと、正しくリンクできます。

 このあたりのマクロは、
 Worksheets("見出し").Select     
     For j = 1 To Worksheets.Count 
             Cells(j, 1).Select 
            ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
            Worksheets(j).Name & "!A1", TextToDisplay:=Worksheets(j).Name
        Next
 となっていました。
 どのように変更したら、うまくできるでしょうか。
　　Excel2003、WindowsXP　で利用しています。　
 どうか、ご教授お願いします。

 私が書いたマクロのようです。　　(SHIOJII)

 SubAddress:=Worksheets(j).Name & "!A1"

を

 SubAddress:="'" & Worksheets(j).Name & "'" & "!A1"

 と文字列だと明示してやればよいようです。

 昨日、お礼の文をアップしたと思ったのですが、できていませんでした。

 早々の回答、ありがとうございます。
 作者の方から、直接回答いただけて、感激しました。
 教えていただいたとおり、変更すると、
 すべて、うまくリンクできました。
 非常に使い勝手がいいです。
 ありがとうございました。
                              てつ

コメント返信：

[ 一覧(最新更新順) ]

[[20060205191724]] 『ハイパーリンクをマクロで』（てつ） ページの最後に飛ぶ

[[20060205191724]]　『ハイパーリンクをマクロで』（てつ）　ページの最後に飛ぶ