0

vba のハイパーリンクを介してワークブックのシートを開こうとしています。Web ページやフォルダへのリンクをたどるのは問題ありませんが、シートには成功しません。

誰か教えてください。

コード :

Sub MacroOpen() 

If ActiveCell.Hyperlinks.Count > 0 Then 

ActiveCell.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End If 

End Sub

どうもありがとう ！

4

1 に答える 1

0

やっても問題ありません。

他のシートへの URL に少し誤りがあるはずです。構文は SheetName!ColumNameAsAsciiRowNumber です。

したがって、シート名がsheet1で、セルA:3に移動したい場合、そのsheet2!A3

正しいハイパーリンクをシートに追加し、そこに移動する完全なコードを次に示します。

Option Explicit
Sub test()
    Sheets("Blad1").Hyperlinks.Add Sheets("Blad1").Cells(2, 3), "", Sheets("Blad2").Name & "!A3", "", "my link"
    Cells(2, 3).Select

    If ActiveCell.Hyperlinks.Count > 0 Then
       ActiveCell.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    End If
End Sub

これはスウェーデンのエクセルなので、シート名はblad1とblad2です

于 2014-03-04T08:07:57.597 に答える