日付フリー 曜日フリー 書き込み式カレンダー ちびむすカレンダー カレンダーの中央にある日付ボタンを押すと、その日付を対象のセル(TargetRange)に出力します。 コードはこんな感じになっています。 Private Sub OutputDate (ByVal day As String) If day = "" Then Exit Sub End If TargetRangevalue = DateSerial(lblYearCaption, lblMonthCaption, day) MeHide End Sub Private Sub lblDay1_Click () 「カレンダーから日付入力」が検索されますので、「追加」をクリックします。 ③確認入力 確認画面が表示されますので、「続行」をクリックします。 アドインの表示 アドインが追加され、カレンダーが表示されました。 アドインの使い方 アドインの表示・非表示 アドイン「カレン 日付カレンダー テンプレート