[땡큐엑셀vba & 엑셀매크로] 오늘 날짜인 셀로 이동

오늘 날짜인 셀로 이동

 

'http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=283242616
'엑셀 매크로 질문입니다.
'오늘날짜의 셀로 이동하는 매크로 코멘트 부탁 좀 드리겠습니다ㅠ


'
' Source by 땡큐엑셀vba & 엑셀매크로
'
Sub 오늘날짜찾기()

    Set 범위 = Cells '전체셀
    찾을값 = Date '오늘날짜
    

    
     '1.검색
    Set Rng = 범위.Find(What:=찾을값, LookAt:=xlPart, LookIn:=xlValues)

    If Not Rng Is Nothing Then '검색결과가 있다면
        Rng.Select '셀 선택
    End If
    

     MsgBox "완료되었습니다", vbInformation, "땡큐엑셀vba & 엑셀매크로"

End Sub

 

 

오늘날짜인 셀로이동-Find-땡큐엑셀vba.xlsm

0.02MB