• 締切済み

エクセル リンク

シート1にもシート2にもランダムに数字が入っていて、 例えば、シート1の「45」のクリックしたら、シート2の「45」にリンクできるようにしたいんです。 シート1の「n」をクリックし、シート2の「n」へのリンクをすべての数字に付けたいんですが、簡単な方法はないでしょうか? (数字の数2000くらい) よろしくお願い致します。

みんなの回答

回答No.1

> シート1にもシート2にもランダムに数字が入っていて(2000くらい) マクロを利用すれば早いですね。 シート1を表示し、数値が入っているセル範囲を選択して Area1 という名前を つけ、同様に、シート2の数値が入っている範囲には Area2 という名前をつけ て、次のマクロを実行します。 Sub Test()  Dim nm, rng  For Each nm In ThisWorkbook.Names   If Left(nm.Name, 4) <> "Area" Then nm.Delete  Next  For Each rng In Range("Area2")   If rng.Value = "" Then GoTo NXT1   If IsNumeric(rng.Value) = True Then    ActiveWorkbook.Names.Add Name:="LNK" & rng.Value, RefersToLocal:=rng   End If NXT1: Next  For Each rng In Range("Area1")   If rng.Value = "" Then GoTo NXT2   If IsNumeric(rng.Value) = True Then    ActiveSheet.Hyperlinks.Add Anchor:=rng, _          Address:="", SubAddress:="LNK" & rng.Value   End If NXT2: Next End Sub

関連するQ&A

専門家に質問してみよう