質問: d end if end sub 色々ネットで検索したのですが、どの部分のプログラムを使えばいいのか 検討もつきません。 宜しくお願い致します。
回答: no.3です。 cdate関数を使ってみました。 前回のコードよし少し簡単にできます。 ↓に変更してみてください。 private sub commandbutton1_click() dim mydate as date with 実行日 mydate = cdate(format(.value, "0000/00/00")) .value = mydate end with 有効期日 = dateadd("yyyy", val(有効期日周期), mydate) end sub これでも前回と同じ動きになると思います。m(_ _)m