No.6ベストアンサー
- 回答日時:
#4です。
お礼の中に記された>各シートの同じセルにあるデータをそのシートの名前にしたいんです。
この方が簡単です。
Sub test01()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
' MsgBox ws.Name
' MsgBox ws.Range("a1")
ws.Name = ws.Range("a1")
Next
End Sub
で出来ました。
No.5
- 回答日時:
#3です。
回答ではありません。
>1ブックに許されるシート数には制限があります。
ちなみにExcelの仕様を調べてみましたら、
ブックのシート:
使用可能メモリに依存 (既定では 3)
だそうです。
ただあまりひとつのブックに大量のシートを作ると、
ファイルが巨大になったり、
ふとした拍子にファイルが壊れそうで、精神衛生上あまり良くないですね。^^
たびたびありがとうございます。
Accessですか!
実はPCに入ってないんですよ。
でも確かにそっちの方が良さそうですね。
それと、現在のシート数は120くらいなんですが、今のところストレスなく動いてますよ。
でも多すぎるんでしょうか?
No.4
- 回答日時:
VBAで簡単です。
(テストデータ)A1:A3
山田三郎
野田和郎
川野寛
(プログラム)
Sub test03()
For i = 1 To 3
Worksheets.Add.Name = Worksheets("sheet4").Cells(i, "A")
Next i
End Sub
(1)判りやすくするため3人分にしてテストしました。社員名をSheet4のA1:AXまでに漢字で入れてください。123
人であれば、For i = 1 To 123とします。
(2)名前をA列に入れたから、"A"となっています。
D列に入れたら"D"に変えてください。
(3)1ブックに許されるシート数には制限があります。
いくらだったか忘れました。
(4)VBAは、ALTキーを押しつつ、F11キーを押す。VBE画面が出たところで
(5)ALTキーを押しつつI(挿入)次いでM(標準モジュール)出てきた画面に上記を貼りつける。
F5(実行)キーを押す。
同姓同名は困ります。なにか区別する方法を考えること。
詳しい説明をありがとうございます。
でも、やりたいこととちょっと違うみたいなんです。
1列にあるデータを取り込みたいのではなく、各シートの同じセルにあるデータをそのシートの名前にしたいんです。
でも、この方法も別のことには使えますね。
ありがとうございました。
No.3
- 回答日時:
こんにちは。
個人別異動履歴の個人ごとのシートは、もう出来上がっているものでしょうか。
すでに出来上がっているシート名を、
マクロで一括して変更したいならば、
#1,#2さんの処理をさらに
For Each ~ Next でくくって、
全シートをいっぺんに変更する処理が必要ですね。
この場合、事前にシート名が重複しないかチェックしたり、
変更処理中にシート名のダブりが発生しないか、
入念にチェックする必要があるでしょうね。
これはどちらかというとアドバイスですが、
EXCELより、Accessが得意とする分野のような気がしますね。
No.1
- 回答日時:
こんにちは、ats8181oyajiです
結論から。。。できます。
ActiveSheet.Nameというのを使います。
実際に私がVisualBasicEditorでテストをした
関数を以下にのせておきます。
Sub test()
MsgBox "アクティブ シート名: " & ActiveSheet.Name
ActiveSheet.Name = "test1"
MsgBox "アクティブ シート名: " & ActiveSheet.Name
End Sub
この例の"test1"を指定セルにしてあげれば
よろしいかと思います。
では。
ありがとうございます。
さっそくやってみたいんですが、ちょっとトラブルがあってすぐにできません。
あとでこれを参考にやってみますね。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ExcelのVBAを使い、複数シートの同一箇所を、同一条件にて一括でソルバーを回す方法について 1 2022/04/23 11:49
- Visual Basic(VBA) エクセルのマクロで対象ごとにシート分けしてその内容をセルに書き込みたい 9 2022/08/24 13:23
- Excel(エクセル) 同じExcelのBOOK内で 1枚目のシートのA1のセルにデータを 入れると2枚目のシートのC1のセ 1 2022/10/25 09:40
- Visual Basic(VBA) Excel VBA 最終行を取得しVlookup関数をコピーする方法をコーディングで教えてください。 3 2023/05/11 13:14
- Excel(エクセル) excelで検索した商品の画像(ネットワーク上の)を表示させたい。 3 2023/06/28 00:32
- Excel(エクセル) Excelのマクロについて教えてください。 4 2022/05/31 14:07
- Excel(エクセル) エクセルで”入力シート”の文字書式の変更を”出力シート”で同じ文字書式で印刷したいです。VBA希望 4 2023/04/24 11:07
- Excel(エクセル) 【Excel関数】値が合致するセルの隣のセルを表示させたい 8 2022/10/12 17:44
- Excel(エクセル) エクセル バーコード作成で他のシートを参照するには? 2 2023/05/03 16:57
- Visual Basic(VBA) 【VBA】Excelで罫線を引きたい 3 2022/07/14 12:04
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCEL:同じセルへどんどん足し...
-
Excelで同じシートのコピーを一...
-
エクセルで前のシートを連続参...
-
EXCELで1ヶ月分の連続した日付...
-
Accessのスプレッドシートエク...
-
別シート参照のセルをシート毎...
-
日報をエクセルで作成したいの...
-
VBAでシートコピー後、シート名...
-
VBAでシート1のデータを他シー...
-
【Excel マクロ】 同一book内で...
-
エクセルVBA 串刺し計算の際、...
-
シートを配列にいれることはで...
-
特定のシートの削除を禁止した...
-
VBA セルの値と同じ名前のシー...
-
EXCELで参照シート名含む計算式...
-
一太郎で複数シートの一括置換
-
【エクセルVBA】「インデックス...
-
②Excel 簡単にシートコピーした...
-
エクセルで最下行にデータを追...
-
前の(左隣の)シートを連続参...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelで同じシートのコピーを一...
-
エクセルの複数シートの保護を...
-
エクセルVBAでパスの¥マークに...
-
前の(左隣の)シートを連続参...
-
Excelで金銭出納帳。繰越残高を...
-
EXCEL:同じセルへどんどん足し...
-
EXCELで1ヶ月分の連続した日付...
-
シートの保護のあとセルの列、...
-
別シート参照のセルをシート毎...
-
エクセルでファイルを開いたと...
-
EXCELで同一フォーマットのシー...
-
エクセルで前のシートを連続参...
-
エクセルで前シートを参照して...
-
VBAでシートコピー後、シート名...
-
Accessのスプレッドシートエク...
-
エクセルのシート名をリスト化...
-
複数シートの特定の位置に連番...
-
Excelのシートを、まとめて表示...
-
エクセル 計算式も入っていない...
-
スプレッドシートの関数VLOOKUP...
おすすめ情報