Note: The other languages of the website are Google-translated. Back to English

Excel에서 현재 날짜가있는 셀로 빠르게 이동하는 방법은 무엇입니까?

여기에 날짜 목록이있는 시트가 있습니다. 현재 날짜가있는 셀로 빠르게 이동하고 싶습니다.이 문제를 해결하는 방법은 무엇입니까?

VBA로 현재 날짜로 이동

찾기 및 바꾸기를 사용하여 현재 날짜로 이동


화살표 블루 오른쪽 거품 VBA로 현재 날짜로 이동

다음은 현재 날짜가있는 셀로 빠르게 이동할 수있는 VBA 코드입니다.

1. 사용할 통합 문서를 활성화하고 Alt + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

2. 클릭 끼워 넣다 > 모듈, 코드 아래에 붙여 넣으십시오. 모듈.

VBA : 현재 날짜로 이동

Private Sub Workbook_Open()
'UpdatebyExtendoffice20161221
    Dim daterng As Range
    Dim DateCell As Range
    Dim WorkSht As Worksheet
    Dim dateStr As String
    Application.ScreenUpdating = False
    For Each WorkSht In Worksheets
        WorkSht.Select
        'Set daterng = Range("A:A")
        Set daterng = WorkSht.UsedRange
        'daterng.Select
        For Each DateCell In daterng
            DateCell.Activate
            ActiveCell.Select
            On Error Resume Next
            dateStr = DateCell.Value
            If dateStr = Date Then
                DateCell.Select
                Exit Sub
            End If
        Next
    Next WorkSht
    Application.ScreenUpdating = True
    'Worksheets(1).Select
End Sub

현재 날짜로 문서 이동 1

3. 프레스 F5 키를 누르면 통합 문서에서 현재 날짜가있는 셀로 커서가 이동합니다.
현재 날짜로 문서 이동 2


화살표 블루 오른쪽 거품 찾기 및 바꾸기를 사용하여 현재 날짜로 이동

VBA 코드에 익숙하지 않은 경우 다음을 적용 할 수도 있습니다. 찾기 및 바꾸기 현재 날짜로 이동하는 유틸리티.

1. 날짜 목록이 포함 된 시트를 활성화하고 빈 셀을 선택하고 다음 수식을 입력합니다. = 오늘 (), 언론 엔터 버튼 키, 이제 오늘 날짜를 얻습니다.
현재 날짜로 문서 이동 3

2. 프레스 Ctrl + C 오늘 날짜를 복사하고 날짜 목록으로 이동 한 다음 Ctrl + F 를 사용하려면 찾기 및 바꾸기 대화 상자에서 무엇을 찾기 텍스트 상자, 누르기 Ctrl + V 오늘 날짜를 붙여 넣습니다. 스크린 샷보기 :
현재 날짜로 문서 이동 4

3. 클릭 모두 찾기. 이제 커서가 선택한 목록에서 오늘이있는 셀로 이동합니다.
현재 날짜로 문서 이동 5

팁 : 당신이 있으면 Excel 용 Kutools, 당신은 그것을 적용 할 수 있습니다 특정 셀 선택 이 작업을 신속하게 처리할 수 있습니다. 30 일, 지금 다운로드하여 무료 평가판을 받으십시오.
현재 날짜로 문서 이동 6


최고의 사무 생산성 도구

