엑셀 vba 유저폼 UserForm 사용하기

엑사남 23강 따라하기

엑셀 파일 다운로드

유저폼 입력 및 수정.xlsm

0.03MB

Sub ShowUF1()     UserForm1.Show End Sub Sub ShowUF2()     UserForm2.Show End Sub

유저폼1 Private Sub CommandButton1_Click()          '추가하기 Dim intR As Integer     intR = Cells(Rows.Count, "d").End(xlUp).Row + 1     Range("c" & intR) = "=row()-2"     Range("d" & intR) = Me.TextBox1     Range("e" & intR) = Me.ComboBox1     Range("f" & intR) = Val(Me.TextBox3)                         '숫자로 입력     With Range("c" & intR).Resize(1, 4)         .Borders.LineStyle = 1         .HorizontalAlignment = xlCenter     End With     Me.TextBox1=""     Me.TextBox3=""     Me.ComboBox2=""     Range("d" & intR + 1).Select     Application.CutCopyMode = False Unload UserForm1 End Sub

유저폼1 Private Sub UserForm_Initialize()     Me.ComboBox1.List = Array("남", "여") End Sub

유저폼2 Private Sub CommandButton1_Click()         '조회하기     Range("L3") = Me.TextBox3     Me.ComboBox1 = Range("M3")     Me.TextBox2 = Range("N3") End Sub Private Sub CommandButton2_Click()         '수정하기     Range("d" & Range("J2")) = Me.TextBox3     Range("e" & Range("J2")) = Me.ComboBox1     Range("f" & Range("J2")) = Val(Me.TextBox2)                                    '숫자로 입력     Me.TextBox3 = ""     Me.TextBox2 = ""     Me.ComboBox1 = "" End Sub Private Sub CommandButton3_Click()         '삭제하기     Range("D" & Range("J3")).Offset(0, -1).Resize(1, 4).Delete     Me.TextBox3 = ""     Me.TextBox2 = ""     Me.ComboBox1 = ""    End Sub Private Sub UserForm_Initialize()     Me.ComboBox1.List = Array("남", "여") End Sub