カレンダー

投稿者 : パロぷんて     投稿日時 : 2022/06/24(Fri) 07:32:58     OS : Windows 10     EXCEL : Excel 2019

---

すいません！助けてください！
①a2セルに開始日、b2セルに終了日を入力し。 7/1〜8/31と入力
②a5セルから行方向に①で指定した期間の月日を表示したいのです。 7/1、7/2.....8/31と表示
③a6セルに②で表示された月日の、その年の曜日が表示。7/1は月曜、7/2は火曜.....と表示

いろいろ頑張ってみたのですがうまくいきません(＞人＜;)
どなたか助けてください！お願いしますm(_ _)m

投稿者 : さんこう     投稿日時 : 2022/06/24(Fri) 07:58:55

---

数式でできるでしょう。

投稿者 : hatena     投稿日時 : 2022/06/24(Fri) 09:09:34

---

A5セル　=A2

B5セル　=IFERROR(IF(A5+1>$C$2,"",A5+1),"")
右に必要なだけコピー

A6セル　=LEFT(TEXT(B5,"aaaa"),2)
右に必要なだけコピー

投稿者 : てらてら     投稿日時 : 2022/06/24(Fri) 10:05:37

---

こんにちは。

私が良くやるのは、書式設定と数式ですね。

A5を　"=A2"
B5を　"=A5+1" としてこのセルの右下の点を右にドラッグして数式を反映させます。
セルの書式設定で、ユーザー定義から"m/d"とします。

同じように、A6を"=A5"として、右にずりっと書式反映。
セルの書式設定は、ユーザー定義から"aaa"で曜日になります。


VBAでやりたいなら、言ってください。

投稿者 : さんこう     投稿日時 : 2022/06/24(Fri) 13:16:17

---

数式の方が楽ですね。

Sub Test1()
    Dim s As String, r As Long, d As Variant
    
    s = ""
    r = 5
    For d = Range("A2") To Range("B2")
        With Cells(r, "A")
            .Value = d
            .NumberFormatLocal = "m/d"
        End With
        s = s & Cells(r, "A").Text & "は" & Format(Cells(r, "A"), "aaa") & "曜、"
        r = r + 1
    Next
    Range("A6") = Left(s, Len(s) - 1)
End Sub