엑셀 매크로 VBA InputBox 다양한 형태 값 입력받기

안녕하세요, 이번 포스팅은 엑셀 매크로 VBA InputBox 다양한 형태 값 입력받기 관련해서 작성하도록 하겠습니다.

InputBox 함수는 엑셀 VBA에서 사용자로부터 정보를 입력받을 때 사용하는데, 여러 가지 데이터를 입력을 할 때 유용하게 사용이 됩니다.

매크로 코드 구현할 때 정말 필수적인 함수 중에 하나니까 아래 제가 설명 드리는 내용 참조 하셔서 꼭 활용해 보시는 걸 추천드립니다.

엑셀 매크로 VBA InputBox

엑셀을 사용하다 보면 사용자로부터 다양한 형태의 값을 입력받아야 할 때가 있습니다.

예를 들어, 특정 작업을 수행하기 위해 사용자로부터 숫자, 텍스트, 또는 선택지를 입력받아야 할 수 있습니다.

이럴 때 VBA(Visual Basic for Applications)의 InputBox 함수를 활용하면 효과적으로 값을 입력받을 수 있습니다.

InputBox 함수는 엑셀 VBA에서 사용자로부터 정보를 입력받을 때 사용됩니다.

이 함수를 사용하면 사용자가 입력한 값을 변수에 할당하여 프로그램에서 활용할 수 있습니다.

이번 포스팅에서는 InputBox 함수를 통해 다양한 형태의 값을 입력받는 방법에 대해 알아보겠습니다.

▶ 크롬 단축키 (feat. 윈도우 버전, 맥북 버전)

다양한 데이터 유형 입력받기

InputBox 함수를 사용하여 사용자로부터 다양한 데이터 유형을 입력받는 방법에 대해 알아보겠습니다.

아래 예제를 통해 각 데이터 유형에 대한 입력 방법을 살펴보겠습니다.

1) 숫자 입력받기

숫자를 입력받는 경우, InputBox 함수에 대상 변수의 데이터 유형을 Double 또는 Integer로 지정합니다.

예를 들어, 아래와 같은 코드를 사용하여 사용자로부터 숫자를 입력받을 수 있습니다.

Sub 숫자_입력받기()
    Dim 입력값 As Double
    입력값 = InputBox("숫자를 입력하세요.", "숫자 입력")
    MsgBox "입력된 숫자는 " & 입력값 & "입니다.", vbInformation
End Sub

위 코드에서는 “숫자를 입력하세요.”라는 메시지와 함께 InputBox가 나타나며, 사용자가 입력한 숫자는 입력값 변수에 할당됩니다.

입력값 변수를 활용하여 원하는 작업을 수행할 수 있습니다.

2) 텍스트 입력받기

텍스트를 입력받는 경우, 대상 변수의 데이터 유형을 String으로 지정합니다.

아래 코드는 사용자로부터 텍스트를 입력받는 예제입니다.

Sub 텍스트_입력받기()
    Dim 입력값 As String
    입력값 = InputBox("텍스트를 입력하세요.", "텍스트 입력")
    MsgBox "입력된 텍스트는 " & 입력값 & "입니다.", vbInformation
End Sub

위 코드에서도 마찬가지로 InputBox를 통해 사용자로부터 텍스트를 입력받고, 입력값 변수에 할당하여 활용합니다.

이렇게 입력된 텍스트는 후속 작업에 활용될 수 있습니다.

그러나, 아직도 편리한 기능을 소개하지 않았어요.

요소의 목록에서 값을 선택하는 경우, Select Case 문을 사용하여 다양한 선택지를 처리할 수 있습니다.

이 부분은 아직 안 만들어진 거에요. 다음 내용에서 계속 알려드릴게요.

계속해서 다양한 데이터 유형을 입력받는 방법을 살펴보겠습니다.

엑셀 매크로 VBA InputBox 를 통한 선택지 입력받기

사용자로부터 여러 선택지 중 하나를 입력받는 경우, Select Case 문을 사용하여 각 선택지에 대한 처리를 구현할 수 있습니다.

아래 코드는 사용자로부터 “예” 또는 “아니요”를 입력받는 예제입니다.

Sub 선택지_입력받기()
    Dim 선택 As String
    선택 = InputBox("예 또는 아니오 중 하나를 입력하세요.", "선택 입력", "예")
    
    Select Case 선택
        Case "예"
            MsgBox "사용자가 '예'를 선택했습니다.", vbInformation
        Case "아니오"
            MsgBox "사용자가 '아니오'를 선택했습니다.", vbInformation
        Case Else
            MsgBox "잘못된 입력입니다. '예' 또는 '아니오'를 입력하세요.", vbExclamation
    End Select
End Sub