[[20180513093849]]　『シート名とセル情報を取得してリンクを作成』（marco3）　ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

　

『シート名とセル情報を取得してリンクを作成』（marco3）

Excelにて現在、BOOK内の全シートのシート名を取得し⇒「目次」シートのA1から順番に（A1、A2、A3…の順に）各シートの「A1」セルに遷移するリンクを作成するマクロを使用しています。

今回、上記機能に各シートのセルの情報（「U1」セルの値）を追記したリンクを作成したいと思ってます。

例）
シート名：A社　建築工事
U1セルの値：180501
↓
結果：『180501　A社　建築工事』というリンク名にて「A社　建築工事」シートのA1セルに遷移

下記が現状のVBA内容です

***ここから↓***

Sub シート名一覧作成()

    Dim objSheet As Object
    Dim intLoop As Integer
    ActiveSheet.Columns("A").Clear
    intLoop = 1
    For Each objSheet In ActiveWorkbook.Sheets
        ActiveSheet.Hyperlinks.Add Anchor:=ActiveSheet.Cells(intLoop, "A"), Address:="", SubAddress:="'" & objSheet.Name & "'!A1", TextToDisplay:=objSheet.Name
        intLoop = intLoop + 1
    Next
 End Sub

***ここまで↑***

よろしくお願いします。

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

---

TextToDisplay:=objSheet.Name
を
TextToDisplay:=objSheet.Range("U1").Text & " " & objSheet.Name
などとするんでしょうか？
全体をよくみていませんが。

（γ） 2018/05/13(日) 10:02

---

（γ） さま

ありがとうございました。
早速、変更したところ、できました！<(_ _)>
（marco3） 2018/05/13(日) 11:08

---

コメント返信：

---

[ 一覧(最新更新順) ]

---

YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.