[[20081217151059]] 『シートの目次作成』(ねこなべ) ページの最後に飛ぶ

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

 

『シートの目次作成』(ねこなべ)

 過去ログを探したのですが、思うようなものが見つからず
 新規投稿致します。

 アクティブブックの「目次」以外のシート名と各シートのセルC9とJ9を一覧にしたいです。
 セルC9とJ9は、漢字数字英字混合の値です。
 目次は一番左(初め)のシートで、全シート数は決まった枚数ではないです。。

 目次シートが下記のようになればと思うのですが。
    A      B      C           D・・・
 1|       |            |            |
 2|シート2|←のC9セル値|←のJ9セル値|
 3|シート3|   ・    |      ・  |
 4|シート4|   ・    |   ・   |
 5| ・   |   ・    |   ・    |
 6| ・   |   ・    |   ・    |
 7| ・   |   ・    |

 宜しくお願いします。

 Excel2003,WindowsXPです。

 こんな感じ。(ROUGE)
'----
Sub Cat_Pan()
Dim i As Long
For i = 2 To Sheets.Count
 With Sheets(1)
  .Cells(i, 1).Value = Sheets(i).Name
  .Cells(i, 2).Value = Sheets(i).Range("C9").Value
  .Cells(i, 3).Value = Sheets(i).Range("J9").Value
 End With
Next
End Sub

 過去ログに GET.WORKBOOK関数 を使う方法がありました。
 
[[20040819143128]]『目次を作りたいのですが』(辛汗)
 
これと、INDIRECT関数を組み合わせれば、ご希望のことができます。
 
(ROUGE)

 ありがとうございました、無事できました。
 最終的には別のブックで目次のみにする予定だったので、
 マクロで教えていただいて助かりました。
 ありがとうございました♪

コメント返信:

[ 一覧(最新更新順) ]


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