[ 엑셀VBA 4 ] 불량관리 프로그램 만들기 - 반복문 For ~ next , Do while

 

 

 

 

[ 엑셀VBA 4 ] 불량관리 프로그램 만들기 - 반복문 For ~ next, Do while

 

 

엑셀 VBA로 데이터 관리 프로그램을 만들려다 보면 데이터를 조회하거나 일정한 수로 반복적으로 증가하는 입력에

대하여 좀더 쉽게 입력할 방법을 생각하는 분들이 있을 것이다. 이때 사용할 수 있는 구문이 Do while 문과 For next문

이다.

 

먼저 for next 문을 설명을 하자면

 

for 변수= 초기값 to 종료값

        만약, 중간에 for문은 빠져나가고 싶다면 exit for

next 변수

 

for 문 예시 - 구구단 2단 만들기

 

Sub 구구단2단()
Dim a As Integer

Dim b As Integer
Dim c As Integer

Dim d As String
Dim d1 As String
Dim result As String

For a = 2 To 2    '--> 구구단 2단을 시작 만약, 3단 까지 하고 싶다는 진한 2부분을 3으로 변경
    For b = 1 To 19  '--> 2단을 19까지 곱셈함
            c = a * b   '--> c는 곱셈한 값임.
            If b = 1 Then
               d = a & "×" & b & "=" & c
               result = d
            Else
               d1 = a & "×" & b & "=" & c
               result = d1 & vbCr & result
            End If

            '--> 계산방법을 누적해서 문자로 표현해 누적
              If b = 5 Then Exit For  '--> 5번째까지 계산 후 나가고 싶다면 ... 사용
    Next b
Next a
MsgBox result  '--> 결과를 표시함.
End Sub

 

 

 

 

 

 

 

Do while문을 설명을 하자면

 

변수 = 시작값

Do While 변수종료 조건

        만약, 중간에  Do While 문은 빠져나가고 싶다면 exit do

        변수 = 변수 + 증가값

Loop  

 

Do While 문 예시 - 구구단 2단 만들기

Private Sub TestDoWhile()
Dim a As Integer

Dim b As Integer
Dim c As Integer

Dim d As String
Dim d1 As String
Dim result As String

    a = 2
    Do While a <= 2
        b = 1
        Do While b <= 19
            c = a * b   '--> c는 곱셈한 값임.
            If b = 1 Then
               d = a & "×" & b & "=" & c
               result = d
            Else
               d1 = a & "×" & b & "=" & c
               result = d1 & vbCr & result
            End If

            '--> 계산방법을 누적해서 문자로 표현해 누적
             ' If b = 5 Then Exit Do '--> 5번째까지 계산 후 나가고 싶다면 ... 사용

            b = b + 1 ' --> 변수의 증가
        Loop
        a = a + 1 '--> 변수의 증가
    Loop
    MsgBox result  '--> 결과를 표시함.
End Sub

 

위와 같이 약간의 수식만 사용방법만 틀릴 뿐 같은 결과를 만들 수 있다..

 

구구단.xlsm

 

불량율관리 프로그램 만들기 시리즈

 

1. 매크로의 이해

2. 절대참조와 상대참조

3. 조건절 if

4. 반복문 for - next

 

5. 조건문 select case

6. 데이터베이스의 구성

7. 유효성검사를 통한 입력 규칙만들기

8. 이중유효성검사 적용

 

9. 엑셀 데이터베이스 사용설정 적용하기

10. 분석툴 만들기

11. 데이터입력 행삽입 모듈만들기

12. 대용량 DB사용을 위한 SQL함수 알아보기

13. SQL 합수 프로그램에 적용하기