VBA 2. Visual Basic 기능 사용해서 메세지 출력 폼 만들기

728x90

SMALL

반응형

VBA 1. 기초 세팅을 하고 이제 쓸만한 코드를 작성해보려고 한다.

VBA 1. 기초 세팅

탭 - 개발 도구 - Visual Basic 을 클릭하면 아래같이 오래된 프로그램같은 화면이나온다.
여기에서 많은것을 할수있다.

 삽입 - 사용자 정의 폼을 클릭한다.

그러면 위 처럼 화면을 만들수있는 UserForm1와 도구 상자가 나온다.

A 모양의 객체를 클릭하고 UserForm1에 클릭하면 아래처럼  그려놓을수있다. 

이런식으로 폼의 디자인을 하는것이다. ab를 클릭해서 놓으면 입력하는 창이 나온다.

명령 단추를 클릭하면 아래 처럼 버튼을 만들수있다.

Label1, CommandButton1의 글자를 변경해보겠다.

유저폼의 빈화면에 우클릭하고 속성을 클릭한다. 그러면 아래 속성이 생긴다.

Label을 클릭하고 Caption 에서 입력값이라고 수정한다.

그러면 이렇게 적용된다.

똑같이 메세지 출력으로 버튼도 수정한다.

그리고 UserForm1도 메세지 출력 테스트로 수정한다. 방법은 동일하다.

화면은 이제 완성이다. 이제 버튼을 클릭해서 메세지 출력되도록 수정하겠다.

메세지 출력 버튼을 더블클릭한다.

이런 하얀 화면이 나온데 여기에 코드를 입력할것이다. 

Private Sub CommandButton1_Click()
MsgBox TextBox1.Text
End Sub

이렇게 작성한다.
TextBox1은 입력창을 클릭해보면 이름에 나와있다. 맞춰서 작성하면된다.

이제 폼위에 초록생 세모를 클릭하면 결과가 나온다.

입력하고 메세지 출력하면 메세지가 출력된다.

이렇게 완성한것이다.

이제 만든 폼을 엑셀 시트와 연결시킬것이다. 개발 도구 - 삽입 - 양식컨트롤 - 단추 를 클릭하고 적당히 시트에 그려넣는다.

그러면 아래처럼 나오는데 새로 만들기를 클릭한다.

그러면 또다시 코드 작성하는 부분이나오는데, 

아까 만든 유저폼을 실행시키는 코드를 넣겠다.

Sub 단추1_Click()
UserForm1.Show
End Sub

이렇게 입력하고 다시 엑셀 시트로 나오면

이렇게 단추1 로 나오는데 클릭해보면 아까만든 유저폼이 출력된다.

단추이름도 우클릭 - 좌클릭으로 수정할수있다.

최종적으로 이렇게 결과가 나왔다.

유저폼을 만들고 이렇게 입력값을 받아서 설문조사 폼으로 만들수도있고, 회원가입, 로그인창으로도 만들수있다.