엑셀 VBA 데이터 입력하는 텍스트 박스(Text Box) 사용하는 방법

엑셀(Excel)/VBA

엑셀 VBA 데이터 입력하는 텍스트 박스(Text Box) 사용하는 방법

 

환경: Microsoft Excel 2013

 

텍스트 박스는 사용자에게 입력을 받는 도구 입니다. 폼을 구성할 때 가장 많이 사용하는 ActiveX 컨트롤 중에 하나로 사용법은 간단합니다. 오늘은 좀더 쉽게 이해할 수 있도록 여러가지 샘플로 구성해 보았습니다. 버튼을 클릭했을 때 텍스트 박스에 값을 집어 넣거나 텍스트 박스에 있는 값을 워크시트의 셀에 출력하는 샘플입니다.

 

먼저 ActiveX 컨트롤을 추가하기 위해서 [개발 도구] 탭으로 갑니다. 삽입 리본 메뉴를 클릭하시면 양식 컨트롤과 ActiveX 컨트롤 목록을 볼 수 있습니다. 그 중 ActiveX 컨트롤에 있는 텍스트 상자를 클릭합니다.

엑셀 VBA 데이터 입력하는 텍스트 박스(Text Box) 사용하는 방법

 

추가한 텍스트 상자에 값을 넣기 위한 버튼도 추가합니다. 버튼에 이름을 변경하기 위해 오른 마우스를 눌러 [속성] 메뉴를 선택합니다

엑셀 VBA 데이터 입력하는 텍스트 박스(Text Box) 사용하는 방법

 


속성창에서 Caption 항목은 컨트롤의 이름에 해당합니다. Caption 값을 변경하면 바로 반영이 됩니다

엑셀 VBA 데이터 입력하는 텍스트 박스(Text Box) 사용하는 방법

 

코드 편집을 위해 버튼을 더블 클릭하거나 오른 마우스를 눌러 [코드 보기] 메뉴를 선택합니다. 그럼 함수가 자동으로 생성되고 코드를 입력할 수 있는 공간이 만들어 집니다

엑셀 VBA 데이터 입력하는 텍스트 박스(Text Box) 사용하는 방법

 

텍스트 박스 컨트롤에 값을 넣으려면 컨트롤 명을 알아야 합니다. 컨트롤을 선택하면 왼쪽 상단 이름 상자에 이름이 표시 됩니다

엑셀 VBA 데이터 입력하는 텍스트 박스(Text Box) 사용하는 방법

 

텍스트 박스에 이름을 알아 냈으니 버튼을 클릭했을 때 값이 들어갈 수 있도록 소스를 작성합니다. Text 속성에 값을 넣으면 텍스트 박스에 그대로 표현됩니다

엑셀 VBA 데이터 입력하는 텍스트 박스(Text Box) 사용하는 방법

 

간혹 왜 버튼 클릭이 안되지? 하고 의아해 하시는 분들이 있을 겁니다. 작업이 끝나면 디자인 모드를 해제해 줘야 버튼 이벤트를 발생시킬 수 있습니다

엑셀 VBA 데이터 입력하는 텍스트 박스(Text Box) 사용하는 방법

 

이번에는 텍스트 박스에서 값을 꺼내 워크시트로 넣어 보겠습니다. 텍스트에 값을 꺼내는 방법은 TextBox1.value 처럼 컨트롤의 value 속성을 사용하는 것입니다.

 

Private Sub CommandButton1_Click()

   

    TextBox1.Text = "김길동"

    ActiveSheet.Range("B4").Value = TextBox1.Value

   

End Sub

 

엑셀 VBA 데이터 입력하는 텍스트 박스(Text Box) 사용하는 방법


Posted by 녹두장군