[[20240421124932]]　『一つのセル変更から複数セル・複数シート名へ反映』（Frontier）　ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) |

| 全文検索 | 過去ログ ]

『一つのセル変更から複数セル・複数シート名へ反映』（Frontier）

よろしくお願いします。

シート１のＡ１に日付（例）2024年4月26日と入力すると、

シート１の名前が「2024年4月26日」と変更し

シート２のＡ１に１日後の日付（例）2024年4月27日　シート２の名前同様表示

シート３に２日後の4月28日、シート４に３日後の4月29日…

以下　
～シート１００同様に反映させたいです。

教えていただけると助かります。
よろしくお願いします。

＜使用 Excel：Excel2021、使用 OS：Windows11 ＞

こんな感じで
MsgBox Format(Range("A1").Value + 1, "yyyy年mm月dd日")
シート名に反映させていけばいいんじゃないですか
一応教えました
（シート名） 2024/04/21(日) 13:26:26

 一番左のシートのA1に入力して、順に右のシートの名前変更、A1に入力としていくとする
 A1セルのセル書式はユーザー定義 yyyy"年"m"月"d"日"

    Dim dt As Date, i As Long
    dt = Worksheets(1).Range("A1").Value
    Worksheets(1).Name = Format(dt, "yyyy年m月d日")
    For i = 2 To Worksheets.Count
        dt = dt + 1
        With Worksheets(i).Range("A1")
            .Value = dt
            .NumberFormatLocal = "yyyy年m月d日"
        End With
        Worksheets(i).Name = Format(dt, "yyyy年m月d日")
    Next

（hatena） 2024/04/21(日) 15:11:20

助かりました！
ありがとうございました。
（Frontier） 2024/04/21(日) 17:41:06

コメント返信：

[ 一覧(最新更新順) ]

[[20240421124932]] 『一つのセル変更から複数セル・複数シート名へ反映』（Frontier） ページの最後に飛ぶ

[[20240421124932]]　『一つのセル変更から複数セル・複数シート名へ反映』（Frontier）　ページの最後に飛ぶ