Excel VBA 質問スレッド No.827 (未解決)

カレンダー

投稿者 : パロぷんて     投稿日時 : 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

[返信 1] Re : カレンダー
投稿者 : さんこう     投稿日時 : 2022/06/24(Fri) 07:58:55
数式でできるでしょう。

[返信 2] Re : カレンダー
投稿者 : 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)
右に必要なだけコピー

[返信 3] Re : カレンダー
投稿者 : てらてら     投稿日時 : 2022/06/24(Fri) 10:05:37
こんにちは。

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

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

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


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

[返信 4] Re : カレンダー
投稿者 : さんこう     投稿日時 : 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

当掲示板について
返信入力フォーム
お 名 前  :
内  容   :
ステータス  : この質問を解決済みにする

認証コード  :
        キャプチャ画像


( 処理日時 : 2022-07-07 14:18:49 )

Page
Top