• ベストアンサー

EXCELでシート名を一括変更したい

こんばんは、いつもお世話になっています。excelでの質問です。ワークシートを100枚つけて顧客管理台帳を作ろうと思っています。シート1に全部の顧客番号と名前を書いたマスターをつくり顧客番号とシート2~100までのシート番号をリンクさせシート2~100には個人データを記入しようと思います。100枚のシートを作ったのですがシートの名前をいちいち変えるのが面倒なので一括して1~99までの連番に変える方法はないでしょうか?よろしくお願いします

質問者が選んだベストアンサー

  • ベストアンサー
  • hana-hana3
  • ベストアンサー率31% (4940/15541)
回答No.1

Sub henkou() Dim sht As Variant Dim count As Integer count = 1 For Each sht In Worksheets If sht.Name <> "マスター" Then sht.Name = count count = count + 1 End If Next End Sub 「マスター」シート以外に連番を振ります。

bigbig
質問者

お礼

ありがとうございました、VBAプログラムの本を見ながらしました。で、見事に一発でかわりました。新しいことを学びました。感謝感謝です!!!

bigbig
質問者

補足

すいません、上記のコマンドをどこにどういう風に入れるのか教えていただけませんでしょうか?お願いします。

その他の回答 (1)

  • helpctr
  • ベストアンサー率40% (12/30)
回答No.2

http://www7.plala.or.jp/hikita/sidea/program/vb/mcrtool_xl2.html#sheetname で紹介されてるマクロがその機能を満たすかと思われます。

参考URL:
http://www7.plala.or.jp/hikita/sidea/program/vb/mcrtool_xl2.html#sheetname
bigbig
質問者

お礼

ありがとうございました。わかりました。感謝、感謝です。

