[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『ハイパーリンク 定義された名前』(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.