作者drumkid (拉普拉斯惡魔)
看板Visual_Basic
標題Re: [VBA ] TextBox輸入的問題??
時間Mon Apr 30 10:40:44 2007
※ 引述《mywheat (麥田)》之銘言：
: ※ 引述《drumkid (拉普拉斯惡魔)》之銘言：
: : 請問大家
: : 當我輸入完一個TextBox後
: : 要怎樣按Enter直接切換到下一個TextBox
: : 輸入完最後的TextBox按Enter
: : 直接執行Button
: : 希望大家給我提示
: : 我有一本旗標出版的"Excel VBA功能索引式參考手冊"
: : 可以直接告訴我裡面哪裏可用
: : 多謝
: 在 TextBox_KeyPress 事件中, 加入以下程式碼
: If e.KeyChar = Chr(13) Then SendKeys.Send("{TAB}")
: 然後記的把 TabIndex 順序調整好，這樣按 Enter 後，就會跳到下一個 TabIndex
: 的欄位
先感謝m大的解說
以下是小弟我的程式碼
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If e.KeyChar = Chr(13) Then SendKeys.Send ("{TAB}")
End Sub
若我依序須由Textbox1換到Textbox2
請問該如何調整
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.112.4.234
推 mywheat:分別設定 textbox1,Textbox2 屬性中的 TabIndex 為 0, 1 04/30 13:59
推 drumkid:VBA裡面的物件屬性沒有TabIndex選項 04/30 18:10
推 fumizuki:有tabindex啦，從最後一個控制項開始反方向順依序設0 04/30 19:54
→ fumizuki:相同tabindex 他會自動將重覆的遞增1 04/30 19:55
推 fumizuki:在vba中，自訂表單中的控制項才有tabindex屬性 04/30 19:55
→ fumizuki:工作表中的沒有 04/30 19:57