| |
Hypaerlink関数でリンク先(同一ブック内の他のシートのセル)にジャンプするとき、セル選択後エンターでジャンプする方法がないでしょうか? この機能はoffice2000までは使えていました。
office2000以降のExcelではセルを選択してクリックすればリンク先にジャンプできるのですが、エンターでジャンプしたいのです。
マクロを使ってoffice2000の機能(エンターでジャンプ)を実現できないでしょうか?
以下のマクロでできるというページを見つけましたが、これではエラーとなりうまくいきませんでした。
多分、同じブック内の他のシートを参照する場合はこのマクロでは駄目なようです。
どなたか、いい方法をご教授ください。
Sub Auto_Open()
'起動時 キー設定 On
Call SettingKeys(True)
End Sub
Sub Auto_Close()
'終了時 キー設定 Off
Call SettingKeys(False)
End Sub
Sub SettingKeys(flg As Boolean)
If flg Then
Application.OnKey "{Enter}", "JumpHyperLink"
Application.OnKey "~", "JumpHyperLink"
Else
Application.OnKey "{Enter}"
Application.OnKey "~"
End If
End Sub
Sub JumpHyperLink()
If TypeName(Selection) = "Range" Then
If ThisWorkbook.Worksheets(Selection.Parent.Name) Is ActiveSheet Then
Selection.Hyperlinks(1).Follow NewWindow:=False
End If
End If
End Sub
このマクロでは、
Selection.Hyperlinks(1).Follow NewWindow:=False
を実行すると、「インデックスが有効範囲にありません」というエラーになります。
セルには次のような関数が書いてあります。
=IF(B4="","",HYPERLINK("#sheet2!B4","sheet2 B4へ"))
|
|
hiros2048
- 12/2/17(金) 9:04 -
