Q21. 사용자 양식에서 텍스트 상자와 버튼을 사용하는 방법?

이번에는 유저 폼의 파트의 일종인, 텍스트 박스와 버튼을 이용해 갑니다.

사용자 양식의 텍스트 상자에 문자열을 넣고 버튼을 누르면 활성 셀에
문자열을 입력한다는 것을 만들어 봅시다.

■ 사용자 양식에 텍스트 상자와 버튼 배치

1. 먼저 사용자 양식을 엽니다.
툴박스가 보이지 않으면 아래에서 볼 수 있습니다.


2. 텍스트 상자를 배치합니다. 도구 상자에서 텍스트 상자를 선택하고,
사용자 양식에 배치합니다.



3. 명령 버튼을 배치합니다. 도구 상자에서 명령 상자를 선택하고,
사용자 양식에 배치합니다.



4. 배치한 파트의 크기를 자신의 취향에 따라 적절히 변경해 갑니다.



5. 명령 버튼에 표시되는 문자열을 변경합니다. 명령 버튼을 선택하고,
다음 Caption의 문자열을 변경합니다. 이번에는 입력합니다.



6. 글꼴에서 문자의 크기를 변경하여 스타일을 굵게 표시합니다.
이쪽도 취향에 해주세요.



이제 사용자 양식이 완성됩니다.
매크로입니다만, 이번은 표준 모듈에의 기술은 아닙니다.
왜냐하면, 버튼을 눌렀을 때의 거동을 기술해 가기 때문입니다.

어디에 기술할까 하면, 이번에 배치한 커맨드 버튼을 더블 클릭하면,
코드를 설명하는 화면이 나옵니다.

Private Sub CommandButton1_Click()
※여기에 코드를 기술.
End Sub

■답변

Private Sub CommandButton1_Click()
ActiveCell.Value = TextBox1.Text
End Sub

■해설

이번에 쓰는 것은 단 한 줄입니다.
어느 쪽인가 하면, 유저 폼의 배치 쪽이 메인군요.
TextBox1.Text에서 이전에 배치한 텍스트 상자에 입력한 값
얻을 수 있습니다.

단, 이대로는 사용자 폼을 호출할 수 없으므로,
표준 모듈에 호출하는 매크로를 작성합시다.

UserForm1.Show로 작성하면 괜찮습니다.

실행 결과는 다음과 같습니다.

적절한 셀(이번에는 B2 셀)을 선택합니다.


사용자 양식을 호출하는 매크로를 실행하고 텍스트 상자에 안녕하세요를 입력했습니다.
그런 다음 입력 버튼을 누릅니다.


B2 셀에 "안녕하세요"를 입력 할 수있었습니다.