Dateadd関数を使った場合で

質問

VBAでちょっと悩んでいることがあるので教えて下さい。大学の研究データの処理でイレギュラーがあるのでうまくやりたいのですがお願いします。

とある実験結果をエクセルで保存しているのですがデータが「超大量」のため効率的に処理したいのですが・・・
まず基本的に実験したら５日後にデータを回収しています。データを入力するに当たって一部自動化したいことが念頭にあります。データ処理の例として：
・A1セルからG1セルまで研究データ処理開始日の日付「2008/3/1～7」が既存で入ってます。
・A3セルからG3セルまでは5日後の日付が入るようにしたいです。
・基本は5日で終わるのですが中には前後２，３日くらいずれるものがあります。その結果が肝心なのでしっかり記録したいのです。
・A2セルからG3セルは研究処理失敗記録用です。

例えば＊2008/3/1に始め2008/3/6に終わるところエラーが出たのでF2セルへはイレギュラーの「E」かチェッカーボックス（なんか横に文字が入るから好きじゃないけど）を入れます。
そうするとA3セルでは2008/3/7が出るようにしたいのですが分岐がうまくわかりません・・・・
あとソースを下記に書きましたが日付の横に曜日がうまくつきません 確かこういうweekday関数で大丈夫と思ったはずですが何故か？？？申し訳ありませんがどんな方法をとればいいかわかりません。ご指導よろしくお願いします。

Dim vntEnd As Variant
Dim vnt5days As Variant
Dim vntWeekday As Variant

’もし5日後のセルの下にEが入っていれば日付を一日ずらす？？
’こんな方法なんかとも思いますが・・・
vntEnd = 5
vnt5days = DateAdd("d", vntEnd, Range("A1"))
vntWeekday = WeekDay(vnt5days)

Range("A3") = vnt5days & vntWeekday

回答No.1

noname#79209 · ベストアンサー

何だかVBAを使うようなものではなさそうですね。
曜日を出したければ、セルの表示書式を「yyyy/mm/dd"("aaa"}"」とすれば、
「2008/3/1」なら、「2008/03/01(土)」と表示出来ますし、
A列～G列の3行目に、A列～G列の1行の5日後を出したいなら
=A1+5
として、横コピーですみます。
何か難しく考えすぎていませんか？
それともわたしの理解の仕方が違っているのかも。。。

とにかく説明がイマイチ理解できませんし、セル番地のタイプミスもあるようですし。。。
質問者さんには自明の事柄でも、回答者にとっては、質問さんの表現、文言が唯一のヒントなのです。