質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Q&A

解決済

1回答

4704閲覧

vba ハイパーリンクからシートのインデックス番号取得

coko1

総合スコア276

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

0グッド

1クリップ

投稿2017/03/15 03:25

現在アクティブシートのインデックスを取得して処理を行うマクロを組んでいるのですが、インデックスの取得をタイトル通り、ハイパーリンクから取得して処理を行うようにしたいのです。
ハイパーリンクからリンク先のシートのインデックス番号を取得することは出来ますでしょうか?

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答1

0

ベストアンサー

こういうことでしょうか?

VBA

1sd = Split(Cells(1, 1).Hyperlinks.Item(1).SubAddress, "!") 2Debug.Print Worksheets(sd(0)).Index

Cellsの位置は適宜修正してください。
またエラー処理もしていないので、適当に修正願います。

エラー処理あり版

VBA

1With Cells(1, 1) 2 If .Hyperlinks.Count > 0 Then 3 sd = Split(.Hyperlinks.Item(1).SubAddress, "!") 4 For Each ws In Worksheets 5 If ws.Name = sd(0) Then 6 Debug.Print ws.Index 7 Exit For 8 End If 9 Next 10 End If 11End With

投稿2017/03/15 04:10

編集2017/03/15 07:49
ttyp03

総合スコア16996

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

coko1

2017/03/15 06:19

回答ありがとうございます。まさに求めていたものでした。 質問自体は上記の回答でベストアンサーになるのですが、選択したセルにハイパーリンクがなかった場合(エラー時)処理を行わないようにするにはどのようにしたらよいのでしょうか?
ttyp03

2017/03/15 06:23

エラー処理を追加してみましたのでご確認ください。
coko1

2017/03/15 07:27 編集

ありがとうございます! Worksheets(sd(0)).Indexで検索するシート名が存在しないシート名だった場合は落ちたりしないでしょうか?
ttyp03

2017/03/15 07:50

ああ、落ちますね…。 修正してみました。 ご確認ください。
coko1

2017/03/15 08:57

度々質問してしまってすみません。 おかげさまで求めていたことが実現できました。ご協力ありがとうございました。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問