Private Sub CommandButton1_Click()
Dim lrow
lrow = Sheet1.Cells(Sheet1.Rows.Count, "a").End(xlUp).Row + 1
Cells(lrow, 1).Value = TextBox1.Text
Cells(lrow, 2).Value = TextBox2.Text
Cells(lrow, 3).Value = ComboBox1.Text
Cells(lrow, 4).Value = ComboBox2.Text
Cells(lrow, 5).Value = TextBox3.Text
Cells(lrow, 6).Value = TextBox4.Text
TextBox1 = ""
TextBox2 = ""
ComboBox1 = ""
ComboBox2 = ""
TextBox3 = ""
TextBox4 = ""
End Sub
Private Sub CommandButton2_Click()
TextBox1 = ""
TextBox2 = ""
ComboBox1 = ""
TextBox3 = ""
TextBox4 = ""
End Sub
Private Sub CommandButton3_Click()
Hide
End Sub
Private Sub userform_initialize()
ComboBox1.AddItem " فوق لیسانس"
ComboBox1.AddItem " لیسانس"
ComboBox1.AddItem " فوق دیپلم"
ComboBox2.AddItem " ۵ساا"
ComboBox2.AddItem " 10سال"
ComboBox2.AddItem " 15سال"
End Sub
کامنت