기초부터 실전까지 VBA 엑셀13 - 조건문 Select Case

IT 관련 지식/VBA 공부|2019. 11. 2. 08:13
반응형
728x170

<VBA 엑셀13 - 조건문 Select case>

 

이번에는 if 조건문과 조금 다른 Selece Case라는 조건문에 대해 알아보겠습니다.

 

사실 이 Select ~ Case는 ElseIf과 매우 비슷합니다.

 

하지만 조건이 많을 경우 Select Case가 훨씬 유리한데요

 

그 이유는 코딩이 짧아지고 직관성이 높아지기 때문입니다.

 

더 많은 VBA 자료를 보고 싶다면 ☜ 여기!!

 


1. 기본형

 

기본 형태는 아래와 같습니다.

 

그럼 이제 하나씩 살펴보도록 하죠

Select Case testexpression
    [Case expressionlist-n
        [statements-n]]
    ...
    [Case Else
        [elsestatements]]
End Select

 

testexpression 반드시 지정해야합니다.
주로 변수를 지정합니다.
expressionlist-n "testexpression"에서 지정한 변수가 만족할 조건을 입력합니다.
statements-n 선택 사항입니다.
"expressionlist-n"이 만족될 경우 실행할 코딩을 적는 구간입니다.
elsestatements 선택 사항입니다.
인수 testexpression이 모든 Case 절과 일치하지 않을 때, 실행할 코딩을 적는 구간입니다.

 


2. 예문

 

① 기본형

Select Case i `i는 여기서 변수
  Case 1
    'i=1일때 처리
  Case 2
    'i=2일때 처리

  Case Else
    'i가 위의 조건을 만족하지 않을때 처리
End Select

 

② Or 조건

 

Select Case i `i는 여기서 변수
  Case 1, 2
    'i=1 or 2일때 처리
  Case 3, 4
    'i=3 or 4일때 처리

  Case Else
    'i가 위의 조건을 만족하지 않을때 처리
End Select
300x250

 

 

③ 범위 지정

 

Select Case i `i는 여기서 변수
  Case 1 To 3
    'i= 1~3일때 처리
  Case 4 To 6
    'i= 4~6일때 처리

  Case Else
    'i가 위의 조건을 만족하지 않을때 처리
End Select

 

④ 부등호 사용

 

Select Case i `i는 여기서 변수
  Case Is < 2
    'i < 2일때 처리
  Case Is >=5
    'i >= 5일때 처리

  Case Else
    'i가 위의 조건을 만족하지 않을때 처리
End Select

 

주로 위와 같이 4개의 경우를 이용하여 사용할 수 있습니다.

 

그럼 마지막으로 If 조건문에서 사용한 예제를 Select Case를 이용하여 표현해보고 마치겠습니다.

 

<If절을 사용한 조건문>


Sub if1()

    If Cells(1, 1) >= 100 Then
        Cells(1, 2) = "○"
    Else
        Cells(1, 2) = "×"
    End If

End Sub

 

<Select Case를 사용한 조건문>

Sub select1()

    Select Case Cells(1, 1)
    
        Case Is >= 100
            Cells(1, 2) = "○"
        
        Case Else
            Cells(1, 2) = "X"
    End Select
    
End Sub

 

위와 같이 동일한 결과를 다른 프로그램을 이용하여 만들 수 있습니다.


더 많은 VBA 자료를 보고 싶다면 ☜ 여기!!

 

다음에는 신기한 MsgBox라는 것에 대해 알아보겠습니다!

반응형

댓글()

기초부터 실전까지 VBA 엑셀12 - 조건문 If ~ ElseIf

IT 관련 지식/VBA 공부|2019. 10. 31. 08:00
반응형
728x170

<VBA 엑셀12 - 조건문 if else>

 

이전에 배운 if문에서 조금 더 발전한 사용법을 알려드리겠습니다.

 

더 많은 VBA 자료를 보고 싶다면 ☜ 여기!!

 

<기초부터 실전까지 VBA 엑셀11 - 조건문 if>에서 배운 것은 단순히 조건 1개만 사용하여 

 

if문을 사용하는 방법이었습니다.

 

이번에는 여러개의 조건을 걸 수 있는 방법을 알려드리겠습니다.

 


1. If ~ ElseIf ~ ElseIf의 기본형태

 

If 조건식 1 Then
  "조건식 1"이 True일 때 처리
ElseIf 조건식 2 Then
  "조건식 2"이 True일 때 처리
ElseIf 조건식 3 Then
  "조건식 3"이 True일 때 처리
...
Else
  모든 조건식이 False일 때 처리
End If

 

 

위와 같이 ElseIf를 이용하여 여러 개의 조건을 만들 수 있습니다.

 

이는 단순히 여러 개의 조건을 만들 수 있다는 것보다 If ~ Else만 사용했을 때 보다

 

코딩이 훨씬 짧고 단순해집니다.

 

이해를 돕기위해 다음과 같은 예제를 보겠습니다.

 

300x250

2. 예제

 

