[[20200526184247]]　『特定のセルを一番上にしたい』（zensuuu）　ページの最後に飛ぶ

『特定のセルを一番上にしたい』（zensuuu）

シート間を移動するハイパーリンクを設置して、A16をウィンドウの一番上に表示したいと思っています。
そのためにはリンクをA16にするのではなく、ウィンドウサイズに応じて例えばA27にリンクをする必要がありますよね？

この場合、私の環境だとA27ですが、別の方の環境だとA20にリンクを指定したときに最上部にA16セルがくるとのことです。
また、私の環境でもタブレットモードの縦画面にするともちろんA27を指定してしまうと表示がずれてしまいます。

そのため「A16が一番上にくる」と指定できればいいなと思いました。
もちろん、ハイパーリンクで指定せずになんらかのVBAのコードで設置するのでもいいのですが・・・

何かいい方法はありますか？

＜使用 Excel：Excel2019、使用 OS：Windows10 ＞

 >シート間を移動するハイパーリンクを設置して、A16をウィンドウの一番上に表示したいと思っています。

 FollowHyperlinkイベントを使えば

 Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Application.Goto Evaluate(Target.Name), True 
 End Sub

（ピンク） 2020/05/26(火) 20:12

 ↑この場合、リンクセルの表示文字列が "Sheet2!A16" などとあるのを利用しています。
（ピンク） 2020/05/26(火) 20:17

ありがとうございます。

Application.Gotoについては全く勉強してなかったので、これからよく勉強して実装したいと思います。
また表示文字列は変えたくなかったので、screenTipsにSheet2!A16を放り込んで動くようにさせていただきました。
大変ありがとうございます。
（zensuuu） 2020/05/26(火) 21:22

 >screenTipsにSheet2!A16を放り込んで動くように

 これですね、いいですね(^_^)v

 Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Application.Goto Evaluate(Target.ScreenTip), True
 End Sub

（ピンク） 2020/05/26(火) 21:56

コメント返信：

[ 一覧(最新更新順) ]

[[20200526184247]] 『特定のセルを一番上にしたい』（zensuuu） ページの最後に飛ぶ

[[20200526184247]]　『特定のセルを一番上にしたい』（zensuuu）　ページの最後に飛ぶ