離れているセルに曜日を連続で自動入力する方法

以前にも似た質問をしましたが出来なかったので再度質問します。エクセル２０００３です。Ｆ４のセルに水、Ｆ３７のセルに木、Ｆ７０のセルに金とそれを３ヶ月ぐらい続けたいのです。自動的に曜日を入力するにはどうしたらよいですか？よろしくお願いします。

No.2 回答者： hana-hana3 回答日時： 2005/02/04 13:00

自動でやるならＶＢＡを使うしかありません。

Sub test()

'Ｆ４のセルに水、Ｆ３７のセルに木、Ｆ７０のセルに金とそれを３ヶ月
Dim i As Long
Dim c As Integer
Dim Str As Variant

Str = Array("水", "木", "金")
c = 0

'下記の４００の値を変更し、必要な行まで記入してください。
For i = 4 To 400 Step 33

Range("F" & i) = Str(c)

If c = 2 Then
c = 0
Else
c = c + 1
End If
Next

End Sub

No.1 ベストアンサー 回答者： papayuka 回答日時： 2005/02/04 12:48

意図するところが分かりません。

曜日と言うのが、文字で「水」と入れたいのか？
自動でとはどのようなイメージなのか？
３ヶ月続けたいとは、最終的にどういう結果になる事なのか？

　F4 に 2005/2/2
　F37に =F4+1
　F70に =F37+1

と入れて、それらのセルを書式設定－ユーザー定義で種類を　aaa にすると、F4を変えるだけで曜日が変わりますが、、、

この回答へのお礼

いえいえpapayukaさんの回答で出来ました。ありがとうございました。

お礼日時：2005/02/04 13:14