codeなにがし::EXCELのシート名を一覧で作成してシート名に反映させたい

EXCELのシート名を一覧で作成してシート名に反映させたい: ゲスト (EXCLEって...

コード求むＩＤ：　158
登録日時：　 2007/10/19 17:04
最終更新日時：　2008/03/06 20:43
アクセス数：　3178
タグ：　 excel シート名

0 users

エクセルのシート名を一覧管理できるように、以下のmacroをがあると非常に助かります。

どなたか、書いていただければ幸いです。

１．ファイル中のシート一覧を取得
（http://www.relief.jp/itnote/archives/000960.php）これでもよいのですが、非表示シートは一覧に出さない、または、一覧に非表示フラグを表示できるようになればなぁと。

２．取得した一覧のシート名を修正後、修正したシート名を元の各シートに反映させる。

前提として、１と２の間でシートの順番変更は無いです。

以上、よろしくお願いします。

1：ゲスト
2007/10/19 17:10

上記の前提条件に補足です。

・１と２の間でシートは増えない。
・一覧出力（入力）するシートはブックの先頭シートとする。

2：ゲスト
2007/10/23 23:36

失礼ですが、恐らく、誰も作ってくれないと思います。
以下、無礼を承知で偉そうなことを並びたてます。

理由
１．仕様が甘すぎて作れたものじゃない
２．設計と呼ばれる内容が一切ない
３．あなたは「コードが作れなくて困ってる」のではない
４．３．に絡めて少なくとも作ろうという意思は一切感じない
５．技術屋は、後輩に育って欲しいと思うことはあっても同業でもなくお客さんでもない赤の他人のためにコードを組むことに興味を持つことは少ない。

要約すると「コードがわからないから」
・「教えて」欲しいというわけでも
・「助けて」欲しいというわけでも
・「コード書いてっ♪」というわけでもないように読めます。

自分のイメージした通りに動く「何か」が欲しいのであってコードとは一切関係なく見えるのです。
したがって、内容自体がこの場(このコミュニティ)の感覚からズレてるように見えるのではないでしょうか？
※ようするに「作ってあげる」気にならないんですよ。。。

以下にコード作成者向けに書きます。
(汎用できそうなのでExcel2000として)
・ExcelのVersionが仕様上示されていないため下記が全部無駄になる可能性を最初から考慮しておく必要があります。
・SheetオブジェクトのVisibleプロパティを参照すると表示されているかいないか判定できます。
・シート名はSheetオブジェクトのNameプロパティです。
・シートを先頭に持ってゆくのは
[移動したいシートObject].Move Before:=Sheets(1)
でいけます。
・シートを増やすのは
Sheets.Add
でいけます。
・Sheetが減ったときの仕様を決める必要があります。
・反映タイミングが書かれてないので仕様を決める必要があります。
・エラーとなったときの仕様を決める必要があります。