엑셀 입력폼 만들어서 입력하기

질문자 : 비공개

요구사항 :

1. 양식컨트롤의 명칭단추를 삽입하고 텍스트는 상품입력으로, 이 단추 클릭 시 상품입력 대화상자 생성되도록 지정

2. VBA창에서 폼을 두번째 그림과 같이 삽입

3. 상품입력대화상자에서 "입력"버튼 클릭 시 자동으로 시트내 마지막 줄에 데이터를 입력하도록 함

4. 상품입력대화상자에서 "종료"버튼 클릭 시 대화상자가 종료되도록 함

 

 

완성된 파일

제품목록.xlsm

 

시연 영상 

 

 

 

사용된 소스

 

Private Sub exitb_Click()
uf1.Hide

End Sub

 

Private Sub ib_Click()
With ActiveSheet
Dim rng As Range
Set rng = Range("a4")

Do While rng.Value <> ""
Set rng = rng.Offset(1, 0)
Loop

rng.Value = uf1.tb1.Value
rng.Offset(0, 1).Value = uf1.tb2.Value
rng.Offset(0, 2).Value = uf1.tb3.Value

If uf1.ob1.Value = True Then
rng.Offset(0, 3).Value = "O"
ElseIf uf1.ob2.Value = True Then
rng.Offset(0, 3).Value = "X"
Else: MsgBox "제휴여부를선택안됨", vbOKOnly

End If

End With
End Sub