返回列表 上一主題 發帖

[發問] TEXTBOX間傳值

[發問] 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:25 編輯

回復 1# sammay


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

  2. If UserForm3.TextBox1.Text = "a" Then
  3.    UserForm3.TextBox2.Text = UserForm3.TextBox1.Text
  4.    UserForm3.TextBox3.Text = ""
  5. End If
  6. If UserForm3.TextBox1.Text = "b" Then
  7.    UserForm3.TextBox2.Text = ""
  8.    UserForm3.TextBox3.Text = UserForm3.TextBox1.Text
  9. End If

  10. End Sub
複製代碼

TOP

回復 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
複製代碼

TOP

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

TOP

        靜思自在 : 發脾氣是短暫的發瘋。
返回列表 上一主題