• ベストアンサー

EXCELシート名の名前の付け方

Windows XpでExcel2003を使用しています。 Excelのシート名を1月として作成し、それをコピー元とし、以降2月から12月迄のシート名でコピー作成したいのですが、1月(2)、1月(3)・・・となったものを名前の変更で2月、3月・・・と修正しており、非常に手がかかっています。もっと簡単な方法がありましたら、是非ご教授ください。よろしくお願いします。

  • baura
  • お礼率89% (172/192)

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

  • ベストアンサー
  • KenKen_SP
  • ベストアンサー率62% (785/1258)
回答No.2

1月シートを作り、アクティブにしたまま、下記マクロを実行して下さい。 【手順】 1. [Alt]+[F11]でVisual Basic Editor起動(以下VBE) 2. VBE画面で[挿入]-[標準モジュール]クリック 3. 2.で開いたウインドウに下記VBAコードをコピー&ペースト 4. VBEを閉じる 5. [ツール]-[マクロ]-[マクロ]で実行 【以下VBAコード:場所=標準モジュール】(次行から終わりまで) Sub Sample()   Dim Sh As Worksheet   Set Sh = ActiveSheet   For i = 2 To 12     Sh.Copy After:=Sheets(Sheets.Count)     ActiveSheet.Name = i & "月"   Next   Set Sh = Nothing End Sub

baura
質問者

お礼

ありがとうございます。早速やってみます。

その他の回答 (1)

回答No.1

VBA!

baura
質問者

お礼

ありがとうございます。もう少し詳しい内容を教えていただければありがたいです。

