엑셀 VBA 2003 -

Question

안녕하세요,

키워드를 기반으로 autopopulating 날짜 나는이 포럼에 새로 온 사람과 VBA도하지만, 아주 기본을 알고있다. 나는 어디에서나 검색했지만 정확한 코드를 찾을 수없는 것 같습니다.

기본적으로 내 작업을 처리하는 스프레드 시트가 있으며 "열기"& "Closed"가 있으며 선택시 날짜가 필요합니다.

이 B, D 및 J.의 모든 열을 신청해야

Column B = "Open" & "Closed" - this is done in a list format 
Column D = Date opened which needs to relate to "Open" from Column B 
Column J - Date closed which needs to relate to "Closed" from Column B 

내가 이전의 일이 그래서 그것은 다음 빈 셀에 시작하는 것이 가능하다?

나는 다음과 같은 코드를 사용했습니다 :

Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim A As Range, D As Range, Inte As Range, r As Range 
    Set A = Range("B:B") 
    Set Inte = Intersect(A, Target) 
    If Inte Is Nothing Then Exit Sub 
    Application.EnableEvents = False 
     For Each r In Inte 
      r.Offset(0, 2).Value = Date 
     Next r 
    Application.EnableEvents = True 

End Sub 

이 만 열 D에 날짜를두고

감사합니다 열 B에 아무것도 입력하여 트리거

,

조니

Answer 1

b2 셀에 수식 = IF (B2 = "Open", "Date", "")를 입력하고 끝까지 아래로 끕니다. 수식 = IF (B3 = "Closed", TODAY(), "")를 셀 j2에 넣고 끝까지 드래그하십시오. 귀하의 성명은 "열 B는 열기를 누른 다음 열 D에 채우기 날짜가 필요합니다"라고 말합니다. 당신이 여기서 언급 한 날짜는? 이것이 필요한 것인지 알려주십시오