register313

¦^´_ 1# sammay


       Private Sub TextBox1_ENTER()
=>   Private Sub TextBox1_Change()

1. Private Sub TextBox1_Change()
   
2. 
   
3. If UserForm3.TextBox1.Text = "a" Then
   
4.    UserForm3.TextBox2.Text = UserForm3.TextBox1.Text
   
5.    UserForm3.TextBox3.Text = ""
   
6. End If
   
7. If UserForm3.TextBox1.Text = "b" Then
   
8.    UserForm3.TextBox2.Text = ""
   
9.    UserForm3.TextBox3.Text = UserForm3.TextBox1.Text
   
10. End If
    
11. 
    
12. End Sub

½Æ»s¥N½X