ＶＢＡ 日付の期間を表示する方法

質問

• ＶＢＡで日付を入力フォームにセットし、別のブックの表に１ヶ月間分の日付と曜日を貼り付けたい場合の方法を教えてください。
• また、入力フォームの値チェックについても教えてください。
• ＶＢＡで日付の期間を表示する方法について、具体的なコードや手順を教えてください。

回答No.7

pkh4989

Book1がActiveになっていないからですね。
もう１回以下のマクロを全て入替えて、試してみてください。
　　wDate = Replace(Cells(6, "C"), "西暦", "") '←西暦を取る
　　wDate = Format(Cells(6, "C"), "yyyy/mm/dd")
　　↓
　　wDate = Replace(wSh1.Cells(6, "C"), "西暦", "") '←西暦を取る
　　wDate = Format(wSh1.Cells(6, "C"), "yyyy/mm/dd")

Private Sub CommandButton1_Click()
　　Dim wStr　　　　As String
　　Dim wDate　　　 As String
　　Dim wDate2　　　As String
　　Dim Exitflg　　 As Boolean
　　Dim wI　　　　　As Integer
　　Dim wVal　　　　As Variant
　　Dim wSh1　　　　As Worksheet
　　Dim wSh2　　　　As Worksheet
　　'
　　Set wSh1 = Workbooks("Book1.xls").Worksheets("日付セット")　'←実際のブック名とシート名に変更
　　Set wSh2 = Workbooks("Book2.xls").Worksheets("Sheet1")　　　'←実際のブック名とシート名に変更
　　'
　　'UserFormのテキストボックスよりシートのセル(6,"C")へ設定する
　　wSh1.Cells(6, "C") = TextBox1.Text　　'←実際のテキストボックス名称に変更
　　'
　　If wSh1.Range("C6") = "" Then　　 '値が入っているか
　　　　MsgBox "日付を入力してください！"
　　　　Exit Sub
　　End If
　　wDate = Replace(wSh1.Cells(6, "C"), "西暦", "") '←西暦を取る
　　wDate = Format(wSh1.Cells(6, "C"), "yyyy/mm/dd")
　　If Date > wDate Then
　　　　MsgBox "過去の日付入力はできません！"
　　　　Exit Sub
　　End If
　　If DateAdd("yyyy", 1, Date) < wDate Then
　　　　MsgBox "日付を正しく１年以内で日付を設定してください！"
　　　　Exit Sub
　　End If
　　'
　　wVal = Array("日", "月", "火", "水", "木", "金", "土")
　　wDate = wSh1.Cells(6, "C")　　　　　'←入力日付
　　wDate2 = DateAdd("m", 1, wDate)　　 '←入力日付より１ヶ月
　　wI = 0
　　Exitflg = False
　　'入力日付より１ヶ月分の日付と曜日を表示
　　Do While Exitflg = False
　　　　wStr = DateAdd("d", wI, wDate)
　　　　If wStr = wDate2 Then
　　　　　　Exitflg = True
　　　　Else
　　　　　　'日付設定
　　　　　　wSh2.Cells(wI + 1, 2) = Format(wStr, "mm/dd")　　　 '月/日
　　　　　　'曜日設定
　　　　　　wSh2.Cells(wI + 1, 3) = wVal(Weekday(wStr) - 1)
　　　　End If
　　　　wI = wI + 1
　　Loop
End Sub

補足

やはり日付をチェックするところで表までたどりつきません・・・
どうしたらいいのでしょうか？
未来日付でも表に日付を表示してしまったり、１年以内でも過去の日付は入力できませんって出てしまいます。