[[20150121175554]]　『ﾊｲﾊﾟｰリンクでジャンプした時の表示方法』（凡拈洌）　ページの最後に飛ぶ

『ﾊｲﾊﾟｰリンクでジャンプした時の表示方法』（凡拈洌）

ハイパーリンクでジャンプした時に
表示をいつも一番左上にさせるにはどうしたらいいでしょうか？

いつも一番下にしてしまします。

設定があるのかと思い探してみましたが
見当たりませんでした。

何卒よろしくお願い申し上げます。

＜使用 Excel：Excel2013、使用 OS：Windows7 ＞

これで処理すると全部のシートのアクティブセルが左上に来てしまいます。

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

     Application.Goto ActiveCell, True
 End Sub

ジャンプした時だけ左上に表示させるにはどうしたらいいでしょうか？？

（凡拈洌） 2015/01/21(水) 18:30

こちらのハイパーリンクですが設定したのは
関数のHYPERLINKですか
挿入のハイパーリンクですか
それともVBAのハイパーリンクですか。

関数かVBAでしたらそれをみれば理由がわかると思います。
（デイト） 2015/01/21(水) 18:36

お世話になります。
関数のHYPERLINKです。
（凡拈洌） 2015/01/21(水) 18:44

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
という関数はありますがこれは挿入のハイパーリンクのみで動くようです。
何回かこの学校でも似たようなのがあるようでしたがその時の回答が
凡拈洌さんが提示してあるマクロです
申し訳ありませんがが今の私にはわかりません。ほかの方の回答をお待ちください
（デイト） 2015/01/22(木) 10:02

こんにちは

関数のHYPERLINKをセットしたシートのモジュールに

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If InStr(1, Target.Formula, "HYPERLINK(") > 1 Then
        Application.Goto ActiveCell, True
    End If
End Sub

とかではダメでしょうか？

（ウッシ） 2015/01/22(木) 10:18

ありがとうございます。
ウッシ様にご回答いただいたコードで解決しました！

本当に勉強になります。
ありがとうございました。

デイト様にもいつもご協力頂きありがとうございます。
（凡拈洌） 2015/01/22(木) 10:27

せっかく教えて頂いたのに
またトラブルが発生してしまいました。

ウッシ様に教えて頂いたコードで解決したのですが
8個あるシートの内2つのシートにこのコードを入れたいのですが
2つ目のシートに入れてみた所「実行時ｴﾗｰ　型が一致しません」とメッセージが
出てしまいました。

このエラーは2つ目のシートだけです。
最初に入れた1つ目のシートはスムーズに動いてくれます。

お時間ある時に教えて頂けたら助かります。
（凡拈洌） 2015/01/22(木) 10:43

こんにちは

複数セル選択とか、結合セルとか色々考慮が必要みたいです。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.HasFormula = False Then Exit Sub
    If Target.MergeCells = False Then
        If Target.Count > 1 Then Exit Sub
    Else
        If InStr(1, Target.Cells(1).Formula, "HYPERLINK(") > 1 Then
            Application.EnableEvents = False
            Application.Goto ActiveCell, True
            Application.EnableEvents = True
            Exit Sub
        Else
            Exit Sub
        End If
    End If
    If InStr(1, Target.Formula, "HYPERLINK(") > 1 Then
        Application.EnableEvents = False
        Application.Goto ActiveCell, True
        Application.EnableEvents = True
    End If
End Sub
（ウッシ） 2015/01/22(木) 11:15

ウッシ様、この度はご回答ありがとうございます。
ご回答いただいた通りにやってみた所、解決致しました。
ありがとうございます。
（凡拈洌） 2015/01/24(土) 09:06

コメント返信：

[ 一覧(最新更新順) ]

[[20150121175554]] 『ﾊｲﾊﾟｰリンクでジャンプした時の表示方法』（凡拈洌） ページの最後に飛ぶ

[[20150121175554]]　『ﾊｲﾊﾟｰリンクでジャンプした時の表示方法』（凡拈洌）　ページの最後に飛ぶ