Excel VBA質問箱 IV

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

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


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

52421 / 76732

←次へ　｜　前へ→


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

もだ - 05/9/26(月) 17:48 -


	引用なし

	パスワード

Jaka さん

ご回答、ありがとうございます！！
セル表示してみました

今、少し書き直してみたら、動くようになりました。

ただ、普通にスーパーリンクを張ろうとするときに
シート名を''囲われている場合と、そうでない場合で動かないことが
わかりました。

ハイパーリンクで表示される''の表示は何でしょう？
シート名に（）カッコが入っているときは必須ですが
（）カッコがなくても表示されています。。。

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("◆macro ").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 & "!" & "A1", TextToDisplay:=sheetname
　　　　　
　　　　intRow = intRow + 1
　　Next
　　
End Sub

1 hits

▼

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