即効テクニック |
サンプルではセルにハイパーリンクを挿入する際、SubAddressにセル領域を参照する名前を指定することで、定義済みの名前の参照先を開くためのハイパーリンクを設定します。 (前提)”C:\TEST.xls”を作成、セル領域に名前”Nam1"を定義 (参考)テクニック:名前の定義と参照範囲の変更
Sub AddHyperlink() Dim H As Hyperlink ' アクティブセルにハイパーリンクを挿入 Set H = ActiveCell.Hyperlinks.Add(ActiveCell, "c:\test.xls") With H ’サブアドレスとしてセル参照の名前を使用 .SubAddress = "Nam1" .TextToDisplay = "表示される文字(C:\TEST.xlsのNam1)" End With End Sub
※TextToDisplayプロパティーはエクセル97にはありません。