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

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

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

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

sUserResp = InputBox(sPrompt, "The Big Question")

iUR = Val(sUserResp)

이 예제에서 InputBox 함수의 응답은 문자열이어야하는 sUserResp 변수에 할당됩니다. 그런 다음 숫자 변수 (정수) 인 iUR 변수가 문자열 값에 따라 설정됩니다. (Val 함수는 문자열로 값을 반환합니다.)

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

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

Sub TestInput()

Dim sPrompt As String     Dim sUserResp As String     Dim iUR As Integer

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

iUR = 0     While iUR < 1 Or iUR > 5         sUserResp = InputBox(sPrompt, "The Big Question")

iUR = Val(sUserResp)

Wend     Select Case iUR         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 사이의 숫자를 입력하도록하기 위해 수행됩니다. 입력 된 값이 해당 범위를 벗어나면 사용자에게 다시 묻습니다.

_ 참고 : _

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

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

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

(Microsoft Word는 세계에서 가장 인기있는 워드 프로세싱 소프트웨어입니다.)이 팁 (10763)은 Microsoft Word 2007, 2010, 2013 및 2016에 적용됩니다. 여기에서 Word의 이전 메뉴 인터페이스에 대한이 팁의 버전을 찾을 수 있습니다.

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