■ Excel/ㅡExcel VBA Code
엑셀VBA 값바뀌면 해당값 바로 찾아서 이동
with seok
2021. 1. 7. 16:33
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 | Private Sub Worksheet_Change(ByVal Target As Range) If Not Target.Address = "$Y$10" Then Exit Sub 'Application.EnableEvents = False Range("z847").Select Dim banVal banVal = Range("$y$10").Value Dim rng As Range If banVal <> "" Then For Each rng In Range("z:z") If rng.Value = banVal Then Application.Goto Range("X" & Application.WorksheetFunction.Match(banVal, Range("z:z"), 0)), True Exit Sub Else End If Next Else Range("$y$11").Select End If Application.EnableEvents = True ' 이벤트가 발생되면 작동합니다 End Sub | cs |
728x90