ⓒ 2025 AI교육연구회 withseok. All rights reserved. (위드석)
[블로그 글 내용 상업적 이용금지] 위드석홈 | 위드석개발 | AI교육연구회

엑셀 파일 다운로드

드롭다운메뉴 선택하면 시트이동.xlsm
0.04MB

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
    With Target
        If Intersect(Target, Range("i7")) Is Nothing Then
        Else
            Worksheets(.Value).Activate
        End If
    End With
End Sub

 

320x100

+ Recent posts