VBA超ビギナーです。
ネットで調べて、「すべてのシート名を日付に変更する」まではできたのですが、「特定のシート(シート名「シート名変更」)を除外してシート名を変更する」にするにはどこをどう変更すればいいのかわかりません。
以下は現在組んでいるコードです。
どのように変更すればよいでしょうか?
Sub シート名一括で変える()
Dim Ws As Worksheet
Dim D As Date
'最初の日付
D = Range("D3").Value
'全シートをループ
For Each Ws In Worksheets
'シート名を変更する
Ws.Name = Format(D, "m.d(aaa)")
'日数にプラス1をする
D = D + 1
Next Ws
End Sub
No.2ベストアンサー
- 回答日時:
←←←追加と書いて有る2行を追加するだけ。
'全シートをループ
For Each Ws In Worksheets
'シート名を変更する
IF Ws.Name <> "シート名変更" Then ←←←追加
Ws.Name = Format(D, "m.d(aaa)")
'日数にプラス1をする
D = D + 1
EndIf ←←←追加
Next Ws
No.1
- 回答日時:
'シート名を変更する
If Ws.Name <> "シート名変更" Then
Ws.Name = Format(D, "m.d(aaa)")
'日数にプラス1をする※この処理も除外したければここに入れる。
D = D + 1
End If
のように「シート名が"シート名変更"でなければ」という条件を付ければいいのですよ。
参考に!
If~End Ifによる条件分岐について
https://officevba.info/ifendif/
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) コード名シートA列と集計シートA列のコードが一致したら、コード名シートA5からk12の範囲をコピーし 1 2022/08/29 23:46
- Visual Basic(VBA) シート削除のマクロで「deleteメソッドは失敗しました」となります。助けてください! Sub 不要 6 2022/09/08 16:41
- Excel(エクセル) エクセルシート中の全角英数字を半角に変換したい 4 2022/07/07 13:14
- Visual Basic(VBA) chatGPTで質問してみた エクセルのVBAについて 2 2023/10/24 07:37
- Visual Basic(VBA) 複数シート一括作成後に、特定範囲の数式は値で貼り付けしたい 3 2022/10/07 11:18
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Excel(エクセル) vba シート名の一覧を2列に分けるには 5 2023/04/24 08:56
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- PowerPoint(パワーポイント) エクセルのマクロについて教えてください。 1 2022/03/25 17:03
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
このQ&Aを見た人はこんなQ&Aも見ています
-
賃貸で可能な古民家風レトロな部屋作りのコツ!改めて知る畳の高い機能性と魅力も紹介
畳の部屋を雰囲気のよい部屋に仕上げたい!賃貸住宅でもできる古民家風のレトロな部屋作りのコツを伺った。
-
Cellsのコードが打てません
Visual Basic(VBA)
-
VBA実行後に元のセルに戻りたい
Visual Basic(VBA)
-
VBA 二つのブックをうまく扱えないでいます
Visual Basic(VBA)
-
-
4
excelのVBAで画像の動作をさせるため、プログラムを教えてください。
Visual Basic(VBA)
-
5
エクセルVBAでデータ転記
Visual Basic(VBA)
-
6
引数に数値、文字列の混在
Visual Basic(VBA)
-
7
VBA ファイル名取得
Visual Basic(VBA)
-
8
VBAのコードを教えてください
Visual Basic(VBA)
-
9
以下のコードを実行しても、オブジェクト変数または、withブロック変数が設定されていませんとエラーが
Visual Basic(VBA)
-
10
ExcelVBA シート名を複数セルから取得して変更
Visual Basic(VBA)
-
11
【マクロ】転記ツール。転記先にデータがある場合、上書きするか消すか質問をして欲しい
Excel(エクセル)
-
12
ユーザーフォームに別シートからデータを反映させたい。
Visual Basic(VBA)
-
13
VBAに関して
Visual Basic(VBA)
-
14
【マクロ】for nextステートメントがわかりません。例あり。
Excel(エクセル)
-
15
VBA コード
Visual Basic(VBA)
-
16
お世話になります。 Excel VBAのプログラムについてご教授をお願いいたします。 添付した写真よ
Visual Basic(VBA)
-
17
ExcelのVBAのことで質問です。 以下のコードを入れ、ボタンを押せば作動させると写真のように画面
Visual Basic(VBA)
-
18
excelのVBAについて、以下のコードに追加をお願いいたします。
Visual Basic(VBA)
-
19
VBAコードが作動しません。修正したいのですが何処に原因かあるか教えて下さい。
Visual Basic(VBA)
-
20
マクロについて教えてください。 下記のマクロは以前教えて頂いたマクロです。 マクロを実行すると 指定
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
特定の文字を含むシートだけマ...
-
別のシートから値を取得するとき
-
同じ作業を複数のシートに実行...
-
XL:BeforeDoubleClickが動かない
-
excelのマクロで該当処理できな...
-
ユーザーフォームに入力したデ...
-
シートが保護されている状態で...
-
ブック名、シート名を他のモジ...
-
実行時エラー1004「Select メソ...
-
VBA 存在しないシートを選...
-
API関数ImmSetConversionStatus...
-
【ExcelVBA】全シートのセルの...
-
IFステートの中にWithステート...
-
マクロを使って、シート印刷完...
-
エクセル・マクロ シートの非...
-
Excelマクロのエラーを解決した...
-
ExcelのVBAのマクロで他のシー...
-
実行時エラー'1004': WorkSheet...
-
【VBA】特定の文字で改行(次の...
-
エクセルのシート名変更で重複...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
別のシートから値を取得するとき
-
VBAで大量のファイルをシート名...
-
ユーザーフォームに入力したデ...
-
excelのマクロで該当処理できな...
-
【ExcelVBA】全シートのセルの...
-
同じ作業を複数のシートに実行...
-
VBA 存在しないシートを選...
-
Excelマクロのエラーを解決した...
-
特定の文字を含むシートだけマ...
-
実行時エラー'1004': WorkSheet...
-
XL:BeforeDoubleClickが動かない
-
シートが保護されている状態で...
-
実行時エラー1004「Select メソ...
-
【Excel VBA】Worksheets().Act...
-
ブック名、シート名を他のモジ...
-
エクセルのシート名変更で重複...
-
ExcelのVBAのマクロで他のシー...
-
Excel VBA 複数行を数の分だけ...
-
エクセルのマクロについて教え...
-
VBA 最終行まで数式をコピーする
おすすめ情報