<기초부터 실전까지 VBA 엑셀11 - 조건문 if>에서 사용한 예제를 그대로 사용하여

 

정확히 어떻게 다른지 확인해보겠습니다.

 

<기초부터 실전까지 VBA 엑셀11 - 조건문 if> 에서 사용한 예제

Sub if2() 

If Cells(1, 1) >= 100 Then 
    If Cells(1, 1) >= 200 Then 
        Cells(1, 2) = "A"    '>= 200 
    Else 
        Cells(1, 2) = "B"    '>=100 AND < 200 
    End If 
     
Else 
     
    If Cells(1, 1) >= 50 Then 
        Cells(1, 2) = "C"    '< 100 AND >= 50 
    Else 
        Cells(1, 2) = "D"    '< 50 
    End If 
End If 

End Sub

 

<ElseIf를 사용했을 때>

Sub elseif1()

    If Cells(1, 1) >= 200 Then
    
        Cells(1, 2) = "A"    '>= 200
        
    ElseIf Cells(1, 1) >= 100 Then
    
        Cells(1, 2) = "B"    '>=100 AND < 200
    
    ElseIf Cells(1, 1) >= 50 Then
    
        Cells(1, 2) = "C"    '< 100 AND >= 50
        
    Else
    
        Cells(1, 2) = "D"    '< 50
    
End If

End Sub

위에 예제보다 밑의 예제가 훨씬 직관적은 눈에 들어오는 것을 알 수 있을 것입니다.

 

이 처럼 ElseIf를 사용할 경우 다수의 조건을 만들 수 있습니다.

 


이번 실습은 여기까지 입니다.

 

오늘도 마찬가지로 코딩 파일을 남겨놓겠습니다.

 

꼭 직접 손으로 코딩을 해보신 후

 

정 모르겠으면 다운 받으신 후, 무엇이 다른지 확인하시길 바랍니다.

 

더 많은 VBA 자료를 보고 싶다면 ☜ 여기!!

 

elseif문.txt
0.00MB

반응형

댓글()

기초부터 실전까지 VBA 엑셀10 - 마지막 행 얻기(End)

IT 관련 지식/VBA 공부|2019. 10. 25. 09:51
반응형
728x170

< VBA 엑셀10 - 마지막 행 얻기(End)>

 

데이터의 마지막 셀로 갈 수 있는 방법중 하나인 End에 대해서 알아보겠습니다.

 

더 많은 VBA 자료를 보고 싶다면 ☜ 여기!!

 

먼저 프로그래밍을 하기 전에 다음과 같은 엑셀 시트를 준비해야합니다.

 

A열에서는 첫 번째 줄부터 10번째 줄까지 연속적으로 숫자가 입력되어 있습니다.

 

B열에서는 첫 번째 줄부터 숫자가 이어지다가 5번째 줄에서 한번 끊기게 됩니다.

 

이번에는 "A1"셀을 선택한 후에 Ctrl+↓(방향키 아래)를 눌러보시기 바랍니다.

그럼 아래와 같은 그림처럼 "A10" 셀이 선택되어져 있는 모습일거라 생각합니다.

이번에는 "B1"를 선택한 후 똑같이 Ctrl+↓(방향키 아래)을 눌러보시기 바랍니다.

"A1"와 다르게 네 번째 행에서 선택이 멈춥니다.

Ctrl+"방향키"의 기능은 연속적인 데이터가 있을 때 그 방향의 마지막 데이터로 커서를 이동시켜줍니다.

 

이번에는 이것을 코딩으로 표현할 수 있는 방법에 대해 이야기 해보겠습니다.

 

(위에서 만든 데이터는 그대로 사용할 예정이니 놔두시면됩니다.)

 

또한 가능한한 이제부터 VBA에서 셀을 선택할 때는 Cells를 사용하겠습니다.

300x250

 


1. End 사용하기

 

Cells (1, 1) .End (xlDown)

 

위에서 했던 Ctrl+↓(방향키 아래)와 같은 기능을 가진 코드입니다.

 

밑으로 향하는 xlDown 이외에도 다음과 같은 기능을 사용할 수 있습니다.

 

xlUp : ↑ 위로
xlDown : ↓ 아래로
xlToLeft : ← 왼쪽
xlToRight : → 오른쪽

 

다음과 같이 코딩을 하면 위에서 했던 것이랑 똑같은 결과를 얻을 수 있습니다.

Sub row1() 

    Dim a As String, b As String 
     
    a = Cells(1, 1).End(xlDown) 
     
    Cells(11, 1) = a 
     
    b = Cells(1, 2).End(xlDown) 
     
    Cells(11, 2) = b 
     
End Sub

약간 해석을 하자면 

① 문자열을 받을 수 있는 변수 a, b를 만듭니다

② "A1"의 마지막 행에 있는 데이터를 a에 저장합니다.

③ "A11"에 저장한 a 데이터를 입력합니다.

④ "B1" 또한 같은 내용을 반복합니다.

 

 

 

 

 

<결과>

 

위에서 했던거 처럼 같은 결과를 얻을 수 있습니다.

 


