作者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
1F：推 mywheat:分别设定 textbox1,Textbox2 属性中的 TabIndex 为 0, 1 04/30 13:59
2F：推 drumkid:VBA里面的物件属性没有TabIndex选项 04/30 18:10
3F：推 fumizuki:有tabindex啦，从最後一个控制项开始反方向顺依序设0 04/30 19:54
4F：→ fumizuki:相同tabindex 他会自动将重覆的递增1 04/30 19:55
5F：推 fumizuki:在vba中，自订表单中的控制项才有tabindex属性 04/30 19:55
6F：→ fumizuki:工作表中的没有 04/30 19:57