[[20040520161226]]　『ハイパーリンクをエンターキーで操作』（ううう）　ページの最後に飛ぶ

『ハイパーリンクをエンターキーで操作』（ううう）

ハイパーリンクをエンターキーでそうさしたい

 「そうさ」とは、具体的にどのような事でしょうか？

  (INA)

単純にリンク先に移動したいんですが。以前使用していたパソコンは　できたのですが　今のパソコンはでめなんですよ。なんでなんでしょうか。

 恐らくExcelのバージョンが違うのでしょう。
2002は出来ないみたいです。
http://support.microsoft.com/default.aspx?scid=kb;ja;813534&Product=xl2002INT
（ケン）

 便乗相談。
実は私もこのケンで、もとい、この件で悩んでいたのです。
ハイパーリンクでファイルメニューを作って「覚書」のテキストや
よく使うブックを開くようにしていたのが、キーボードだけでは
開けなくなったのでバージョンアップしたら不便になってしまいました。
キーボード操作だけでリンクを開くいいアイデアがないものでしょうか。
(KAMIYA)

 ん？　　 VBA 使えば出来ますよね・・？

 2002 ないから検証できないけど。

  (INA)

 私は上のURLでおっしゃる通りShift＋F10→oで開いています。（ケン）

 ブックの open/close/Deactivate や シートの Activeate/Deactivate で
 Onkey の 切り替えは必要だろうけど、試せないからご参考までに。

 Sub Sample_on()
    Application.OnKey "~", "test1"
 End Sub

 Sub test1()
 On Error GoTo ErrTrap
    MsgBox "ok"

    ActiveCell.Hyperlinks(1).Follow
    Exit Sub
 ErrTrap:
    ActiveCell.Offset(1).Select
 End Sub

 Sub Sample_off()
    Application.OnKey "~"
 End Sub

  (INA)

 ケンさん、INAさん、ありがとうございます。
 INAさんのOnKeyでの方法はすでに試してたんですが、
「インデックスが有効範囲にありません」
ケンさんご紹介のShift＋F10→O はメニューにさえ表示されない！？
　
Shift＋F10で表示されないことで気が付いたんですが、
原因は私のハイパーリンクのつくり方にあったようです。
HYPERLINK関数でリンクを組んだものがリンク先を開いてくれない
ことがわかりました。
ふつーにハイパーリンク設定したものは御二方の方法どちらでも問
題ないようです。
「ファイルメニュー」のブックのハイパーリンクは日によってリンク
するファイルを切り替えられるようにHYPERLINK関数でリンクを組ん
でいたもので、ちょっと悲しいデス。(T_T)
策士、策に溺れる。
　
とにかく、うまくいかない原因わかっただけでも収穫でした。
ありがとうございました。
そして、相談者の　ううう　さん、割り込んでゴメンナサイでした。
(KAMIYA)

 >「インデックスが有効範囲にありません」

 Sub aaaa()
 On Error GoTo ErrTrap
   MsgBox ActiveCell.Hyperlinks(1).Name
   End
 ErrTrap:
   MsgBox "ないです"
 End Sub

 これで、アクティブセルのリンク先アドレスが取得できれば
 出来ると思いますが・・・・

  (INA)

 >ふつーにハイパーリンク設定したものは御二方の方法どちらでも問題ないようです。

 上記のレスは無視して下さい。
 よく読まずに回答してしまいました。

  (INA)

ううう　です　みなさんいろいろ　ありがとうございました。

 TO INAさん
 ＞上記のレスは無視して下さい。
 ＞よく読まずに回答してしまいました。
もう少し目立つように書くべきでしたね。
わざわざ時間を割いてくださってありがとうございます。
HYPERLINK関数でのリンク選択の方法は　もちょっと練ってみます。
(KAMIYA)

 KAMIYAさん
 いつもお世話になっています。　
 私がボーっとしていただけなので・・・(^_^;)

 ところで、HYPERLINK関数というのは、どのように使われているものなのでしょうか？
 数式なのであれば、 .Formula で取得して、アドレスの部分だけ 
 文字列操作関数（Len,Mid,Left,Right,Instr・・）などで
 抜き出しては如何でしょうか？
 もし、URL なら、shell関数でIEを起動して、リンク先を表示できますし。

 如何なものでしょうか？

  (INA)

 簡単な例だと
=HYPERLINK("C:\"&DAY(TODAY())&".txt","本日の予定")
こんな感じでセルに数式を書いてます。
定期的な仕事のリスト＆その際に必要なファイルへの簡易リンク集
みたいになってまして、Excelをそこそこ使えるようになってから
この形式を使っていたので、便利さというよりは愛着です。（笑）
方向キーで選択、Enterでファイルを開く、というマウス要らずの手順が
気に入っていたのですが、XL2002で使ってみたら、あれっ、
という感じだったので、なんとかならないか、いろいろやってたところでした。
もっとアプリライクなものにもしてみたいので、
そろそろフルモデルチェンジかもしれません。
(KAMIYA)

コメント返信：

[ 一覧(最新更新順) ]

[[20040520161226]] 『ハイパーリンクをエンターキーで操作』（ううう） ページの最後に飛ぶ

[[20040520161226]]　『ハイパーリンクをエンターキーで操作』（ううう）　ページの最後に飛ぶ