標題: [發問] TEXTBOX間傳值 [打印本頁]

---

作者: sammay    時間: 2011-12-16 14:08     標題: TEXTBOX間傳值

我在VBA自訂表單(例：userform3)中，建立了一個textbox(例：textbox1)，同表單中也有textbox2，textbox3。
如果textbox1為a時，將textbox1的值(a)複製到textbox2，textbox3保持空值
如果textbox1為b時，將textbox1的值(b)複製到textbox3，textbox2保持空值
請問大大，應該怎麼做才可以呢？

下列是我寫的程式碼(不能如上述運作)
Private Sub TextBox1_ENTER()
If UserForm3.TextBox1.Text = "a" Then
   UserForm3.TextBox2.Text = UserForm3.TextBox1.Text
End If
End Sub

---

作者: register313    時間: 2011-12-16 14:21

本帖最後由 register313 於 2011-12-16 14:25 編輯

回復 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

複製代碼

---

作者: GBKEE    時間: 2011-12-16 14:25

回復 1# sammay
試試看

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

複製代碼

---

作者: sammay    時間: 2011-12-16 14:36

回復 3# GBKEE
原來將ENTER改成Change就可以了
感謝register313與GBKEE的回覆

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)