|
ブック内にあるシートの一覧を、Sheet1に作成して
そのSheet1の一覧から、ハイパーリンクを張って、たくさんあるシートを
管理したいのですが、作成したVBAだとハイパーリンクが反映されません。。。
ご助言お願いします。。。
Sub FindingSheet() '「シート名を検索」というボタンを押すと、ブック内にあるシートの一覧を作成します。
'データの初期化
Range("B10").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Selection.NumberFormatLocal = "G/標準"
With Selection.Font
.Name = "MS Pゴシック"
.FontStyle = "標準"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
'変数宣言
Dim objWorkSheet As Worksheet
Dim intRow As Integer
Dim sheetname As String
sheetname = ""
'シート名記載、開始Columの選択
intRow = 10
For Each objWorkSheet In Worksheets
Sheets("シート検索マクロ").Cells(intRow, 2).Value = _
objWorkSheet.Name 'シート名記載、開始Row(2の事)の選択
'アクティブセルの文字列を取得(Sheet名の取得)
'Cells(intRow, 2).Activate
Cells(intRow, 2).Select
sheetname = Cells(intRow, 2).Value
'ハイパーリンクの設定
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
sheetname & "!", TextToDisplay:=sheetname
intRow = intRow + 1
Next
End Sub
|
|