매크로 개발을 막 시작하는 경우 사용자에게 일련의 선택 사항을 제공 한 다음 사용자의 응답에 따라 조치를 취하는 간단한 방법을 찾고있을 수 있습니다. Select Case 구조와 함께 InputBox 함수를 사용하면 비교적 간단한 작업입니다.

첫 번째 작업은 사용자에게 정보를 표시하도록 InputBox를 설정하는 것입니다. 예를 들어, 5 개의 옵션이 있고 사용자가이 5 개의 옵션 중에서 하나를 선택하도록한다고 가정 해 보겠습니다. 다음 코드를 사용하여 다섯 가지 옵션을 한 줄에 하나씩 조합 할 수 있습니다.

Prompt = "1. This is your first choice" & vbCrLf Prompt = Prompt & "2. This is your second choice" & vbCrLf Prompt = Prompt & "3. This is your third choice" & vbCrLf Prompt = Prompt & "4. This is your fourth choice" & vbCrLf Prompt = Prompt & "5. This is your fifth choice"

이제 매크로에서 InputBox 함수를 호출 할 때 Prompt 문자열을 사용할 수 있습니다. 그런 다음 사용자가 응답하는 내용을 5 가지 옵션 중에서 선택한 것을 나타내는 숫자로 변환합니다. 이를 수행하는 코드는 다음과 같습니다.

UserResp = InputBox(Prompt, "The Big Question")

UR = Val(UserResp)

이 예에서 InputBox 함수의 응답은 문자열로 차원이 지정되어야하는 UserResp 변수에 할당됩니다. 정수로 차원이 지정되어야하는 UR 변수는 문자열 값을 기반으로 설정됩니다. (Val 함수는 문자열로 값을 반환합니다.)

남은 일은 1에서 5까지 선택된 숫자에 따라 조치를 취하는 것입니다. 케이스 선택 구조를 사용하여이를 수행 할 수 있습니다.

전체 서브 루틴은 다음과 같이 나타날 수 있습니다.

Sub Macro1()

Dim Prompt As String     Dim UserResp As String     Dim UR As Integer

Prompt = "1. This is your first choice" & vbCrLf     Prompt = Prompt & "2. This is your second choice" & vbCrLf     Prompt = Prompt & "3. This is your third choice" & vbCrLf     Prompt = Prompt & "4. This is your fourth choice" & vbCrLf     Prompt = Prompt & "5. This is your fifth choice"

UR = 0     While UR < 1 Or UR > 5         UserResp = InputBox(Prompt, "The Big Question")

UR = Val(UserResp)

Wend     Select Case UR         Case 1             'Do stuff for choice 1 here         Case 2             'Do stuff for choice 2 here         Case 3             'Do stuff for choice 3 here         Case 4             'Do stuff for choice 4 here         Case 5             'Do stuff for choice 5 here     End Select End Sub

이 예제는 InputBox 함수 주위에 While …​ Wend 루프를 사용합니다. 이는 사용자가 1에서 5 사이의 숫자를 입력하도록하기 위해 수행됩니다. 입력 된 값이 해당 범위를 벗어나면 사용자에게 다시 묻습니다.

_ 참고 : _

이 페이지 (또는 ExcelTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / excelribbon-ExcelTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_ExcelTips_는 비용 효율적인 Microsoft Excel 교육을위한 소스입니다.

이 팁 (3098)은 Microsoft Excel 97, 2000, 2002 및 2003에 적용됩니다. 여기에서 Excel (Excel 2007 이상)의 리본 인터페이스에 대한이 팁 버전을 찾을 수 있습니다.

link : / excelribbon-Offering_Options_in_a_Macro [매크로의 제공 옵션].