|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(95,97,2000,xp,2003,2007):
* 아래줄에 질문을 작성하세요 >>
데이타를 입력하면 지정된 수치 만큼 다음 Row셀로 이동하려고 하니
에러가 납니다
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
With Target
If .Row = 9 Then
.Offset(3, 0).Select
ElseIf .Row = 12 Then
.Offset(4, 0).Select
ElseIf .Row = 16 Then
.Offset(7, 0).Select
ElseIf .Row = 23 Then
.Offset(7, 0).Select
ElseIf .Row = 30 Then
.Offset(7, 0).Select
ElseIf .Row = 37 Then
.Offset(7, 0).Select
ElseIf .Row = 44 Then
.Offset(7, 0).Select
ElseIf .Row = 51 Then
.Offset(7, 0).Select
ElseIf .Row = 58 Then
.Offset(7, 0).Select
ElseIf .Row = 65 Then
.Offset(7, 0).Select
ElseIf .Row = 72 Then
.Offset(7, 0).Select
ElseIf .Row = 79 Then
.Offset(7, 0).Select
ElseIf .Row = 86 Then
.Offset(7, 0).Select
ElseIf .Row = 93 Then
.Offset(7, 0).Select
ElseIf .Row = 100 Then
.Offset(7, 0).Select
ElseIf .Row = 107 Then
.Offset(7, 0).Select
ElseIf .Row = 114 Then
.Offset(7, 0).Select
ElseIf .Row = 121 Then
.Offset(7, 0).Select
ElseIf .Row = 128 Then
.Offset(7, 0).Select
ElseIf .Row = 135 Then
.Offset(7, 0).Select
ElseIf .Row = 142 Then
.Offset(7, 0).Selec
ElseIf .Row = 149 Then
.Offset(7, 0).Selec
ElseIf .Row = 156 Then
.Offset(-147, 1).Selec
End If
End With
Application.EnableEvents = True
End Sub
==============[aortla님 글에 대한 답변입니다]==============
한번 에러가 발생하면 다음 구문이 실행되지 않아 change이벤트가 발생하지 그런 것 같습니다.
Application.EnableEvents = True |
|