Excel용 Kutools는 대부분의 문제를 해결하고 생산성을 80% 증가시킵니다.

  • 재사용: 빠르게 삽입 복잡한 공식, 차트 그리고 이전에 사용한 모든 것; 셀 암호화 암호로; 메일 링리스트 생성 이메일 보내기 ...
  • 슈퍼 포뮬러 바 (여러 줄의 텍스트와 수식을 쉽게 편집 할 수 있습니다.) 레이아웃 읽기 (많은 수의 셀을 쉽게 읽고 편집합니다.) 필터링 된 범위에 붙여 넣기...
  • 셀 / 행 / 열 병합 데이터 손실없이; 셀 내용 분할; 중복 행 / 열 결합... 중복 셀 방지; 범위 비교...
  • 중복 또는 고유 선택 행; 빈 행 선택 (모든 셀이 비어 있음); 슈퍼 찾기 및 퍼지 찾기 많은 통합 문서에서; 무작위 선택 ...
  • 정확한 사본 수식 참조를 변경하지 않고 여러 셀; 참조 자동 생성 여러 시트에; 글 머리 기호 삽입, 확인란 등 ...
  • 텍스트 추출, 텍스트 추가, 위치 별 제거, 공간 제거; 페이징 부분합을 만들고 인쇄합니다. 셀 내용과 주석 간 변환...
  • 슈퍼 필터 (다른 시트에 필터 구성표 저장 및 적용) 고급 정렬 월 / 주 / 일, 빈도 등 특수 필터 굵은 기울임 꼴로 ...
  • 통합 문서와 워크 시트 결합; 키 열을 기반으로 테이블 병합; 데이터를 여러 시트로 분할; xls, xlsx 및 PDF 일괄 변환...
  • 300개 이상의 강력한 기능. Office / Excel 2007-2021 및 365를 지원합니다. 모든 언어를 지원합니다. 기업 또는 조직에서 쉽게 배포할 수 있습니다. 전체 기능은 30일 무료 평가판입니다. 60일 환불 보장.
kte 탭 201905

Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
  • 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
  • 생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
officetab 하단
코멘트 (4)
아직 평가가 없습니다. 가장 먼저 평가하세요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이것은 VBA 코드에서 작동하지 않고 "이동"이라는 창을 불러옵니다. 어떤 식으로든 VBA 코드를 편집하려고 했습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Peter와 같은 결과입니다... F5는 GoTo를 불러옵니다. 우리는 또한 Ctrl-F5와 Alt-F5를 시도했습니다. 코드에 다른 키 시퀀스 또는 추가 사항이 있습니까? 감사해요.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
저는 Microsoft Office와 Excel의 초보자이지만 본질적으로 프로그래머입니다. 목표가 오늘 날짜가 있는 셀을 찾고 해당 셀에 커서를 놓는 것이라면 해당 코드가 모두 필요하다는 것을 알 수 없습니다. 매크로에서 생성된 간단한 코드(아래 나열) 및 매크로를 문자에 할당 "T"라고 말하면 옵션으로 버튼을 만들고 매크로를 할당할 수도 있으므로 버튼을 클릭하면 해당 셀로 바로 이동할 수 있습니다. 주석 줄('로 시작하는 줄)은 선택 사항입니다. 입력하지 않도록 선택할 수 있습니다. 코드 문제 해결에 사용했습니다. "Msgbox"는 당신과 소통할 수 있는 좋은 도구입니다. 여기 내 코드가 있습니다:--------------------------------- Sub GoToToday()
'
' 고투투데이 매크로
'
' 키보드 단축키: Ctrl+t
'
Dim DateRange, DateCell을 범위로
Dim i As 바이트
Dim x 문자열로
오류에 대한 다음 재개

MySheet = ActiveSheet.Name

' MsgBox(날짜)
내가 = 12하려면 130하려면
x = "A" & 나
' 메시지 상자(x)
' MsgBox(워크시트(MySheet).Range(x))

If Worksheets(MySheet).Range(x).Value = Date then
' 메시지박스(i)
' 메시지 상자(x)
' MsgBox(워크시트(MySheet).Range(x))
x = "D" & 나
범위(x).선택
서브 종료
END IF
다음 :
최종 하위

이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이 예제는 끔찍하게 느립니다. 찾기 매개변수 중 일부를 다듬을 수 있으므로 원하는 경우 테스트하십시오.
암호:

'시트에서 오늘 날짜를 찾아 셀 활성화
Cells.Find(What:=Date, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).활성화
'-----

ActiveWindow.ScrollRow = ActiveCell.Row '선택한 셀로 보기 스크롤
아직 코멘트가 없습니다
여러분의 의견을 남겨
게스트로 게시
×
이 게시물 평가 :
0   등장 인물
추천 위치

Follow Us

저작권 © 2009 - WWW.extendoffice.com. | 판권 소유. 에 의해 구동 ExtendOffice. | | 사이트 맵
Microsoft 및 Office 로고는 미국 및 / 또는 기타 국가에서 Microsoft Corporation의 상표 또는 등록 상표입니다.
Sectigo SSL로 보호