Excel 드롭다운 목록에서 선택한 내용을 기반으로 인접한 셀로 빠르게 이동하려면 어떻게 해야 하나요?

Excel의 드롭다운 목록에서 선택한 내용을 기반으로 인접한 셀로 이동하는 것을 상상해 본 적이 있나요? 예를 들어, C1 셀에 평일 이름이 포함된 드롭다운 목록이 있고, A열은 날짜 목록, B열은 시간 목록입니다. 이제 드롭다운 목록에서 평일 이름(예: 목요일)을 선택하면 커서가 A열의 목요일 옆에 있는 B5로 이동합니다. Excel에는 이 작업을 해결하기 위한 내장 기능이 없지만 강력한 VBA 코드를 사용할 수 있습니다.

VBA를 사용하여 드롭다운 목록 값에 따라 인접한 셀로 이동하기

VBA를 사용하여 드롭다운 목록 값에 따라 인접한 셀로 이동하기

1. 드롭다운 목록에서 사용할 요일을 선택한 다음 Alt + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 활성화합니다.

2. 삽입 > 모듈을 클릭하고 아래 코드를 모듈에 붙여넣습니다.

VBA: 값에 따라 인접한 셀로 이동하기

Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyExtendoffice20161221
    If Target.Address <> [C1].Address Then
       Exit Sub
    Else
       JumpToCell

    End If
End Sub

Sub JumpToCell()
    Dim xRg, yRg As Range
    Dim strAddress As String
    strAddress = ""
    Set yRg = Range("A2:A8")
    For Each xRg In yRg
    'MsgBox Cell.Value
        If xRg.Value = ActiveCell.Value Then
           strAddress = xRg.Address
        End If
    Next
    If strAddress = "" Then
       MsgBox "The Day You Selected in Cell D4 Was Not Found On " & ActiveSheet.Name, _
        vbInformation, "Kutools for Excel"
       Exit Sub
    Else
       Range(strAddress).Offset(0, 1).Select
    End If
End Sub

3. F5 키를 누르면 드롭다운 목록의 값에 따라 커서가 인접한 셀로 이동합니다.

참고:

VBA 코드에서 A2:A8은 드롭다운 목록의 값과 일치하는 값을 포함하는 목록이며 필요에 따라 이 참조를 변경할 수 있습니다.

Kutools AI로 엑셀의 마법을 풀다

• 스마트 실행: 셀 작업 수행, 데이터 분석 및 차트 생성 - 간단한 명령어로 모든 것을 처리합니다.
• 사용자 정의 수식: 작업을 간소화하기 위한 맞춤형 수식을 생성합니다.
• VBA 코딩: 손쉽게 VBA 코드를 작성하고 실행합니다.
• 수식 해석: 복잡한 수식도 쉽게 이해할 수 있습니다.
• 텍스트 번역: 스프레드시트 내 언어 장벽을 허물어 보세요.

AI 기반 도구로 엑셀 활용 능력을 강화하세요. 지금 다운로드하여 그 어느 때보다 높은 효율성을 경험해 보세요!