엑셀 VBA #14 / 셀 범위 선택하기_9 [VBA] - Intersect 실무예제


1. 목적 : 실무사례에서 Intersect가 어떻게 사용되는지 확인
2. 의도 : 특정 영역의 셀에 문자 입력 불가토록 함(즉 셀 값이 숫자 또는 빈 셀이어햐 함)
3. 적용기법 : 위크시트 이벤트(모듈이 아님), Intersect, IsNumeric

4. 코드

A2~D11 영역의 셀에는 문자 입력 불가토록 코딩함

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo er     '만약 에러가 발생하면, 아래의 er로 가라
If Not Intersect(Target, Columns("A:D")) Is Nothing Then
    If Target.Row > 1 And Target.Row < 12 Then
        If VBA.IsNumeric(Target) Then
        Else
            MsgBox   "숫자로 입력하세요"
            Target = ""        '타겟 셀에 문자등을 입력하였다면 그 문자를 삭제하는 코드
            Target.Select    '문자 삭제한 후, 커서가 다음 열 혹은 행으로 이동하지 않고 다시 타겟셀에 있도록하는 코드
            End If
        End If
End If

er:

End Sub

vba - intersect, event프로시져

https://www.youtube.com/watch?v=NBO4iXAEAhw&list=PLfxvqpVCYZ8e0qlyc_FU46neoWjO7yTWj&index=14

어제 밤 페이스북을 하다가 '가족리마인드웨딩 무료촬영 이벤트'가 나오길래, 별 기대없이 응모했었다.

이를 의식하지 않은 채 있다가 당첨 메세지를 받고서는 이벤트 응모 사실을 떠올렸다. 

나는 이런 이벤트에 당첨된 적이 거의 없었다(물론 블로그 리뷰 모집에는 당첨된 적 있지만!). 

'거의 없었다'고 했으니 전적이 전무한 것은 아니다(15여년 전에 컴퓨터 모니터-납작한 거...아마도 LCD 모니터인거 같다)를 당첨 받은 적 있었다).

JH스튜디오 - 가족리마인드웨딩 무료촬영 당첨

무료이벤트의 가면 뒤에는 교묘한 상술이 숨겨져 있을거라는 의심이 일어났다. 

이를테면 옵션을 이것저것 덧붙이는 그러거 말이다. 

의심의 눈초리로 당첨안내 메시지를 읽어보니 여자 한명의 메이크업비 3만원만 지불하면 되는 이벤트였다.

JH스튜디오 - 가족리마인드웨딩 무료촬영 당첨

그래도 반신반의 하는 마음으로 폭풍처럼 인터넷 검색을 했었다.

이런 이벤트가 예전에도 몇 번 실시된 모양인지, 촬영 후기글이 많이 보였다. 해당 글을 읽은 후 의심의 마음이 풀렸다.

내가 세상을 얼마나 각박하게 바라보고 있는지를 깨닫게 되었다.

마침 아들 생일이라 선물겸으로 촬영할 것을 생각해 보니 셀레인다. 

아들의 취향이 이상한 건지 모르겠지만 가족끼리 커플 목걸이 하자, 가족끼리 신체 동일한 곳에 같은 문양의 문신을 하자는 등의 제안하기도 했었다. 이런 아들의 성격으로 판단하건데 이번 촬영을 무척 좋아할 것 같다.

기대된다.

'가족리마인드웨딩 무료촬영 이벤트'

제공업소 :  JH스튜디오(부산) 

주      소 : 부산광역시 사상구 학장동 557번지(학감대로 117) 세원빌딩 3층

관련검색 :  내용보기   

효성이 운영 중인 블로그 '마이프렌드 효성'에서 '썸머 퀴즈와 함께하는 해피투게더 2박~3일! 시즌2' 이벤트를 진행한다고 12일 밝혔네요.

선정된 분에게는 효성토요타의 최고급 7인승 미니밴 '시에나(Sienna)'를 2박3일간 무료대여 및 여행 경비도 일부 지원한다.