[[20231107162725]]　『VBAでハイパーリンクを実行したいです。』（まるてて）　ページの最後に飛ぶ

『VBAでハイパーリンクを実行したいです。』（まるてて）

いつもお世話になっております。

A3セルに　=HYPERLINK("#BZ150","先に")
A4セルに　=HYPERLINK("#"&ADDRESS(78,MATCH(TODAY(),150:150,0)),"今日")

というハイパーリンクをマクロボタン 1ポチで実行させたいです。

何の為かといいますと、

  A B C D E･･･AH 
1
2
3       1 2 3･･･31(日にちを数値で表示)
4      月火水･･･ 
5　  　合計数表示行
6　　　
･　　　この辺りはただの表
･
78      D78ここから右下は入力欄です
･
･
･
93
･
･
･
150     日付行～

Ｃ列は商品名です。

という表があるのですが、D6のセルでウィンドウ枠の固定を
しており、D78から右下に入力する時に、いちいち本日のセルに
カーソルを合わせなくても、マクロボタン１ポチでＣ列の
横に本日の行が来るようにして、見やすい画面で入力したいのです。

現状、A3セルを押してからA4セルを押すようにしているので、
それでもいいのですが、初見の人でもわかるようにしたくて･･･

色々調べて、A3セルに入っているハイパーリンクならばできたの
ですが、A4のハイパーリンクが作動しません。

どうか教えてもらえませんでしょうか～m(__)m

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

 質問は、何ですか？ A4のハイパーリンクが作動しない原因追及ですか？
 VBAが何か関係するんですか？説明してください。

 原因は、A4セルを選択した状態で「数式の検証」を実行して、おかしな点がないか検討して下さい。
 150行目に今日の日付があれば正常動作するはずですが。
（xyz） 2023/11/07(火) 19:13:09

 ＞初見の人でもわかるようにしたくて･･･
 HYPERLINK関数の第二引数をもっと説明的なものに工夫すればいいと思います。
（xyz） 2023/11/07(火) 19:21:32

すいません、うまく伝えられませんでした。

A3セルとA4セルのハイパーリンクを作動させるマクロを教えて欲しいです。

一度遠くのセル(仮でBZ150に設定)へジャンプして、次に78行の本日日付の列へジャンプさせて
入力しやすい画面にしたいです。

※勘違いしてて「色々調べて、A3セルに入っているハイパーリンクならばできたのですが、」は
間違いでした。
セルを右クリック→リンク、で指定したセルへジャンプさせるパターンのハイパーリンクを
作動させるマクロはできたのですが、本文で書いた関数、
　=HYPERLINK("#BZ150","先に")
　=HYPERLINK("#"&ADDRESS(78,MATCH(TODAY(),150:150,0)),"今日")
のハイパーリンクを作動させるマクロができません。

よろしくお願い致します。
（まるてて） 2023/11/07(火) 19:41:04

 他の方からの回答を待ってください。
 私見では、ハイパーリンクを素直に使うことで何が悪いのか理解しかねます。

（xyz） 2023/11/07(火) 19:48:09

 こんな事なのかな？

 Sub 先に()
     Dim r As Range, TargetAddress

     Set r = Range("A3")     
     TargetAddress = Split(Split(r.FormulaLocal, "#")(1), """")(0)
     Application.Goto Range(TargetAddress)
 End Sub

 Sub 今日()
     Dim r As Range, TargetAddress

     Set r = Range("A4") 
     TargetAddress = ActiveSheet.Evaluate(Split(Split(r.FormulaLocal, "&")(1), ",""今日"""))
     Application.Goto Range(TargetAddress)
 End Sub

（半平太） 2023/11/07(火) 20:53:53

半平太さん、できました！
ありがとうございましたm(__)m

バタバタしてて、試すのが遅くなってすいません。
（まるてて） 2023/11/14(火) 12:58:41

コメント返信：

[ 一覧(最新更新順) ]

[[20231107162725]] 『VBAでハイパーリンクを実行したいです。』（まるてて） ページの最後に飛ぶ

[[20231107162725]]　『VBAでハイパーリンクを実行したいです。』（まるてて）　ページの最後に飛ぶ