カレンダーの日にちをダブルクリックするとL1に反映されて赤色に背景が変わる（条件付き書式）
それに伴いN1には42日前（＝L1-41）、N2には（P1-1）、P1には35日前（＝L1-34）、P2には（L1-1）としてあります。カレンダーのN1とN2の期間の文字色を黄色に、P1とP2の期間の文字色を緑色に変更したいのですがうまくいきません。条件付き書式を使用せず行いたいのですが。あまり詳しい知識がありませんのでわかりやすくここにこれを入れる、ここをこのように変えるという感じで教えていただけると助かります。わがままを言いますがどうぞよろしくお願いいたします。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Sheets("カレンダー").Range("l1").Value = Target.Value
Range("l1").Select
End Sub
With Target
Sub RGB関数()
Range("C2;I75").Value = Range("N1;N2")
Range("C2;I75").Font.Color = RGB(255, 255, 0)
Range("C2;I75").Value = Range("P1;P2")
Range("C2;I75").Font.Color = RGB(0, 0, 255)
End Sub
