September 03, 202200:09:41

Lesson 49 Excel Vba User Form Public Sub & Private Sub

'Form 1 code
Public a As Integer

Public Sub CommandButton1_Click()
ListBox1.AddItem TextBox1.Text & "----------" & Val(TextBox2.Text) * a

End Sub

Private Sub CommandButton2_Click()
UserForm2.Show
End Sub


Private Sub UserForm_Initialize()
a = 5
End Sub

'form2 code
Private Sub CommandButton1_Click()
UserForm1.TextBox1 = TextBox1.Text
UserForm1.TextBox2 = TextBox2.Text
Call UserForm1.CommandButton1_Click
End Sub

Private Sub CommandButton2_Click()
UserForm1.a = Val(TextBox3.Text)
End Sub