Excel VBA質問箱 IV

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

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


52430 / 76732 ←次へ | 前へ→

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

引用なし
パスワード
   ブック内にあるシートの一覧を、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

0 hits

【29140】ブック内のシート一覧にリンクを張りたい もだ 05/9/26(月) 16:58 質問
【29146】Re:ブック内のシート一覧にリンクを張りたい Jaka 05/9/26(月) 17:35 発言
【29149】Re:ブック内のシート一覧にリンクを張りたい もだ 05/9/26(月) 17:48 お礼
【29153】Re:ブック内のシート一覧にリンクを張りたい もだ 05/9/26(月) 20:43 お礼
【29212】Re:ブック内のシート一覧にリンクを張りたい 初心者 05/9/27(火) 18:13 発言
【29307】Re:ブック内のシート一覧にリンクを張りたい もだ 05/9/30(金) 11:30 お礼

52430 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free