[[20061211173554]]　『シートの名前をセルに自動で入るようにしたい。』（ひろぞう）　ページの最後に飛ぶ

『シートの名前をセルに自動で入るようにしたい。』（ひろぞう）
エクセル2003
ｗｉｎｘｐ
集計表を作っているのですが、シートごとに各業者をつくってその内容を別のシートで集計しています。
シートの名前をそのシートのセルに自動で表示出来ないものでしょうか？
逆にセルの内容（名称など）をシートの名前として自動で表示出来ないでしょうか？
お知恵を拝借したいのですが・・・・お願いします。

 過去に同様の相談があります。
【関連ログ】セルにシート名表示
[[20020823145459]] 『シート名を同じシートに表示』（なな）
[[20020926101421]] 『セルにシート名を参照させるには?』（SFC）
[[20021211002659]] 『シート名を数式に組みこむ』（鉄人）
[[20030104154317]] 『シート名を指定のセルに表示形式をかえて表示させる』（鉄人）
[[20030305153247]] 『シート参照について』（Lcyfin）
[[20030527130340]] 『セルにファイル名を表示させたい』（ken）
[[20040712094645]] 『セルにシート名が入るようにしたい』（ありんこ）
[[20040906234948]] 『シートタグとセル内容を関連付けるには』
[[20040929155848]] 『シート名について』（へみ）
[[20050210161508]] 『シート名取得の式について』（ひよっぴ）
[[20050218154151]] 『シート名をセルに表示』（メイ）
[[20050614230521]] 『セルにシート名を表示させるマクロ』（のViた）
[[20051021122841]] 『sheet名をセル内にコピー』（かず）
[[20060111152816]] 『シート名を変更すると同時にセルもシート名に変更になる方法・・・
[[20060127141211]] 『シート名を特定のセルに反映』（ともこ）
[[20060327120405]] 『シート名を表示してくれる式』（凪）
[[20060328071609]] 『シート名をセルに取出したい』（HO）
[[20060517095038]] 『シート名称を特定セルに表示するには?』（AMG）
[[20061126090859]] 『ワークシート見出しの文字を関数に取り入れる方法は?』（ちゃーぼう）
　
【関連ログ】セルの値をシート名に
[[20021007161409]] 『シート名をA1セルの入力内容にする方法を』（誠）
[[20030701112433]] 『シートの名前を特定のセルの文字列に』（黒ドラ）
[[20030926201859]] 『セルのデータからシート名』（ぽん）
[[20031105174927]] 『シート名を自動的につけることは可能でしょうか』（Ami）
[[20040301121324]] 『セルに入力したものをシート名に』（レギュラー）
[[20040930180016]] 『セルの内容をシートタグに反映させるには』(bun565)
[[20051109121705]] 『ワークシートの名前』（TOMO）
[[20060214153430]] 『シートの名前』（hisa）
[[20060307131002]] 『シート操作のマクロ・エラー処理』（なっち）
[[20061116151804]] 『マクロでシート名の変更をする』（すが）
　
ただ、「シートごとに各業者をつくって」という着想に私は疑問あり。
もし、後々そのブックに入力されたデータを集計する目的があるなら、
「～ごとにシートを作って・・・」というのは、効率の悪い使い方を選択している
可能性大、ということは指摘しておきます。
　
 【参考】みやほりんの失敗談。
http://miyahorinn.fc2web.com/schooltxt/Ex060120.html
　
データの一覧（リスト）を作り、関数やデータベース機能によって必要なデータだけ
必要なときに好みのレイアウトに表示するような使い方がベター、と思う。
(みやほりん)(-_∂)b

 これだけリンク張ればさすがに
 嫌味だね。お見事。
 (困)

 「そのシート」っていうのが集計しているシートでシート名一覧を作成、ということ
