Ｅｘｃｅｌのシート名変更について

質問

こんにちわ。
Ｅｘｃｅｌ（２００３）のシート名変更について質問なのですが、
シート名変更のやり方はわかるのですが、
ひとつずつダブルクリックして反転させて消して入力。という方法で
やっているとたくさんのシートを変更するときに大変時間がかかってしまいます。
何か良い方法などがございましたら、お教えお願いいたします。
よろしくお願いいたします。

回答No.4

imogasi · ベストアンサー

VBAができなければ、それ以外で良い方法は無いよ。
VBAを勉強すること。エクセルは繰り返してやればできるが、それが面倒くさい、という操作は沢山あるが、こういうのにVBAは威力を発揮する。
ーー
一例
シートの数が４つとする。
Sheet1のA1:A4に
xxx
asdf
dfgh
jrty
と変更後のシート名を入れておく。
（名前の付け方にルール性があるときはVBAコードが別途になる。）
上記セルの上からの順とシートタブ名の対応は、シートタブの左からの順番になるので、そのつもりで。
下記をVBEの標準モジュールに貼り付けて実行する。
Sub test02()
For i = 1 To 4
Sheets(i).Name = Range("A" & i)
Next i
End Sub
たった３行で済む。
無理に初心者向けに簡略化してあるのでそのつもりで。
シートの一部しか変えたくなければ、変えたいシートを最左からに移動しておくこと。
この左へ集める操作も多くなると大変だが、CTRLを押して移動対象シートタブをクリクして、最左にMoveすると一度で動くようだから少し助かる。

お礼

ありがとうございます！
やはりVBAが出てくるのですね。。
VBAは難しいですが、勉強する機会ができました。
ご丁寧なご説明ありがとうございます。早速頑張りたいと思います。

回答No.3

noname#65902

基本的手順は一緒で、少しだけ省力化できる方法...

1. 新規ブックを開き、新シート名を必要数セルに入力し、並べておきます。
　　連番ならオートフィルが便利です。
　　(Excel ウィンドウ内に、両方のファイルが見えるように並べてください)

2. 必要な新シート名を選択(黒いワクが出る状態でOK)し、<Ctrl>+C でコピー。
　　(ここではバッファにコピーするだけ)

3. 旧シート名を反転状態に。

4. <Ctrl>+V で貼り付け。

これを必要回数行います。

お礼

ありがとうございます！
コピー貼り付け方法ですか！？
ご丁寧なご説明ありがとうございます。
頑張ってみます！！

回答No.2

DIooggooID

ANo.1 様が　マクロで処理する方法について書かれていらっしゃいます。

私の方法もマクロです。
このマクロは、アクティブになっているシートから右方向に順番に、シート名を設定するようにしてみました。

Sub Macro1()
page = ActiveSheet.Index
Sheets(page).Name = "sheet_A"
Sheets(page + 1).Name = "sheet_B"
Sheets(page + 2).Name = "sheet_C"
End Sub

お礼

ありがとうございます！
やはりマクロが出てくるのですね。。
ご丁寧なご説明ありがとうございます。早速頑張ってみます。

回答No.1

mu2011

一例です。（ＶＢＡです）
（１）Alt+F11
（２）挿入→標準モジュール
（３）コードウィンドウに以下を入力
　　Sub シート名を変更する()
　　　Worksheets("Sheet1").Name = "あ"
　　　Worksheets("Sheet2").Name = "い"
　　　Worksheets("Sheet3").Name = "う"
　　※以降、シート分同様に定義する
　　End Sub
（４）Alt+F4
（５）ツール→マクロ→マクロ
（６）マクロ シート名を変更するを選択→実行

お礼

ありがとうございます！
やはりマクロが出てくるのですね。。
ご丁寧な説明ありがとうございます。早速頑張りたいと思います。