エクセル VBA 日付入力？

質問

エクセル　２０００のVBAにて簡単な
日程表を作成しています。
フォームの
テキストボックス１に　１０/８　を入力したら
テキストボックス２には　１０/１５　～
テキストボックス１５には　１/２１　が自動で
入力されるようにするには、どのようにすればよろしいでしょうか？

回答No.2

hana-hana3 · ベストアンサー

Format(Date ,"mm/dd")
のように、Format関数で書式を変更できます。

TextBox2.Value = Format(DateAdd("d", 7, TextBox1.Value) ,"mm/dd")

お礼

重ね重ね本当にすみません。
思うように出来ました。
お手数をかけてすみません。

回答No.1

hana-hana3

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
If IsDate(TextBox1.Value) Then
TextBox2.Value = DateAdd("d", 7, TextBox1.Value)
TextBox3.Value = DateAdd("d", 14, TextBox1.Value)
Else
Cancel = True
End If
End Sub

補足

出来ました。ありがとうございます。
補足質問ですが
すみません、２００７/１０/１５を１０/１５と
表示するにはどのようにすればよろしいでしょうか？