関連するQ&A

  • エクセルマクロでファイル名やシート名変更できない

    エクセルは初心者なのでマクロを自動記録して作成しています。 少しづつ動作を小分けにして記録して、まとめてボタンで連続実行させるようにしました。 (1)作成途中で失敗したら最初からの作業になると思い、 ある程度進んだら何度かファイルのコピーを作成して進めていました。 ある程度完成した時点でファイル名が「○○○4~コピー~」の様な名前だったので、正式に名前を決めて変更したらマクロの実行が出来なくなりました。(元の名前に戻すと実行可能) (2)またシートも複数のシートに跨って参照するようなマクロです。 シート名を分かりやすい名前に変更したらこの場合もマクロ実行できなくなりました。 (3)コピーしたファイルもマクロ実行できないものがあります。 コピーしたファイルはマクロ実行できないのでしょうか? (4)ファイル作成途中で何かの変更が生じて列や行の挿入を行った場合、 特定のセルを参照して計算するマクロは実行できなくなるのでしょうか? その場合、簡単に修正する方法はありますか? 初心者にも分かるような回答をよろしくお願いいたします。

  • シートをコピー、シート名を変更

    Windows8でExcel2000を使っています。 こういうマクロはどう書けばいいんでしょうか? 同一ファイル内で、シートを複数枚コピー。 複数選択したセルに入力された文字列を、上記でコピーされたシート名に反映したい。 「原本」というシート名のシートがあり、それを元に一年分の表を作りたいのですが 今は手で11枚コピーを作った後1枚ずつ名前変更でやっています。 シート名にしたい文字列は現在なら「2015年01月」~「2015年12月」です。 セルに「2015年01月」~「2015年12月」を入力、選択した後マクロ実行で シート名変更に反映できればありがたいです。

  • Excelのシートコピー時の名前の不具合?

    いつもお世話になっています。 Excel2003で、シートをコピー後、名前の変更を行うと、名前の前に、...xls]がつくようになってしまいました。 コピー元シート名 A 名前をBに変更すると、 コピー先シート名 ...xls]B あわせて、コピー先のシートの動きが鈍くなっています。 よろしくお願いします。

  • EXCEL シート名の保護

    EXCEL シート名の保護 雛形となるワークシートを毎月コピーして使っているのですが、よくコピーを忘れて、気がついたら雛形シートに書き込んでしまっているミスが多発しています。 コピーした月毎のシートは、その後シート名をその月にし、マクロを実行するとその月の日付など細かな書式の変更が行われます。 マクロは、シート名がその月になっていないとエラーが出ます。にも関わらず雛形が書き換えられるということは、このミスを犯した人は、シートのコピーは忘れたけれどもシート名の書き換えは忘れなかったということです。(だったら、自分が書き換えようとしているシートの名前を見て気づけよ・・・) そこで、雛形シートのみ、シート名が書き換えられないようにすることは出来るでしょうか? とりあえず、   「ツール」→「保護」→「シートの保護」 を試みたのですが、保護項目を全てチェックしても、シート名の保護は出来ませんでした。 よろしくお願いします。

  • Excel95のシート名の最大文字数に関して

    はじめまして、アクアと申します。 現在、Win98 + Excel95を使って簡単なマクロを作っています。 シートをコピーして、別CSVファイル中の文字列をコピーしたシート名に置き換えるという処理をしていますが、シート名が長い場合(例えば、ああああああああああいいいいいいいい)、 システムエラーコード:1005 エラーメッセージ:シート名が正しくありません と言う、エラーがでてしまい、シートを作成することができません。 Excel95には、シート名の最大文字数等の制約があるのでしょうか? ちなみに、上記マクロをExcel2000で実行した場合は何の問題も無くできました。 以上、よろしくご教授下さい。

  • Excelのシート名変更について

    いつもお世話になっています。 エクセルにおいて、シート名を自動変更することは可能でしょうか? 現在、1ファイルにシートを100枚用意してあります。 それぞれのシートに「1」~「100」という名前を付けてあります。 このファイルをコピーして、新しいファイルのシート名を「101」~「200」としたいのです。 現在は、一枚ずつ手入力をしていますが、後10ファイル以上(1000シート以上)あり、また今後も発生するためできるだけ簡単に変えられる方法を探しています。 このOKWave内を検索し、欲しい内容に近い回答がありましたので、下記のようなマクロを作成してみましたが、「インデックスが正しくありません」というエラーが出てしまいました。 マクロについては、全く知識がないので、ぜひご教授のほどよろしくお願いいたします。 Sub Macro1() For counter = 101 To 200 Sheets(counter).Select ActiveSheet.Name = CStr(counter) Sheets(counter + 1).Select Next End Sub

  • エクセルシート名の変更

    OSがVISTAでExcel2007を使っています。 Sheet名を1月~12月に変更したとき、7月のみ変更出来ず名前重複 エラーになります。7-1月にするとOKで、重複するSheetはありません。 フォントがメイリョウのせいでしょうか? どなたかこういう経験はないでしょうか、お教え下さい。

  • エクセルのシート名をセルにコピーさせたい

    エクセルのシートをそのままコピーしてページ数を増やして新たなシートを作っています。たとえば「Aさん」のシートをコピーして「Bさん」のシートを新しく作るんですが、現在はその作業ごとにシート名の変更とシート内のセルにある名前を変更しています。それは1箇所だけですませてますが、シートの名前を変更するだけで、同時にセル内のデータも一緒に変更できる方法はないのでしょうか?よろしくお願いします。

  • Excelで参照するシート名を計算で求めることは可能ですか?

    前置き 本当は邪道だと思うのですが・・・・。 Excelでとある見積書を部品ごとにシートを分けて作成しており、 そのシートは80シートにも及びます。 この見積書の合計部分のみを集めた、統括表の様なシートを別途作成 してその表に80シートの合計部分のみを自動参照(リンク)させて計算 したいのですが、計算式をコピーしてもセル参照は変わってもシート名だけは 変わってくれず、ひとつひとつシート名を手修正している次第です。 ファイルはたくさんあるのでこのままでは、日が暮れてしまいそうで 困り果てております。 シート名の部分をこのセルの値を参照するというように計算で求めることは 可能でしょうか?教えてください。

  • エクセルでシートを追加するマクロについて

    マクロ初心者ですよろしくお願いします エクセルでシート1は名前などの入力用、シート2はフォーム用として作成しております シート1のA1から最大でA20(変動あり)に名前を入力すると名前の数だけシート2のコピーが追加され、シート名も入力した名前に変更する場合のマクロはどうすれば良いのでしょうか? またシート2のB1にも入力した名前を表示させたいです ご教授お願いいたします

専門家に質問してみよう