こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

EXCELのハイパーリンクをリターンキー押下でジャンプする方法

windowsXP EXCELでハイパーリンクが設定されたセルでクリックをするとリンク先にジャンプしますが、リターンキーではジャンプしません。
リターンキーでジャンプする方法を教えてください。

バージョンが理由かは分かりませんが、windows2000のPCで操作した時はリターンキージャンプしましたが、今使っているwindowsXPではできませんでした。どなたかご存知の方がおりましたら教えてください。

バージョン:Microsoft Office Excel 2003

投稿日時 - 2006-08-16 11:13:14

QNo.2342409

すぐに回答ほしいです

質問者が選んだベストアンサー

こんにちは。

それは、OSのバージョンではなくて、Office のバージョンの違いではありませんか?
今、試してみると、OSは、同じで、Excel 2000では、可能でした。たぶん、外部リンクへのセキュリティの強化のような気がします。

そこで、マクロを作ってみました。
以下を、標準モジュールに入れてください。一旦、保存して、そのブックを閉じて、開けば、キーが設定されます。

'------------------------------------------------------
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
  Selection.Hyperlinks(1).Follow NewWindow:=False
 End If
End Sub
'-------------------------------------------------------

一応、このマクロの検査はなされていますが、個別のブックで、しばらく使ってみてください。もし、それで問題がなければ、「個人用マクロブック(Personal.xls)」に登録してもよいかもしれません。

もしかしたら、他に方法があるかもしれません。

投稿日時 - 2006-08-16 14:30:05

お礼

教えていただいたマクロを組み込んで、希望の操作を実現できました。ありがとうございました。

投稿日時 - 2007-11-12 09:38:02

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.2

#1 のWendy02です。

複数ブックを開いている時、別のマクロ付きのブックで、対話型の状態のマクロを使用中に、#1で作ったマクロが割り込むことがあります。はっきりとした原因は分かりませんが、バッファなどに、ハイパーリンクを抱えているのか、誤動作します。

一応、#1のJumpHyperLinkをそっくり以下と入れ替えてみてください。

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

なお、単独で開いている分には、問題はないと思います。

投稿日時 - 2006-08-16 20:01:18

あなたにオススメの質問