참조되는셀로 이동하는 방법이 있을까요..?(ctrl+[의 반대개념)

기능/도구
작성자
Mindcare
작성일
2021-01-09 08:57
조회
68
안녕하세요~

왼쪽에 C49셀을 클릭하고 CTRL+[을 누르면 참조하는셀로 이동을 하여,
Sheet2의 c49셀로 화면이 이동을 합니다

그럼 반대로 sheet2!c49셀에서 sheet1!c49셀로 오게 하는 기능이 있을까요..?

 

실무에서 작업을 하는데 로우데이터가 예시의 형태처럼
1번시트의 값이 2번시트에서 "=셀" 처리되어 지정되어 있습니다

그런데 2번시트에서 c5420셀 쯤에서 작업을 하다가
1번시트로 돌아오면 대부분 화면이 c5420이 아닌경우가 많아서,
휠을 돌려서 c5420번까지 찾아다니고 있습니다..

이작업이 단순하지만 빈도가 많아서, 시간을 너무 잡아먹는것 같습니다..ㅠㅠ

 

전체 4

  • 2021-01-10 14:14
    채택된 답변

    반대개념은 Ctrl+]인데 엑셀 프로그램상 버그가 나서 진행이 안되네요.

    키보드만을 이용할 경우는 Ctrl+G+T 그리고 Enter를 치면 참조되는 원본셀로 이동이 되지만 여러단계를 거치므로 쿠쿠님의 방법중 선택하세요.


    • 2021-01-10 21:36

      오!!!!!!!!!대박ㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋ감사합니다


  • 2021-01-09 10:26

    이름관리자를 활용하셔도 좋을듯 합니다. 이동하고자 하는 번호 cell을 선택하시고 이름상자에 이동을 입력하시면 됩니다.

    이동.gif

    첨부파일 : 21_01_09_셀이동.xlsx


  • 2021-01-11 03:50

    안녕하세요.

    아래 명령문을 사용해보시겠어요?^^

    명령문을 VBA 편집기에 붙여넣기 하신 뒤, SelectCellDependents 명령문을 실행하면 해당셀을 참조하는 셀로 바로 이동합니다.

    Sub SelectCellDependents()
    Dim SelRange As Range
    Dim sFull As String: Dim sWB As String: Dim sWS As String: Dim sRng As String
    Dim WB As Workbook: Dim WS As Worksheet: Dim Rng As Range
    Dim sidX As Long: Dim eidX As Long
    
    Set SelRange = Selection
    
    On Error GoTo Finish:
    
    sFull = findDepend(SelRange)
    sidX = 2: eidX = InStr(1, sFull, "]") - 1
    sWB = Mid(sFull, sidX, eidX - sidX + 1)
    sidX = eidX + 2: eidX = InStr(sidX, sFull, "!") - 1
    sWS = Mid(sFull, sidX, eidX - sidX + 1)
    sidX = eidX + 2: eidX = Len(sFull) - 1
    sRng = Mid(sFull, sidX, eidX - sidX + 1)
    
    Set WB = Application.Workbooks(sWB)
    Set WS = WB.Worksheets(sWS)
    Set Rng = WS.Range(sRng)
    
    WB.Activate
    WS.Activate
    Rng.Select
    
    Exit Sub
    
    Finish:
    
    End Sub
    
    Function fullAddress(inCell As Range) As String
    fullAddress = inCell.Address(External:=True)
    End Function
    
    Function findDepend(ByVal inRange As Range) As String
    Dim sheetIdx As Integer
    sheetIdx = Sheets(inRange.Parent.Name).Index
    
    ' If sheetIdx = Worksheets.Count Then 'vba bug workaround
    ' Sheets(sheetIdx - 1).Activate
    ' Else
    ' Sheets(Worksheets.Count).Activate
    ' End If
    
    Dim inAddress As String, returnSelection As Range
    Dim i As Long, pCount As Long, qCount As Long
    Set returnSelection = Selection
    inAddress = fullAddress(inRange)
    
    Application.ScreenUpdating = False
    With inRange
    .ShowPrecedents
    .ShowDependents
    .NavigateArrow False, 1
    Do Until fullAddress(ActiveCell) = inAddress
    pCount = pCount + 1
    .NavigateArrow False, pCount
    If ActiveSheet.Name <> returnSelection.Parent.Name Then
    Do
    qCount = qCount + 1
    .NavigateArrow False, pCount, qCount
    findDepend = findDepend & fullAddress(Selection) & Chr(13)
    
    On Error Resume Next
    .NavigateArrow False, pCount, qCount + 1
    Loop Until Err.Number <> 0
    .NavigateArrow False, pCount + 1
    Else
    findDepend = findDepend & fullAddress(Selection) & Chr(13)
    
    .NavigateArrow False, pCount + 1
    End If
    Loop
    .Parent.ClearArrows
    End With
    
    With returnSelection
    .Parent.Activate
    .Select
    End With
    
    'Sheets(sheetIdx).Activate
    End Function

    답변이 도움이 되셨길 바랍니다.


전체 2,077
번호 카테고리 제목 작성자 작성일 추천 조회
2069 함수/공식
New 엑셀 수식 아이디어 조언주시면 감사하겠습니다 (1)
막내야제법이구나 | 2021.01.17 | 추천 0 | 조회 25
막내야제법이구나 2021.01.17 0 25
2068 함수/공식
New 데이터 유효성 검사(입력범위 제한)을 일괄적으로 할 수 있는 방법이 없나요? (1)
증평에서온가나슈 | 2021.01.17 | 추천 0 | 조회 18
증평에서온가나슈 2021.01.17 0 18
2067 기능/도구
New 복잡한 수식값 자동채우기
jo2 | 2021.01.17 | 추천 0 | 조회 26
jo2 2021.01.17 0 26
2066 함수/공식
New 도와주세요! 초보에요ㅜㅜ (1)
소이 | 2021.01.17 | 추천 0 | 조회 23
소이 2021.01.17 0 23
2065 VBA
New 안녕하세요. 매크로 실행 관련입니다. 첨부파일 (1)
korail | 2021.01.17 | 추천 0 | 조회 25
korail 2021.01.17 0 25
2064 함수/공식
New 셀안의 숫자를 여러셀에 나오게 하는 분배 관련하여 재 문의를 드립니다. 첨부파일 (1)
엑셀초보 | 2021.01.17 | 추천 0 | 조회 27
엑셀초보 2021.01.17 0 27
2063 VBA
New VBA 특정 셀 문자내용에 따라 다른 셀이 변경되도록 가능하려면.. (4)
사가 | 2021.01.17 | 추천 0 | 조회 26
사가 2021.01.17 0 26
2062 함수/공식
New Today에서 년월까지 출력 후 범위에서 가장 가까운값 가져오는 공식이 필요합니다 첨부파일 (2)
yok | 2021.01.17 | 추천 0 | 조회 30
yok 2021.01.17 0 30
2061 문서서식
New 드롭다운(다중데이터) 세모 목록표시 조정 (2)
소이 | 2021.01.17 | 추천 0 | 조회 28
소이 2021.01.17 0 28
2060 함수/공식
New 비정형 데이터에서 특정 단어 추출 (1)
naver_6003227c2f81b | 2021.01.17 | 추천 0 | 조회 36
naver_6003227c2f81b 2021.01.17 0 36
2059 VBA
New 로그인강의를 보고 따라할려는데 마음대로 안되네요.... 첨부파일 (1)
iviolin**** | 2021.01.17 | 추천 0 | 조회 38
iviolin**** 2021.01.17 0 38
2058 VBA
New 매크로 저장 방법 관려해서 문의 드립니다 (2) 답변완료
엑셀초보 | 2021.01.16 | 추천 0 | 조회 27
엑셀초보 2021.01.16 0 27
2057 함수/공식
New 셀안의 숫자를 여러셀에 나오게 하는 분배 관련 문의 드립니다. (3) 답변완료
엑셀초보 | 2021.01.16 | 추천 0 | 조회 43
엑셀초보 2021.01.16 0 43
2056 함수/공식
New 셀 내용 합치기 관련 문의 (1)
유레카 | 2021.01.16 | 추천 0 | 조회 21
유레카 2021.01.16 0 21
2055 함수/공식
New 입사일 / 퇴사일을 활용하여 월말 인원 구하는 함수 (3) 답변완료
CX74B | 2021.01.16 | 추천 0 | 조회 41
CX74B 2021.01.16 0 41
2054
New '계획' 시트의 B열을 M열 처럼 만드는 함수 첨부파일
007 | 2021.01.16 | 추천 0 | 조회 41
007 2021.01.16 0 41
2053 VBA
New 메모장 출력 ExportText 함수 첨부파일 (1)
이하늘 | 2021.01.16 | 추천 0 | 조회 25
이하늘 2021.01.16 0 25
2052 함수/공식
New 성적관리 프로그램 관련 질문입니다~ 첨부파일 (2) 답변완료
최재형 | 2021.01.16 | 추천 0 | 조회 36
최재형 2021.01.16 0 36
2051 VBA
New 매크로 버큰 문의요청 첨부파일 (3) 답변완료
작은소녀 | 2021.01.16 | 추천 0 | 조회 46
작은소녀 2021.01.16 0 46
2050 VBA
New 리스트 박스 표시 형식 변경 (4) 답변완료
새우튀김 | 2021.01.16 | 추천 0 | 조회 43
새우튀김 2021.01.16 0 43
2049 VBA
New IMPORTHHTML 함수 추가기능 vba구현 (2)
이예본 | 2021.01.15 | 추천 0 | 조회 27
이예본 2021.01.15 0 27
2048 기능/도구
New 혹시 이모지 질문입니다. (1)
조민성 | 2021.01.15 | 추천 0 | 조회 41
조민성 2021.01.15 0 41
2047 기능/도구
New 메일머지에 사진 나오게 하는법 (1)
욕심없는성공v | 2021.01.15 | 추천 0 | 조회 37
욕심없는성공v 2021.01.15 0 37
2046 함수/공식
New 초보입니다ㅠ 호봉을 자동으로 구하고 싶어요~ (4) 답변완료
eggs**** | 2021.01.15 | 추천 0 | 조회 61
eggs**** 2021.01.15 0 61
2045 함수/공식
New 년도별 금액평균을 구하고 싶어요 첨부파일 (1)
DDD | 2021.01.15 | 추천 0 | 조회 52
DDD 2021.01.15 0 52
2044 함수/공식
New 수량별 개수 곱합 후 합계금액 구하기 첨부파일 (2) 답변완료
민준맘 | 2021.01.15 | 추천 0 | 조회 47
민준맘 2021.01.15 0 47
2043 VBA
New 시트 합치기는 나오는데 여러개 엑셀파일 통합은 어떻게 하나요? 첨부파일 (1)
wbyu**** | 2021.01.15 | 추천 0 | 조회 41
wbyu**** 2021.01.15 0 41
2042 피벗테이블
New 피벗 원데이터에 공백이 있을경우 (3)
H.B | 2021.01.15 | 추천 1 | 조회 44
H.B 2021.01.15 1 44
2041 기능/도구
인터넷 연결 및 API 오류 해결 도와주세요. 하라신 3가지 다했는데 안되네요 (1)
susu | 2021.01.15 | 추천 0 | 조회 25
susu 2021.01.15 0 25
2040 VBA
VBA Form 실행 위치 관련 (2) 답변완료
새우튀김 | 2021.01.15 | 추천 0 | 조회 38
새우튀김 2021.01.15 0 38