<P>'컴파일오류 블록if가 없는 end if' 라는 오류가 계속 뜨네요,,,</P>
<P> </P>
<P>동일 시트에서 2개의 셀값에 따라 Worksheet_Change를 일으키는 vba입니다.</P>
<P>셀 d11과 셀 c2 값에 따라 독립적으로 수행되는 vba인데 에러가 나네요.. 이유를 통 모르겠습니다.</P>
<P>알려주시면 감사하겠습니다.</P>
<P> </P>
<P>Private Sub Worksheet_Change(ByVal Target As Range)</P>
<P> If Intersect(Target, Range("d11")) Is Nothing Then Exit Sub<BR> Select Case UCase(Target.Value)<BR> Case "0"<BR> Call 주0<BR> Case "1"<BR> Call 주1<BR> Case "2"<BR> Call 주2<BR> Case "3"<BR> Call 주3<BR> Case "4"<BR> Call 주4<BR> Case "5"<BR> Call 주5<BR> Case "6"<BR> Call 주6<BR> Case "7"<BR> Call 주7<BR> Case "8"<BR> Call 주8<BR> Case "9"<BR> Call 주9<BR> Case "10"<BR> Call 주10<BR> Case Else<BR> Call 주0<BR> 'Target.Offset(0, 1) = Empty<BR> End Select</P>
<P>End If<BR> If Intersect(Target, Range("c2")) Is Nothing Then Exit Sub<BR> Select Case UCase(Target.Value)<BR> Case "1"<BR> Call 객1<BR> Case Else<BR> Call 객2_3<BR> <BR> End Select<BR> <BR>End If</P>
<P> </P>
<P>End Sub<BR></P>
<!-- -->
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("c2,d11")) Is Nothing Then If Target.Column = 4 Then Select Case UCase(Target.Value) Case "0" Call 주0 Case "1" Call 주1 End Select Else Select Case UCase(Target.Value) Case "0" Call 객0 Case "1" Call 객1 End Select End If End If End Sub
첫댓글 안녕하세요? [칼칼]님...
제가 아래와 같이 코딩해 봤는데 별 문제가 없습니다.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("c2,d11")) Is Nothing Then
If Target.Column = 4 Then
Select Case UCase(Target.Value)
Case "0"
Call 주0
Case "1"
Call 주1
End Select
Else
Select Case UCase(Target.Value)
Case "0"
Call 객0
Case "1"
Call 객1
End Select
End If
End If
End Sub
그럼 잘 해결되시길... ^^*
다만 주0~주10까지의 프로시져는 파일을 보진 못했지만 단순화 시킬 수 있을듯 합니다.