전 국민 코딩 시대 엑셀 VBA 기초 12 - 정수화 함수(Int), 데이터 입력(InputBox)

전 국민 코딩 시대 엑셀 VBA 기초 12 - 정수화 함수(Int), 데이터 입력(InputBox)

"정수화 함수(Int), 데이터 입력(InputBox)"에 대해 알아보겠습니다.

I. 정수화 함수 Int

정수화 함수 Int는 인수에 대해 정수형 수치를 반환하는 함수로 엑셀에서도 동일하게 사용하고 있습니다.
형식 : Int(X)
의미 " X 0보다 크면 소수 이하를 무시하고, X가 0보다 작으면 실수 X보다 하나 낮은 정숫값을 반환합니다.

엑셀에서 INT 함수를 사용한 결과와 VBA 코드에서 Int 함수를 사용한 결과는 동일합니다.

Int 함수의 인수가 양수인 경우 소수 이하 절삭, 음수인 경우는 소수 이하 절삭 후 인수보다 하나 작은 음수 정수를 반환합니다.

Int 함수의 사용 용도는 다양합니다.

주어진 수치가 홀수인지 짝수인지 판단할 때 "If A / 2 = Int( A / 2 )"에서 만약 A의 값이 5일 경우 "If 5 / 2 = Int( 5 / 2 )" 즉 "If 2.5 = 2"의 조건이 성립이 안되기 때문에 A는 홀수가 되는 것이고,

"A = 6"일 경우 "If 3 = 3"의 조건이 성립 되기 때문에 A는 짝수가 되는 겁니다.

동영상 내용중 사사오입한 결과를 구하는 코드는 Int 함수의 좋은 예가 되겠습니다.

출생연도가 평년인지 윤년인지를 판단하는 코드를 작성을 하려고 할 때,
윤년의 해는 4년마다 오며, 4로 나누어 소수부 없이 떨어지는 경우를 윤년으로 판단합니다.

II. InputBox

이전에 MsgBox에 대해 설명을 하였었는데요.
InputBox의 사용방법은 MsgBox와 유사하며, 다른 점은 MsgBox는 OutPut 개념이고 InputBox는 입력 개념으로, 사용자가 입력한 값을 받아서 입력받은 값에 대한 처리를 할 수 있습니다.

1. InputBox 형식
형식 : InputBox(Prompt, Title, Default, Xpos, Ypos, Helpfile, Context)
의미 : 6가지 옵션 중 Prompt는 필수고 나머지 5개는 선택형입니다.
참고로 아래는 Msgbox의 형식인데, 비슷하죠?

Msgbox 형식 : Msgbox(Prompt, Buttons, title, helpfile, context)
의미 : 5가지 옵션 중 Prompt는 필수고 나머지 4개는 선택형입니다.

각 옵션에 대한 설명은 아래의 예문으로 진행합니다.
In_Quiry = InputBox("출생연도를 입력하세요(YYYY)", "윤년/평년 체크")

가. 프롬프트
프롬프트는 필수 요소로 대화 상자에서 메시지로 표시되는 문자열 식입니다.
프롬프트의 최대 길이는 사용된 문자의 너비에 따라 약 1024자로, 프롬프트가 둘 이상의 줄로 구성된 경우 캐리지 리턴 문자(Chr(13)), 줄 바꿈 문자(Chr(10) 또는 캐리지 리턴-줄 바꿈 문자 조합(Chr(13) & Chr(10))을 사용하여 줄을 구분 할 수 있습니다.

나. 제목(Title)
선택 요소로, 대화 상자의 제목 표시줄에 표시되는 문자열 식으로 제목을 생략하면 애플리케이션 이름(MicroSoft Excel) 이 제목 표시줄에 배치됩니다.

다. 기본값(Default)
선택 요소로 기본값을 생략하면 텍스트 상자가 비어 표시됩니다.
In_Quiry = InputBox("출생연도를 입력 하세요(YYYY)", "윤년/평년 체크", 2024, 1920 * 5, 1080 * 5)

라. 가로 위치(Xpos)
선택 요소로 화면의 왼쪽 가장자리에서 대화 상자 왼쪽 가장자리의 가로 거리를 트윕(Twips*) 단위로 지정하는 숫자이며, Xpos를 생략하면 대화 상자가 가로 가운데에 배치됩니다.

Twips는 화면 요소의 비율 단위로 1/1440 인치를 나타내며, "1920 x 1080"기준으로 "1920 * 5, 1080 * 5"와 같이 수식으로 지정할 수 있습니다.

마. 세로 위치(Ypos)

선택 요소로 화면 위쪽에서 대화 상자 위쪽 가장자리의 세로 거리를 Twips 단위로 지정하는 숫자 이며, Ypos를 생략하면 대화 상자가 화면 아래쪽의 약 3분의 1에 수직으로 배치됩니다.

바. 도움말 파일(Helpfile), 컨텍스트(context)
이 부분은 Pass 합니다.

2. 윤년 체크 프로그램(InputBox 사용 )

아래와 같이 대화상자(InputBox)에서 출생연도를 입력하면 입력 시킨 출생년이 윤년인지 평년인지 판단하다는 코드를 작성합니다.

아래의 윤년 평년 체크 코드에서 Do While In_Quiry != "end"에 의해 "end"라는 텍스트를 입력할 때까지 Do While ~ Loop를 반복 수행합니다.

Sub InputBox_Test2()
' 윤년 평년 체크
Dim In_Quiry, A, B As String

A = "출생연도를 입력 하세요(YYYY)"
B = "윤년/평년 체크"

Do While In_Quiry != "end"

In_Quiry = InputBox(A, B, , 1920 * 1.6, 1080 * 6.5)

If In_Quiry / 4 != Int(In_Quiry / 4) Then
MsgBox "평년!!", , "평년 체크"
Else
MsgBox "윤년!!", , "윤년 체크"

End If
Loop

End Sub

이상 "전 국민 코딩 시대 엑셀 VBA 기초 12 - 정수화 함수(Int), 데이터 입력(InputBox)"에 대해 알아보았습니다.
==============
참고 : 네이버 블로그 -
전 국민 코딩 시대 엑셀 VBA 기초 12 - 정수화 함수(Int), 데이터 입력(InputBox)
https://blog.naver.com/jxbjultd/22345...