Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

26229 / 76732

←次へ　｜　前へ→


	【55835】曜日形式の認識について

YOU - 08/5/20(火) 19:55 -


	引用なし

	パスワード

今現在、指定した日付の間をAUTOFILLで複写させて、終了する日付を検出したらループを抜け出すマクロを作ってるのですが、終了する日付を検出できず困っています。もう少しの所だと思うのですが、以下のマクロに手を加えていただけないでしょうか？

Sub タイム()
Dim NEN1, TUKI1, HI1, KAISI As Variant
Dim NEN2, TUKI2, HI2　As Variant
Dim OWARI As Date

NEN1 = Range("B5").Value　’開始年
TUKI1 = Range("B6").Value　’開始月
HI1 = Range("B7").Value　’開始日
KAISI = NEN1 & "/" & TUKI1 & "/" & HI1

NEN2 = Range("B5").Value　’終了年
TUKI2 = Range("B6").Value　’終了月
HI2 = Range("B7").Value　’終了日
OWARI = NEN2 & "/" & TUKI2 & "/" & HI2

Range("C10") = KAISI　'開始日付の指定
For A = 10 To 40
Cells(A, 3).AutoFill Destination:=Range(Cells(A, 3), Cells(A + 1, 3)), Type:=xlFillDefault '複写
If Cells(A + 1, 3) = OWARI Then　’←※ここの判定が検出してくれません。
Exit For
End If

End Sub

0 hits

▼

【55835】曜日形式の認識について YOU 08/5/20(火) 19:55

≪