タイトルのテキスト
タイトルのテキスト
タイトルのテキスト
タイトルのテキスト

エクセルのワークシートの名前を一括変換するマクロを徹底解説【ループ処理:変換】

VBA

t f B! P L

前回の記事では「エクセルマクロの開発環境の作り方」について解説していきました!

この記事では、エクセルでワークシートの名前を一括で変更するマクロについて紹介していきます。

ワークシートの名前って放っておくとすぐにぐちゃぐちゃになってしまいます。

会社で共有のファイルを使っているといろいろな人がシートを追加して最終的にはなにがなにやら・・・

でも、シートの名前を変更していくのって結構めんどくさいです。

なので、そんな時は、シートの名前を一括で変更するマクロをつかっています。

コピペをすればすぐに使えるようにしているので、コピペして使ってみてください。

ワークシート名を一括で変更するVBAコード

 下記がワークシートの名前を変えるコードとなります。 

 Sub シートの名前を変える()

 nam = InputBox("名前")

 For i = 1 To Worksheets.Count

 Sheets(i).Name = nam & (i)

 Next

 End Sub 

使い方について

①シートの名前を考えましょう

 

②コードのコピペ

上記のVBAのコードを標準モジュールに入力します。

「個人用マクロブック」でも、Bookの「標準モジュール」のどちらに書き込んでもらってもOKです。

 ③マクロの実行 

「実行」の「ユーザーフォームの実行」から実行してみましょう。

 

④ファイル名の入力

ファイルの名前を聞いてくるインプットボックスが開きます。

 

例では「品目」と入力しています。

(好きな名前を入力してください。)

 OK」をクリックしましょう。

 ⑤結果の出力

ワークシートの名前が品目になり、番号が振られました。



 VBAコードの解説

VBAコードの解説をしていきます。 

Sub シートの名前を変える()

①マクロの名前です。

 nam = InputBox("名前")

② 名前を決めるインプットボックスを呼び出しています。

 For i = 1 To Worksheets.Count

③ ワークシートカウント関数でワークシートの数を数えて、

 それを変数iに代入しています。

 そして、FORステートメントで繰り返しています。

 Sheets(i).Name = nam & (i)

④ ワークシートの左からの数を変数iに代入した数字が

 入っていきます。

 Namはシートの名前を格納していて、

 アンドで変数iと結合させています。

 Next

forステートメントの最後にNext を付けます。

 End Sub

VBAコードの終わりを意味します。

以上となります。

まとめ

 マクロは「個人用マクロブック」にコピペして作成すると、クイックアクセスツールバーにアイコンを出してつかうことができます。

 キーボードにショートカットとして登録することもできるのですが、たまに使うようなマクロは「クイックアクセスツールバー」にアイコンを出しておくことをおススメします。

エクセルのめんどくさい作業はVBAで自動化しましょう!


koneka1208

koneka1208

自己紹介

自分の写真
エクセル好きの窓際会社員です。 エクセルの操作法や日々の会社で得た知見などを発信していきます。 よろしくお願いします。

ブログ アーカイブ

連絡フォーム

名前

メール *

メッセージ *

QooQ