조건 서식 매크로

지식IN질문

버튼박스를 만들어서 누르면 오른쪽 셀에 현재 날짜와 시간보다 + 10일 된시간이 입력되는것을 만들고싶네요. 이건 메크로사용해야하나요? 그리고 입력된 날짜가 현재 날짜(시간)보다 이전이면 서식이 변하게 하고싶어요.

혼자하려니까 어렵네요 도와주세요.

// 10일 더해서 출력하는 것, 빨간색 적용

Private Sub CommandButton1_Click()
    Dim i As String
  
    i = Cells(4, 3).Value
   
    If (i < Now()) Then
        Cells(4, 4).Interior.Color = RGB(255, 0, 0)
       
    Else
        Cells(4, 4) = DateAdd("d", 10, i)
    End If
   
End Sub

 

 

 

//초기화 시키는 버튼 코드

Private Sub CommandButton2_Click()
    Cells(4, 4).Interior.ColorIndex = xlNone
    Cells(4, 4).Value = ""
End Sub