|
엑셀 VBA 데이터 입력하는 텍스트 박스(Text Box) 사용하는 방법 |
|
환경: Microsoft Excel 2013 |
텍스트 박스는 사용자에게 입력을 받는 도구 입니다. 폼을 구성할 때 가장 많이 사용하는 ActiveX 컨트롤 중에 하나로 사용법은 간단합니다. 오늘은 좀더 쉽게 이해할 수 있도록 여러가지 샘플로 구성해 보았습니다. 버튼을 클릭했을 때 텍스트 박스에 값을 집어 넣거나 텍스트 박스에 있는 값을 워크시트의 셀에 출력하는 샘플입니다.
▼ 먼저 ActiveX 컨트롤을 추가하기 위해서 [개발 도구] 탭으로 갑니다. 삽입 리본 메뉴를 클릭하시면 양식 컨트롤과 ActiveX 컨트롤 목록을 볼 수 있습니다. 그 중 ActiveX 컨트롤에 있는 텍스트 상자를 클릭합니다.
▼ 추가한 텍스트 상자에 값을 넣기 위한 버튼도 추가합니다. 버튼에 이름을 변경하기 위해 오른 마우스를 눌러 [속성] 메뉴를 선택합니다.
▼ 속성창에서 Caption 항목은 컨트롤의 이름에 해당합니다. Caption 값을 변경하면 바로 반영이 됩니다.
▼ 코드 편집을 위해 버튼을 더블 클릭하거나 오른 마우스를 눌러 [코드 보기] 메뉴를 선택합니다. 그럼 함수가 자동으로 생성되고 코드를 입력할 수 있는 공간이 만들어 집니다.
▼ 텍스트 박스 컨트롤에 값을 넣으려면 컨트롤 명을 알아야 합니다. 컨트롤을 선택하면 왼쪽 상단 이름 상자에 이름이 표시 됩니다.
▼ 텍스트 박스에 이름을 알아 냈으니 버튼을 클릭했을 때 값이 들어갈 수 있도록 소스를 작성합니다. Text 속성에 값을 넣으면 텍스트 박스에 그대로 표현됩니다.
▼ 간혹 왜 버튼 클릭이 안되지? 하고 의아해 하시는 분들이 있을 겁니다. 작업이 끝나면 디자인 모드를 해제해 줘야 버튼 이벤트를 발생시킬 수 있습니다.
▼ 이번에는 텍스트 박스에서 값을 꺼내 워크시트로 넣어 보겠습니다. 텍스트에 값을 꺼내는 방법은 TextBox1.value 처럼 컨트롤의 value 속성을 사용하는 것입니다.
|
Private Sub CommandButton1_Click()
TextBox1.Text = "김길동" ActiveSheet.Range("B4").Value = TextBox1.Value
End Sub
|
댓글을 달아 주세요