텍스트 박스는 사용자에게 입력을 받는 도구 입니다. 폼을 구성할 때 가장 많이 사용하는 ActiveX 컨트롤 중에 하나로 사용법은 간단합니다. 오늘은 좀더 쉽게 이해할 수 있도록 여러가지 샘플로 구성해 보았습니다. 버튼을 클릭했을 때 텍스트 박스에 값을 집어 넣거나 텍스트 박스에 있는 값을 워크시트의 셀에 출력하는 샘플입니다.
▼ 먼저 ActiveX 컨트롤을 추가하기 위해서 [개발 도구] 탭으로 갑니다. 삽입 리본 메뉴를 클릭하시면 양식 컨트롤과 ActiveX 컨트롤 목록을 볼 수 있습니다. 그 중 ActiveX 컨트롤에 있는 텍스트 상자를 클릭합니다.
▼ 추가한 텍스트 상자에 값을 넣기 위한 버튼도 추가합니다. 버튼에 이름을 변경하기 위해 오른 마우스를 눌러 [속성] 메뉴를 선택합니다.
| ※ 아래는 참고하면 좋을 만한 글들의 링크를 모아둔 것입니다. ※ ▶ 엑셀 VBA 각종 함수 사용법과 샘플 소스 쉽게 얻는 방법 ▶ 엑셀 VBA 개발할 때 로그 출력하는 방법 ▶ 엑셀 VBA 매크로 디버깅, 디버그 코드 분석하기 ▶ 엑셀 VBA 셀 영역 선택하는 여러가지 방법 ▶ 엑셀 VBA 사용자가 선택한 영역 값, 셀 주소 정보 알아 내기 |
▼ 속성창에서 Caption 항목은 컨트롤의 이름에 해당합니다. Caption 값을 변경하면 바로 반영이 됩니다.
▼ 코드 편집을 위해 버튼을 더블 클릭하거나 오른 마우스를 눌러 [코드 보기] 메뉴를 선택합니다. 그럼 함수가 자동으로 생성되고 코드를 입력할 수 있는 공간이 만들어 집니다.
▼ 텍스트 박스 컨트롤에 값을 넣으려면 컨트롤 명을 알아야 합니다. 컨트롤을 선택하면 왼쪽 상단 이름 상자에 이름이 표시 됩니다.
▼ 텍스트 박스에 이름을 알아 냈으니 버튼을 클릭했을 때 값이 들어갈 수 있도록 소스를 작성합니다. Text 속성에 값을 넣으면 텍스트 박스에 그대로 표현됩니다.
▼ 간혹 왜 버튼 클릭이 안되지? 하고 의아해 하시는 분들이 있을 겁니다. 작업이 끝나면 디자인 모드를 해제해 줘야 버튼 이벤트를 발생시킬 수 있습니다.
▼ 이번에는 텍스트 박스에서 값을 꺼내 워크시트로 넣어 보겠습니다. 텍스트에 값을 꺼내는 방법은 TextBox1.value 처럼 컨트롤의 value 속성을 사용하는 것입니다.
| Private Sub CommandButton1_Click() TextBox1.Text = "김길동" ActiveSheet.Range("B4").Value = TextBox1.Value End Sub |
| ※ 아래는 참고하면 좋을 만한 글들의 링크를 모아둔 것입니다. ※ ▶ 엑셀 VBA 각종 함수 사용법과 샘플 소스 쉽게 얻는 방법 ▶ 엑셀 VBA 개발할 때 로그 출력하는 방법 ▶ 엑셀 VBA 매크로 디버깅, 디버그 코드 분석하기 ▶ 엑셀 VBA 셀 영역 선택하는 여러가지 방법 ▶ 엑셀 VBA 사용자가 선택한 영역 값, 셀 주소 정보 알아 내기 |
'엑셀(Excel) > VBA' 카테고리의 다른 글
| 엑셀 VBA 함수 Len 문자열의 길이 반환하기 (0) | 2023.11.18 |
|---|---|
| 엑셀 VBA 함수 Mid 문자열의 일부를 추출하기 (1) | 2023.11.18 |
| 엑셀(VBA) InputBox 함수 이용해서 입력값 받기 (0) | 2023.11.12 |
| 엑셀 Excel VBA 개발 도구를 이용해서 버튼 삽입하고 함수 연결하기 (2) | 2023.11.11 |
| 엑셀 VBA Select Case 문 사용해서 다중조건 처리하기 (0) | 2023.11.09 |
| 엑셀 VBA IF 지시 구문 사용하는 방법, IF … ELSEIF … ELSE … ENDIF (4) | 2023.09.20 |
| 엑셀 VBA 파일 다이얼로그 사용하기 (0) | 2023.09.17 |
| 엑셀 VBA 셀 영역 선택하는 여러가지 방법 (1) | 2023.09.06 |
