|
■No67330 (ナーミン さん) に返信
とりあえず
Excelでマクロ記録
Sub Macro1()
'
' Macro1 Macro
'
'
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Sheet2!A1", TextToDisplay:="Sheet2!A1"
End Sub
こんな感じで記録されるので
ActiveSheetを該当シート
Anchor:=Selection の Selection をHyperLinkを作成するセル
SubAddress:="Sheet2!A1" の "Sheet2!A1"をリンク先
にすれば良いです。
WorkSheet.Hyperlinksが1つのComObjectになるので解放を忘れないようにする必要があります。
また、Hyperlinks.Addの定義は
Function Add(Anchor As Object, Address As String, [SubAddress], [ScreenTip], [TextToDisplay]) As Object
なので引数名指定の記述でなければ
ActiveSheet.Hyperlinks.Add Selection, "", "Sheet2!A1", "", "Sheet2!A1"
と記述したのと同じになります。
|