[[20141120215113]] 『ハイパーリンク 定義された名前』(Susie) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『ハイパーリンク 定義された名前』(Susie)

 P50に名前を付けました。
 A1にハイパーリンクでジャンプしますが、P50が右端になります。
 これをP50がA1あたりに持ってきたいのです。
 設定のやり方などご存知でしたら教えてください。

< 使用 Excel:Excel2010、使用 OS:WindowsXP >


 調べたけど、VBAしか見つかりませんでした。
http://www.moug.net/tech/exvba/0050032.html
(稲葉) 2014/11/21(金) 08:29

 具体的なやり方としては、ThisWorkBookモジュールに
    Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
        With ActiveWindow
            .ScrollRow = ActiveCell.Row
            .ScrollColumn = ActiveCell.Column
        End With
    End Sub
 と入れておくだけです
(稲葉) 2014/11/21(金) 08:35

 ハイパーリンクには「ハイパーリンクの挿入」によるものとHYPERLINK関数によるものと二つあるがどちらか?

 ハイパーリンクの挿入であれば
 Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
     Application.Goto Range(Target.SubAddress), True
 End Sub
 でも。

 HYPERLINK関数の場合は手でシートを選択した場合と区別がつかないためハイパーリンクではなく手で
 シートを変えた場合にもアクティブセルが左上になってもいいのであれば

 Private Sub Workbook_SheetActivate(ByVal Sh As Object)
     Application.Goto ActiveCell, True
 End Sub
 でどうか。

 追記
 前者はハイパーリンクの挿入で作成されたハイパーリンクでのみ実行される(HYPERLINK関数では効果がない)
 後者はハイパーリンクだけでなく別のシートを選んだ場合に実行される。

(ねむねむ) 2014/11/21(金) 09:27


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.