Excel VBA質問箱 IV

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

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


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

19233 / 76732

←次へ　｜　前へ→


	【62935】Re:日付の再計算

slipknot - 09/9/23(水) 22:30 -


	引用なし

	パスワード

ご回答有難うございます。

下手に文字列の検索をする必要が無かったんですね（汗）
マクロ初心者なもので無駄に変数とかを定めて混乱していました。
まさか２つの変数で済んでしまうとは・・・

早速明日にでも仕事用に応用してみます。

kanabunさん本当に有難うございました。

▼kanabun さん：
>↑コードにするとこんな感じです。
>　 ↓
>
>'（A列に元の締切日、B列に土日を繰り上げ補正後の締切日）
>Sub 補正締切日()
>　Dim c As Range
>　Dim 締切日 As Date
>　
>　For Each c In Range("A2", Cells(Rows.Count, 1).End(xlUp))
>　　　If IsDate(c.Value) Then
>　　　　　締切日 = c.Value
>　　　　　Do Until Weekday(締切日, vbMonday) < 6
>　　　　　　　締切日 = 締切日 - 1
>　　　　　Loop
>　　　　　c(1, 2).Value = 締切日
>　　　End If
>　Next
>End Sub
>
>　A　　　　B
>締切日　　　　補正締切日
>2009-9-30(水)　　　　2009-9-30(水)
>2009-10-2(金)　　　　2009-10-2(金)
>2009-10-4(日)　　　　2009-10-2(金)
>2009-10-6(火)　　　　2009-10-6(火)
>2009-10-8(木)　　　　2009-10-8(木)
>2009-10-10(土)　　　　2009-10-9(金)
>2009-10-12(月)　　　　2009-10-12(月)
>2009-10-14(水)　　　　2009-10-14(水)
>2009-10-16(金)　　　　2009-10-16(金)
>2009-10-18(日)　　　　2009-10-16(金)

2 hits

▼

【62932】日付の再計算 slipknot 09/9/23(水) 10:00