[엑셀]VBA입문(5)-조건문IF

이전 글

[엑셀] VBA입문(0)-VBA란?

[엑셀] VBA입문(1)-VBA실행법

[엑셀] VBA입문(2)-변수

[엑셀] VBA입문(3)-반복문

[엑셀] VBA입문(4)-반복문 2

---

오늘은 조건문 IF에 대해 알아봅시다.

 

IF의 기본적이 구조는 이렇습니다.

 

If 조건 Then

    조건이 TRUE일 때 실행할 내용

Else

    조건이 FALSE일 때 실행할 내용

End If

 

IF문은 특정한 조건에 값이 참인지 아닌지에 따라 어떤 내용을 실행할지 정하는데요

조건이 FALSE일 때 반응하는 else의 경우에는 쓰지 않더라고 작동합니다.

 

그럼 바로 직접 써보도록 하죠

 

먼저 IF를 사용하기 전에

 

Sub random()
    Dim i As Long
    For i = 1 To 10
        Cells(i, 1). Value = Int(Rnd() * 100) + 1
    Next
End Sub

 

이렇게 For과 Rnd를 이용해서 A1에서 A10까지 1~100 사이에 랜덤 한 숫자를 만들어 주었습니다.

그럼 이 셀들 중에 값이 50을 넘어가는 셀의 색이 변하는 것을 IF를 통해 만들어 보죠

 

Sub ifif()
    Dim i As Long
    For i = 1 To 10
        If Cells(i, 1) > 50 Then
            Cells(i, 1).Interior.ColorIndex = 3
        End If
    Next
End Sub

 

이렇게 입력을 하고 실행을 해보면

셀의 색이 변하는 것을 볼 수 있습니다.

 

그러면 else도 사용해볼까요

 

Sub ifif() Dim i As Long
    For i = 1 To 10
        Cells(i, 1).Value = Int(Rnd() * 100) + 1
        If Cells(i, 1) > 50 Then
            Cells(i, 1).Interior.ColorIndex = 3
        Else
            Cells(i, 1).Interior.ColorIndex = 4
        End If
    Next
End Sub

 

하면서 랜덤도 추가해서 실해할 때마다 값이 변하게 했습니다.

이걸 실행하면

 

 

실행할 때마다 값과 셀의 색이 변화는 것을 볼 수 있습니다.

 

 

반복문과 조건문을 알아보면서 꼭 끝번호를 직접 입력해야 하나 라는 생각을 할 수도 있습니다.

매번 직접 입력해야 하지 불편하죠

그러 다음 시간에는 행 또는 열 끝번호를 자동으로 알아내는 법을 알아보도록 해보죠

그럼 이만

 

다음글

[엑셀]VBA입문(6)-끝열, 끝행 찾기

[엑셀]VBA입문(6)-끝열, 끝행 찾기