おっしゃる通り、ラベル1に日付が記入されると同時にラベル3に結果を表示するようにコードを変更することができます。 ```vbaPrivate Sub Label1_Change() Dim inputDate As Date Dim outputDate As Date ' 入力された日付を取得 inputDate = CDate(Me.Label…