Excel VBA窗体入门

ZCJ112216

好东西，谢谢楼主了，学习！！！

ZCJ112216

刚才下了，觉得可以置顶，对新人有莫大的帮助，真心

sxczcpf

学习学习！不知能不能打开，用的是2003！

495737290

非常好的东西，对事件介绍的非常详细，关于事件好多书上的介绍都很模糊，我一直找不到比较有用的东西查看，版主的这文章真是及时雨啊。

OMYEXCELHOME

不错 受教了

f8b1987

按下回车后判断，并改变光标跳动顺序。如下，TEXTBOX2按下回车后，判断If TextBox1 <> "A" And TextBox2 <> "B" Then，符合则调回TextBox1,否则光标跳到TextBox3

1. Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   
2.         If KeyCode = 13 Then
   
3.             If TextBox1 <> "A" And TextBox2 <> "B" Then
   
4.                 TextBox1.SetFocus
   
5.             End If
   
6.         End If
   
7. End Sub

复制代码

f8b1987

设置快捷键

1. Sub 查询登记()
   
2. UserForm1.Show 0
   
3. End Sub
   
4. Sub 批录日期()
   
5. UserForm2.Show 0
   
6. End Sub
   
7. Sub 批录日期2()
   
8. UserForm3.Show 0
   
9. End Sub
   

复制代码

1. Private Sub Workbook_Open()
   
2.     Sheet17.Select
   
3.     Application.OnKey "{F2}", "查询登记"
   
4.     Application.OnKey "{F3}", "批录日期"
   
5. End Sub
   
6. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
7.     Unload UserForm1
   
8.     Unload UserForm2
   
9. End Sub
   

复制代码

songzi2000

好文章，正是我要找的，讲的全面收藏了

rzqf

下载看看，应该会很有帮助，谢谢楼主分享

古都秋白

标记，支持楼主！