関連するQ&A

  • エクセルのシートごとに連番を入れたい

    エクセルでお客様番号を振ったシートを300枚ほど作ることになりました。 ちなみにお客様番号は連番で通し番号になっています。 エクセルのシートを300枚ほど同じブックに作って 一括で印刷することは可能でしょうか? ちなみにその番号以外は同じ内容の文章なので いっぺんに同じ内容のシートをコピーしつつ、番号だけ連番となることが理想なのですが。 マクロの知識はほとんどありませんが、教えていただけるとありがたいです。 どうかよろしくお願いします。

  • エクセル:ある任意のシートを除く他のシートの一括削除について

    エクセルVBAについての質問です。よろしくお願いします。 エクセルの「○○.xls」にたくさんのシートを作っています。 ◆それをある任意のシートだけを残して(リンクがあるのでそのシートの全部を値だけ貼り付けてから) ◆そのほかのシートを一括削除して、 ◆別の名前をつけて「デスクトップ」に保存 ◆「○○.xls」を他のPCに保存してもそのVBAを実行するとそちらの「デスクトップ」に保存できるというイメージです。 このようなVBAを教えていただけないでしょうか。 よろしくお願いいたします。

  • エクセルのハイパーリンクのシート名の一括変更

    お世話になります。 エクセル2010で、シート上部の7×5の35個のセルにその月の1から35日間のカレンダーを作りました。(左上のセルに日付を入れて「そのセル+1」をコピーして簡単にその月の1日から35日先まで日付を埋めました。 そのカレンダーの日付をクリックすると所定のセルにジャンプするように35回リンクを貼ったのですが、そのシートをコピーして12か月分のシート作るとリンクが最初のシートのカレンダーの当該日にジャンプしてしまうことに気付きました。 各シートのハイパーリンクのリンク先のシート名をせめて1シート毎に、リンク先のシート名を一括で変更できない者でしょうか? 35回X11枚のシートは気が遠くなりそうです。

  • エクセルで複数のシートに一括リンク

    エクセルで顧客管理をすることになりました。 (使用ソフト:Excel2000) *現在はここまで作っています。 (1)シートは、「マスタ」が1枚と会員番号である「No1」~「No1000」の合計1001枚。 (2)「マスタ」シートには「No1」~「No1000」までの抜粋情報が1行に並んでいて、番号をクリックすると該当するシートに飛ぶことができる。 (3)No1~No1000のシートにはマスタには入れていない詳細情報を登録する。 ※希望点 会員番号や氏名などはマスタにも各シートにも登録されており、 マスタから各シートに引っ張るようにしたい。 No1の会員番号は”=マスタ!C3”として"1"が、 No1の氏名  は”=マスタ!D3”として"○○ ○男”が、 No2の会員番号は”=マスタ!C4”として"2"が、 No2の氏名  は”=マスタ!D4”として"×× ×男”が、 No3の会員番号は”=マスタ!C5”として"3"が、 No3の氏名  は”=マスタ!D5”として"△△ △男”が、 ・ ・ ・ No1のシートをコピーしてNo2,No3と作成していくと、参照先も そのまま”=マスタ!C3”になってしまうので、1枚ずつ参照先を 変更していくと手間がかかってしまいます。 会員番号が1なら参照先の番号は必ず2を加えた数字になるので、 これを利用してマクロで一気に変えてしまいたいのですが、 なにか良い方法はありますでしょうか。

  • エクセルのシート名の表示

    シートが100枚以上あるエクセルのブック「顧客台帳」があります。 他に一覧表というシートがあります。 シート名のタブはせいぜい2~30枚程度しか一度に見られず、見えないものはスクロールするしかないのですが、一覧表のシートのタブだけは常に見えるようにしたいのです。可能でしょうか。

  • EXCELのシート名を一括変更するマクロ

    マクロの超初心者ですが、EXCELのシート名を一括変更するマクロを考えてます。 例えば、1つのBOOKで「1」~「31」までの名前が入っているシートを予め用意しておいて、マクロを実行するとメッセージボックスがでてきて、そこに200806と入力するとシート名の「1」が『20080601』に、「2」が『20080602』という感じで31日分自動でできるような方法はないでしょうか?いつも手入力でやっていて大変なので、なにか方法があれば教えて欲しいです。お願いします。

  • エクセル2003 複数シート名変更

    エクセルで複数のシート名を一気に日付の入った連番にする方法はあるでしょうか? 例えば 出勤表(1日)、出勤表(2日)… みたいな感じです。 毎月つくらなければならないのでいままでは「出勤表(1日)」をコピーして二つにし、それをまとめてまたコピーして4つ、8つ…としてからシート名を全て1個ずつ変えております。オートフィルみたいな感じでシート名もうまく連番にしたいのですが… どなたかいい方法があれば教えてもらえないでしょうか… ちなみにコピーしたら出勤表(1日)(1)みたいな感じで連番にはなるのですが日という字をつける作業がめんどうなので…

  • シート間リンクの一括設定

    エクセルで、下記のようなシート(1)「B列」からシート(2)へのリンク設定を 一括でおこないたいのですが、何かいい方法はありませんでしょうか? -----------------エクセル同一ファイル--------------------- 【シート(1)】 行番  A列        B列  1  あいうえお  2  かきくけこ    注釈(1)  3  さしすせそ  4  たちつてと    注釈(2)  5  なにぬねの    注釈(3) (以下続く 数千行) 【シート(2)】 行番   A列       B列  1   注釈(1)     注釈内容  2   注釈(2)     注釈内容  3   注釈(3)     注釈内容 (以下続く) --------------------------------------------------------------- ※【シート(1)】の“B2”セルをクリックすると、【シート(2)】の“B1”セルへリンク。 同様に【シート(1)】“B4”セルをクリックすると、【シート(2)】の“B2”セルへリンク・・・・と、 注釈内容を別シートへリンクさせたいのですが。 現状では、【シート(1)】のB列「空白以外のセル」のみを表示させて、各セルごとに ハイパーリンク先のシートとセルを一つずつ指定しています。 【シート(1)】B列の注釈あり/なしはランダムで、連番付けし、 【シート(2)】へは、それぞれ連番順に記載されます。 このリンクをなんらか一括で設定できればと思うのですが、ご指摘頂ければ幸いです。

  • エクセルにてシートBの記入情報をシートの名前を入れるだけで、シートAに

    エクセルにてシートBの記入情報をシートの名前を入れるだけで、シートAに表示するようにしたいです。 シートB~AZまでに顧客の住所や電話番号などの情報が1社ごとに1シートに記載されています。シートAにはシートB~AZまでの顧客情報が一覧表示できるようにするため、シートの番号を入れるだけで、反映するような計算式を教えていただければと存じます。

  • エクセルのシートの使い方

    お訊ねします。 エクセルにおいて1枚のシートに連番(枝番)を振って、印刷したいと思っています。 具体的にはヘッダー右上(セルでもOK)に何らかの方法で001から100までを順番に振って連番で1枚ずつ印刷したいということになります。この場合、ワークシートを1から100までの100枚を作らないとならないでしょうか? それとも関数を使用したり、もう1枚シートで001から100までの連番を振って、参照することにより1枚のシートで対応することはできますでしょうか? ご教示の程、宜しくお願い致します。

専門家に質問してみよう