2. 마지막 행의 수 얻기 - .Row

 

마지막으로 그 행의 숫자를 얻을 수 있는 코드를 알려주고 끝내겠습니다.

 

위에서 배웠던

 

Cells (1, 1) .End (xlDown)

 

이거에 .Row를 붙여서 

 

Cells (1, 1) .End (xlDown).Row

 

라고 하면 끝입니다.

 

아래와 같이 프로그래밍을 할 경우 결과는 위와 동일하지만

Sub row2()

    Dim a As String, b As String
    
    a = Cells(1, 1).End(xlDown).Row
    
    Cells(11, 1) = a
    
End Sub

여기서 "A11"에 출력되는 "10은 "A10" 셀에 있는 "10"이 아닙니다.

 

A"10"을 의미하는 10입니다.

 

즉, 행의 숫자를 얻을 수 있는게 

 

Cells (1, 1) .End (xlDown).Row

 

입니다.

 


더 많은 VBA 자료를 보고 싶다면 ☜ 여기!!

오늘은 여기까지 하겠습니다!

반응형

댓글()

기초부터 실전까지 VBA 엑셀9 - 반복문 Do ~ Loop

IT 관련 지식/VBA 공부|2019. 10. 24. 09:29
반응형
728x170

<VBA 엑셀9 - 반복문 Do ~ Loop>

 

이번에는 또 다른 반복문인 Loop에 대해 알아보겠습니다.

 

For 반복문과 Do 반복문의 차이점을 설명하자면

 

For 반복문 : 지정 횟수만큼 반복한다.

 

Do 반복문 : 주어진 조건만큼 반복한다.

 

더 많은 VBA 자료를 보고 싶다면 ☜ 여기!!

 


1. Do 반복문의 기본 형태

 

Do [{While | Until} condition]
  [statements]
  [Exit Do]
  [statements]

Loop

 

각 구문의 뜻을 설명하면 아래와 같습니다.

 

condition 선택 사항입니다.
참 (True) 또는 거짓 (False)을 평가하는 수식 또는 문자열 식을 지정합니다.
인수 condition 값이 Null 인 경우, 인수 condition은 거짓 (False)로 간주됩니다.
statements 인수 condition이 참 (True) 인 동안 또는 인수 condition이 참 (True)로 될 때까지 반복 실행되는
여러 행의 문을 작성합니다.

 

condition에서 사용할 수 있는 조건의 경우 아래와 같습니다.

 

비교 연산자 의미
= 같음
<> 같지 않음
> 초과
> = 이상
< 미만
<= 이하
논리 연산자 의미
And 논리적
Or 논리합

 

다음 예문을 통해 좀 더 상세히 알아보겠습니다.

 

참고로 기초 레벨의 코딩의 경우 코드를 올리지 않겠습니다.

 

왜냐하면 직접 코딩을 하면서 익히는게 더 빨리 외워지고 프로그래밍을 하는 맛이 있거든요 ㅎㅎ


2. Do 조건문의 예시

 

Sub Loop1()
    Dim i
    i = 1
    Do While i <= 10
        Cells(i, 1) = 1
        i = i + 1
    Loop
End Sub

 

위의 VBA 코딩을 실행시켜보면 아래와 같은 결과가 나옵니다.

위에서 While의 의미를 설명하자면

 

300x250

 

<"i"가 10이하일 "동안" 계속 반복해라> 라는 의미입니다.

 

결과는 같지만 조금 다른 예를 한번 더 보겠습니다.


Sub Loop2()

    Dim i
    i = 1
    Do Until i > 10
        Cells(i, 1) = 1
        i = i + 1
    Loop
End Sub

 

이를 실행해보면 위와 똑같은 결과가 나오게 됩니다.

 

여기서 Until의 뜻은

 

<"i"가 10을 넘을 때"까지" 계속해라>라는 의미입니다.

 

뭔가 차이점이 느껴지시나요? ㅎㅎ

 

사실 직접 VBA 프로그래밍을 할 여러분들은 While이나 Until 중 하나만 중점적으로 사용해도 무방합니다.

 


3. Exti Do

 

마지막으로 Loop 반복문을 탈출하는 코딩에 대해 알아보고 마치겠습니다.

 

For 반복문과 마찬가지로 Loop 반복문 또한 탈출하는 코딩이 있습니다.

 

이번 에는 아래와 같이 VBA 코딩을 해봅니다.

 

Sub Loop3()

    Dim i
    i = 1
    Do Until i > 10
        Cells(i, 1) = 1
        i = i + 1

        Exit Do
    Loop
End Sub

 

이를 실행하면 그 결과는 아래와 같이 됩니다.

 

한번만 실행하고 Do ~ Loop 반복문을 끝내는 모습입니다.

 


이것으로 반복문에 대한 설명은 모두 끝났습니다.

 

다음에는 또 다른 수업으로 찾아 뵙겠습니다.

 

더 많은 VBA 자료를 보고 싶다면 ☜ 여기!!

반응형

댓글()