Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

52434 / 76736

←次へ　｜　前へ→


	【29140】ブック内のシート一覧にリンクを張りたい

もだ - 05/9/26(月) 16:58 -


	引用なし

	パスワード

ブック内にあるシートの一覧を、Sheet１に作成して
そのSheet１の一覧から、ハイパーリンクを張って、たくさんあるシートを
管理したいのですが、作成したVBAだとハイパーリンクが反映されません。。。

ご助言お願いします。。。

Sub FindingSheet() '「シート名を検索」というボタンを押すと、ブック内にあるシートの一覧を作成します。

'データの初期化
　　Range("B10").Select
　　Range(Selection, Selection.End(xlDown)).Select
　　Selection.ClearContents
　　Selection.NumberFormatLocal = "G/標準"
　　With Selection.Font
　　　　.Name = "ＭＳＰゴシック"
　　　　.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

0 hits

▼

【29140】ブック内のシート一覧にリンクを張りたい もだ 05/9/26(月) 16:58

≪