vba - 実際のワークブック内のワークシートへのハイパーリンク

Question

特定のセルにハイパーリンクを追加して、Excel ファイルのワークシートにアドレス指定するにはどうすればよいですか?

これは私がすでに得たものです：

Cells(zeile, 1).Select
Worksheets(1).Hyperlinks.Add Anchor:=Selection, Address:=Workbooks(1).Worksheets(fortnr), SubAddress:=Cells(1, 1).Address

ありがとう。

Answer 1

ActiveSheet.Hyperlinks.Add ActiveCell, "", Sheets(fortnr).Name & "!A1"

Address は空白で、SubAddress は Sheet1!A1 の形式である必要があります。これにより、同じワークブックに有効なシート名を含む fortnr という名前の変数があると仮定して、アクティブセルにリンクが配置されます。

別のワークブックのセルを指す場合は、アドレスがそのファイルである必要があることを除いて、すべて同じです。

ActiveSheet.Hyperlinks.Add ActiveCell, Workbooks(1).FullName, Sheets(fortnr).Name & "!A1"

Workbooks(1) が別のファイルであり、以前に保存されており、正しい名前のシートなどがあると仮定します。

Answer 2

アイデア 1: 現在アクティブなセルにハイパーリンクを追加する

リンク先のシート名を「VBA1」とします

ActiveSheet.Hyperlinks.Add Activecell, "", "VBA1!A1"

アイデア 2: 「CallButton」という名前の図形にハイパーリンクを追加する

ActiveSheet.Hyperlinks.Add ActiveSheet.Shapes("CallButton"), "", "VBA1!A1"