リンク関数で飛んだ先を一番下の位置から変えたい

Question

office365です。宜しくお願い致します。

sheet1のH50をクリックするとsheet2のC50に飛ぶ

というハイパーリンク関数を作りました。

無事に飛べるようになったのですが

リンク先のセルがエクセル画面の一番下に来てしまい、使いづらいです。

そこで

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If InStr(1, Target.Formula, "HYPERLINK(") > 1 Then 

    Application.Goto ActiveCell, True 

End If 

End Sub

を使用して、飛んだ時にC50が一番右上に来るようになりました。

ただ、それだとA50、B50が一度に見えず困っております。

理想は

C50に飛んだ時に一番右上がA40になって欲しいです。

マクロ全く分からないので

分かりやすく説明してもらえると助かります。

何卒宜しくお願い致します。

Answer 1

VBA(マクロ)の公式サポート場所は、海外コミュニティとなっています。

有識者が集まっている所の方が、適切なアドバイスを受けやすいでしょう。

・Stack Overflow(VBA)

　　[VBA プログラミングに関する質問]

　　Stack Overflow には、説明的なタイトル、完全で簡潔な問題ステートメント、問題を再現する
　　ための十分な詳細の要求などのガイドラインがあることに注意してください。
　　機能要求または過度に広範な質問は、トピック外と見なされます。
　　新しいユーザーの場合は、Stack Overflow ヘルプ センター にアクセスして詳細を確認して下さい。

※ 閲覧者・回答者が多い公式サポートサイトをお勧めします。

　 英語で質問を送信してください。

　 所謂、くれくれ君には対応してくれないと思います。

Answer 2

こんにちは

より良い解決策は、 同じワークシート内のジャンプリンク: クリック可能なリンクをセルに追加するには、次の手順を実行します。 ジャンプ リンクを設定するセルをクリックします。 [挿入]タブに移動します。 [リンク] ボタンをクリックします。 [リンク設定] パネルで、リンクに表示するテキスト (ボタン) を入力します

「はい」または「いいえ」を選択することで役に立った場合は、コミュニティに還元してください

よろしく

ケビン

この回答は自動翻訳されています。文法や表現の誤りが発生した場合はご容赦ください。

Answer 3

リンク1150さん、こんにちは。

私は独立したアドバイザーであり、マイクロソフト製品に関する私の経験でコミュニティの他のユーザーを支援しようとしています。私はあなたのようなユーザーであり、Microsoftで直接働いているわけではないことに注意してください。

ご不便をおかけして申し訳ありませんが、お手伝いさせていただきます。

この結果を得るためにマクロを変更する方法を説明しましょう、ハイパーリンクを通過するときにビューを調整するためのマクロが設定されているのは素晴らしいことです。現在のマクロは、アクティブ セルを画面の左上に移動します。 ただし、C50 に飛ぶときは、代わりに A40 が右上隅に表示されるようにする必要があります。

• したがって、あなたがしなければならないことは、Set destCell = Target.Rangeであるハイパーリンクの宛先セルを設定することです
• その後、画面の右上隅にセルを設定します Set topRightCell = destCell.Offset(-10, 2) ' 必要に応じてこのオフセットを調整します
• 最後に、スクロールして右上のセル(topRightCell.Select)を表示する必要があります。

次に、End Sub を使用して終了します

ご意見をお聞かせください

敬具 ファタイ

この回答は自動翻訳されています。文法や表現の誤りが発生した場合はご容赦ください。