[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『ハイパーリンクでジャンプした時の表示方法』(凡拈洌)
ハイパーリンクでジャンプした時に
表示をいつも一番左上にさせるにはどうしたらいいでしょうか?
いつも一番下にしてしまします。
設定があるのかと思い探してみましたが
見当たりませんでした。
何卒よろしくお願い申し上げます。
< 使用 Excel:Excel2013、使用 OS:Windows7 >
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.Goto ActiveCell, True End Sub
ジャンプした時だけ左上に表示させるにはどうしたらいいでしょうか??
(凡拈洌) 2015/01/21(水) 18:30
関数かVBAでしたらそれをみれば理由がわかると思います。
(デイト) 2015/01/21(水) 18:36
関数の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
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.