[[20050831003757]]　『リンクを画面の一番上の見やすい場所に』（レリオネ）　ページの最後に飛ぶ

『リンクを画面の一番上の見やすい場所に』（レリオネ）

[リンクで指定したセルを（ファイル内）画面の一番上の見やすい場所に指定する方法はありますでしょうか？]

 メニューバーのファイルの隣のExcelのマークを右クリック→コードを表示させてそこに貼り付けます。
どうでしょうか？
Option Explicit
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
Dim x As Variant
x = Split(Target.SubAddress, "!")
Application.Goto Worksheets(x(0)).Range(x(1)), True
End Sub
あっ、Excel2000以上です。
（SoulMan）

 Worksheets(x(0)).Range(x(1)), True
の(x(0))  (x(1))はどのように変更したらいいのでしょうか？
例えばシート１の119行目を最上部に表示するときはどうすればよいでしょうか？

 >ありがとうございました。うれしいです。
を消してなぜ？こうなるのかはわかりませんが、、

じゃ、、駄目ですか？
（SoulMan）

 フォームのボタンで押したら
シート１の119行目を最上部に表示
っていうマクロにしたいんです

 こうかな？
Private Sub CommandButton1_Click()
Application.Goto Worksheets("Sheet1").Range("A119"), True
End Sub
こちらも参考になるみたいです。
[[20050903102442]]『マクロ：別シートの特定の場所に移動』（ざくろ） 
[[20050511200357]]『ウインドウ枠固定時の表示』（Ty） 
（SoulMan）

ざくろさんの質問が参考になりました。
ありがとうございます

コメント返信：

[ 一覧(最新更新順) ]

[[20050831003757]] 『リンクを画面の一番上の見やすい場所に』（レリオネ） ページの最後に飛ぶ

[[20050831003757]]　『リンクを画面の一番上の見やすい場所に』（レリオネ）　ページの最後に飛ぶ