麻辣家族討論版版 » Excel程式區 » TEXTBOX間傳值

返回列表下一主題上一主題發帖

[發問] TEXTBOX間傳值

中學生 Rank: 2

帖子: 67
主題: 21
精華: 0
積分: 113
點名: 0
作業系統: Windows 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-11-21
最後登錄: 2019-4-23

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 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

樓主熱帖

收藏

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

2^#

發表於 2011-12-16 14:21 | 只看該作者

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

回復 1# sammay

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

Private Sub TextBox1_Change()
If UserForm3.TextBox1.Text = "a" Then
UserForm3.TextBox2.Text = UserForm3.TextBox1.Text
UserForm3.TextBox3.Text = ""
End If
If UserForm3.TextBox1.Text = "b" Then
UserForm3.TextBox2.Text = ""
UserForm3.TextBox3.Text = UserForm3.TextBox1.Text
End If
End Sub

複製代碼

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2011-12-16 14:25 | 只看該作者

回復 1# sammay
試試看

Private Sub TextBox1_Change()
If TextBox1 = "a" Then
TextBox2 = TextBox1
TextBox3 = ""
ElseIf TextBox1 = "b" Then
TextBox3 = TextBox1
TextBox2 = ""
End If
End Sub

複製代碼

中學生 Rank: 2

帖子: 67
主題: 21
精華: 0
積分: 113
點名: 0
作業系統: Windows 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-11-21
最後登錄: 2019-4-23

4^#

發表於 2011-12-16 14:36 | 只看該作者

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

靜思自在 : 【是否發揮了良能？】人間壽命因為短暫，才更顯得珍貴。難得來一趟人間，應問是否為人間發揮了自己的良能，而不要一味求長壽。

返回列表下一主題上一主題