|
皆さんおはようございます。
モーグ側とこちら側のも見せて頂きました。
(モーグ側は本来マルチポスト禁止なのでこの質問に対して回答をつけないつもりでしたが参考にされる方のために)
まいけるさんのソースを見る限り多分ですが
いつもマクロ自動記録でされているのではないかな?
という感じのソースですね。
後、型と書き方はとりあえずサンプルとして書いたのではないかなと思いますが。
一応、まいけるさんのソースを元にしたサンプル(データベース用)に
したものを載せておきます。
でも参考にされるのでしたら、ichinoseさんのソースがベストと思います。
Sub link()
Dim moji As String
Dim adds As Range
'Range("A1")オブジェクトを生成
Set adds = ThisWorkbook.Sheets("Sheet1").Cells(1, 1)
'セルA5に表示する文字
moji = "テストリンク"
'セルA5「.Cells(5, 1)」にセルA1「.Worksheet.Name & "!" & .Address」に
'飛ぶリンクを貼り付けるサンプル
With adds
.Hyperlinks.Add Anchor:=.Cells(5, 1), Address:="", _
SubAddress:=.Worksheet.Name & "!" & .Address, _
TextToDisplay:=moji
End With
'Range("A1")オブジェクトの解放
Set adds = Nothing
End Sub
|
|