선택 범위 안에서 날짜 변경

Question

나는 매크로를 사용하여 선택한 범위의 날짜를 변경합니다. 그것은 잘 작동하지만, 선택 내에서 날짜가 아닌 값 (예 : "abcdef"또는 셀이 비어있는 셀)이 있고 매크로를 실행하면 날짜가 아닌 값이 날짜로 변환됩니다. 어떻게 수정해야합니까?

현재 코드 : 그건 :)

Sub adddate() 
Dim cell As Range 
Dim r As Range 
Set r = Selection 

For Each cell In Selection 
If IsDate(cell.Value) Then 
Selection.Cells = DateAdd("d", 28, CDate(cell)) 
End If 
Next cell 

End Sub 

Answer 1

Sub adddate() 
    Dim cell As Range 

    For Each cell In Selection 
     If IsDate(cell.Value) Then cell = DateAdd("d", 28, CDate(cell)) 
    Next cell 
End Sub