CAFE

댓글 리스트

• 작성자 윤슬 작성시간14.04.22 안녕하세요? [칼칼]님...
  
  제가 아래와 같이 코딩해 봤는데 별 문제가 없습니다.
  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
  
  그럼 잘 해결되시길... ^^*

  더보기

  • 신고 센터로 신고
  • 카페 운영자 제보
• 작성자 윤슬 작성시간14.04.22 다만 주0~주10까지의 프로시져는 파일을 보진 못했지만 단순화 시킬 수 있을듯 합니다.

  더보기

  • 신고 센터로 신고
  • 카페 운영자 제보