-
시트명을 입력하면 해당 시트로 이동VB(A) 2019. 3. 12. 13:26
A1셀에 시트명을 입력하면 해당 시트로 이동하는 매크로입니다.
시트명이 아주 많을 때 마우스로 일일이 찾아가길 힘들 때 사용하면 좋은 코드입니다.
실무에서 많이 요구되는 내용이기도 합니다.
Option ExplicitPrivate Sub Worksheet_Change(ByVal Target As Range)'워크시트의 셀 내용이 바뀌면 이벤트를 실행합니다.With Target'A1셀에 아니면 매크로를 종료합니다.If Intersect(.Cells, Range("A1")) Is Nothing Then Exit Sub'다중 셀을 선택할 경우 매크로를 종료합니다.If .CountLarge > 1 Then Exit SubEnd WithWith Application.EnableEvents = False '이벤트 감시기능을 끕니다.On Error GoTo j '에러가 날 경우 J로 보냅니다.(에러메시지 출력 후 매크로 종료).Goto Sheets(Target.Text).Range("A1") '시트명이 있을 때 해당 시트로 이동합니다..EnableEvents = True '이벤트 감시기능을 켭니다.Exit Sub '매크로를 종료합니다.'에러가 날 경우 에러메시지를 출력 후 매크로를 종료합니다.j:MsgBox "시트명을 확인하세요", vbCritical.EnableEvents = TrueEnd WithEnd Subcs 'VB(A)' 카테고리의 다른 글
특정 글자색 추려내기 (0) 2019.03.16 같은 글자색의 숫자 더하기 (0) 2019.03.15 [정규식] 문자 숫자 섞여있는 셀에서 숫자만 더하기 (3) 2019.02.26 표 변환하기(셀삽입) (0) 2019.02.18 명단 출석 체크 추출 및 참가자 명단 파악 (0) 2019.01.24 댓글