날짜에서 년을 추출하고 다음 열을 붙여 넣으십시오.

Question

그래서 저는 지금 막대한 보고서를보고 있습니다. 매주마다 하나씩보고 매크로를 자동화하려고합니다. 열 중 하나에 2012 년부터 2015 년까지 다양한 날짜가 있습니다. 나는 2014 년 날짜를 검색해야하고 거기에서 내 코드 지금까지의 오른쪽에 직접 열로 2014 넣어 :

Sub Engagament_Hiring_Dates() 
    Dim i As Long 
    Dim k As Long 
    For i = 2070 To 4000 
     If Year(BDi) = "2014" Then 
      Cells(i, 57) = "2014" 
     End If 
    Next i 
End Sub 

Answer 1

날짜가 칼럼에있는 경우 BD이 시도 :

을

For i = 2070 To 4000 
    If Year(Cells(i, "BD")) = 2014 Then 
     Cells(i, 57) = "2014" 'or simply 2014 
    End If 
Next i 

Year Function은 Integer을 반환하므로 숫자가 아닌 문자열과 비교해야합니다.
열 BD의 값이 유효한 날짜 인 경우이 방법을 사용할 수 있습니다.

또한, Cells Property을 사용하는 방법에 아래를 확인 할 수 있습니다 : 코드에 대한

Using Cells