엑셀 vba InputBox로 값 및 범위 입력받기

 

엑사남 vba 22강 따라하기

엑셀파일 다운로드

엑셀 vba Inputbox 입력받기.xlsm

0.02MB

Sub InputBoxAll() Dim strBT As String strBT = Application.Caller     If strBT = "버튼1" Then         InputBoxName     ElseIf strBT = "버튼2" Then         InputBoxXY     ElseIf strBT = "버튼3" Then         InputBoxAge     End If End Sub

Sub InputBoxName() Dim strName As String HereInputbox:     'strName = Application.InputBox(prompt:="성명을 입력하세요.", Title:="성명 입력", Default:="홍길동")     '아래는 정해진 자리에 그냥 적은 것. 훨씬 간단함. strName = Application.InputBox("성명을 입력하세요.", "성명 입력", "홍길동")     If strName = "False" Then             'False(첫글자 대문자)는 취소를 받음         MsgBox "취소하였습니다."         Exit Sub     Else             If strName = "" Then                 MsgBox "입력한 성명이 없습니다."                 GoTo HereInputbox             End If         Range("C3") = strName     End If End Sub

Sub InputBoxXY() Dim rngXY As Range On Error Resume Next '''에러가 발생하여도 다음 코드로 진행함 Set rngXY = Application.InputBox("성별을 선택하세요.", "성별 입력", "성별 선택", , , , , 8)     '취소를 누르면 에러가 나는 것을 (On Error Resume Next)로 넘어감         If rngXY Is Nothing Then             MsgBox "취소하였습니다."         Else             Range("c5") = rngXY         End If On Error GoTo 0 '''에러가 나면 표시하도록 다시 변경함 End Sub

Sub InputBoxAge() Dim strAge As String strAge = Application.InputBox("나이를 입력하세요.", "나이 입력", "12")     If strAge = "False" Then         MsgBox "취소하였습니다."     Else         Range("c7") = strAge     End If End Sub