ならこちらの方か。
[[20040712163424]] 『複数シートのシート名と特定セルの内容をリストに』（taka）
[[20040819143128]] 『目次を作りたいのですが』（辛汗）
[[20060912184859]] 『シートの一覧表を作るには』（ジュニア）
[[20060807125445]] 『すべてのシート名を表示させたい』（KUS）
[[20050905144450]] 『シートの一覧表を作るには』（FAS) 
　
(みやほりん)(-_∂)b

有難うございました。
シートの見出しに色が着けてある場合その色も一緒にコピーしたい場合どんな風に入力すればよいのでしょうか。度々もうしわけないです・・・ひろぞう

 シート見出しの色はExcel2002からの機能なので、それより前のバージョンでは使用しない、
という前提にマクロを作ることになります。（関数に色を同期する機能はありません）
　
マクロを作って差し上げてもよいのですが、
その前にどこにシート名を表示するのか、はっきりさせてほしいのです。
（各シートの特定のセルか、特定のシートにシート名一覧を作成するのか、
あるいは、その両方か。）
(みやほりん)(-_∂)b

お返事遅れて済みませんです。前回のマクロでうまくいったのですが、
それを他のシートでコピーしたところ、最初のシートに設定していた色が全てのシートに反映されてしまったのです。
そこで各シートの特定のセルにそのシートの名前を表示させた時色も一緒に表示できればと思いまして。
みやほりんさんの失敗例なども拝見させて頂きまして少しずつ改良を加えているのですが・・なにしろこれを期にマクロを勉強し始めたところなので。
（ひろぞう）

 ＞前回のマクロでうまくいったのですが、
と言われても、私には覚えがないので？？
マクロを使用すると言うことなら、現在お使いのコードをご提示願えませんか。
　
ちなみに、
＞みやほりんさんの失敗例
こいつは、「シートを量産してマクロでしか処理できない状態になる前に、
データベース的な使い方に切り替えましょう」と言うのが意図。
「シートごとに各業者をつくってその内容を別のシートで集計しています。」のような使い方
はさっさとやめなさいよ、と解釈してください。
(みやほりん)(-_∂)b

色々ご指摘有難うございます。

マクロではなくセル関数でした。

みやほりんさんがはりつけてくれた過去の質問から引用させていただいたので頭がかんぜんにみやほりんさんとかんちがい、です。

=MID(CELL("filename",$A$1),FIND("]",CELL("filename",$A$1))+1,31)

↑は関数ですね

ｓｕｂからはじまってるのが？マクロ？？
　
　そうでない物もあるみたいです？？
　
なにしろちょっと勉強始めたばかりなものでとっちらかって申し訳ないです。

本でマクロとは・・・と読み始めたところでして。

ちょっとへこんでます。

これにこりずご指南お願いします。（ひろぞう）

 まずシート見出しの色をセルに反映させるにはマクロしかありません。
残念ながらただいまPCからのアクセスが出来ないので
具体的なコードは書き込めませんが。
その前にシート名を表示したいのはどこ？
教えてもらえないと、サンプルもつくりにくいので。
(みやほりん)

各シートともD1のセルに表示したいのです。

よろしくお願いします。

（ひろぞう）

 さくっとこんな感じです。
 Sub TEST_20061216()
     Dim Ws As Worksheet
     For Each Ws In ThisWorkbook.Worksheets
         With Ws
             .Range("D1").Value = .Name
             .Range("D1").Interior.ColorIndex = .Tab.ColorIndex
         End With
     Next Ws
 End Sub
　
(みやほりん)(-_∂)b

 お忙しい中有難うございました。
早速試してみます。（ひろぞう）
　追）..大成功です。

本当にお付き合い有難うございました。
（ひろぞう）

コメント返信：

[ 一覧(最新更新順) ]

[[20061211173554]] 『シートの名前をセルに自動で入るようにしたい。』（ひろぞう） ページの最後に飛ぶ

[[20061211173554]]　『シートの名前をセルに自動で入るようにしたい。』（ひろぞう）　ページの最後に飛ぶ