急いでいます！

VBA＊セルに値があればシート名に反映

締切済

質問者：Kubotaさん
質問日時：2023/02/21 14:52
回答数：2件

VBA初心者の初心者です。
見よう見真似で作成しています。
以下のVBAに足したいことがあり質問させていただきます。

セルに値があればシート名に反映するように設定しています。
シート1を集計用にしているのですが塗り替えられてしまって困っています。
シート1は除外で…という構文を足したいのですが思いつきません。
助けてください…(>_<)

Sub test()
Dim i As Long
For i = 1 To Worksheets.Count
Worksheets(i).Name = i & Worksheets(i).Cells(1, 1).Value
Next i
End Sub

通報する

この質問は特に女性の方に
リクエストされています！
(回答を制限するものではありません。)

この質問への回答は締め切られました。

質問の本文を隠す

回答 (2件)

最新から表示
回答順に表示

No.2

回答者： Qchan1962
回答日時：2023/02/22 15:50

＞シート1は除外で…という構文を足したいのですが思いつきません

Sub test()
Dim i As Long
For i = 1 To Worksheets.Count
If Worksheets(i).Name <> "シート1" Then Worksheets(i).Name = i & Worksheets(i).Cells(1, 1).Value
Next i
End Sub

- 0
- 件

通報する

No.1

回答者： tatsumaru77
回答日時：2023/02/21 15:24

シート１が一番左側にある前提です。

For i = 1 To Worksheets.Count　を
For i = 2 To Worksheets.Count に変えてください。
これで、左から２番目のシートから処理が行われます。

シート１が一番左側にない場合は、
シート１を一番左側に移動してから、上記のように修正したマクロを
実行してください。