[[20150130104333]] 『ハイパーリンクの活用』(たぬき) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『ハイパーリンクの活用』(たぬき)

いつもお世話になっております。

検索でくぐってみましたが
それらしきものが見つからなかったため
投稿しました。

Sheet1

	A	B	C
1	○○		
2		××	
3			△△

Sheet2

	A	B	C
1	=Sheet1!A1		
2		=Sheet1!B2	
3			=Sheet1!C3

というふーに自動リンクをしております。
○○ ×× △△は数字です。

ここからハイパーリンクをかけるには
やはり1つ1つハイパーリンク設定しなければなりませんか?

データがたくさんありまして…
方法が分かれば、うまく使いたいなと思っております。

何卒よろしくお願いいたします。

< 使用 Excel:Excel2007、使用 OS:Windows7 >


 マクロなら一括で設定できると思いますが、そのシートにはリンク式しか入ってないのでしょうか?
 それとも別の式も入っている?
(稲葉) 2015/01/30(金) 10:53

ハイパーリンクを使わず、Sheet2の値があるセルを右クリックすると、Sheet1の同じ座標に飛ぶ例。
(Sheet2のシートモジュールに以下を貼る)

 Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Count <> 1 Then Exit Sub
    If Target.Value = "" Then Exit Sub

    Sheets("Sheet1").Activate
    ActiveSheet.Range(Target.Address).Activate
    Cancel = True
 End Sub
(???) 2015/01/30(金) 11:01

ハイパーリンクを一括設定する例。

 Sub test()
    Dim R As Range

    For Each R In Range("A1:C3")
        If R.Value <> "" Then
            ActiveSheet.Hyperlinks.Add Anchor:=R, Address:="", SubAddress:="Sheet1!" & R.Address
        End If
    Next R
 End Sub
(???) 2015/01/30(金) 11:08

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.