[已解决]大师帮忙修改一下窗体问题

飞云流水

回车后不跳转下一选项，简化用数字录入？

最佳答案

月排行榜 / 总排行榜

mxg825

2011-10-28 12:29

我用03版，打开你的文件，日期控件丢失！就不上附件了！
你自己改动一下！
第一个 窗体初始化 替换你原来的！
第二个代码是 新增的！

1. '初始化窗体数据
   
2. Private Sub UserForm_Initialize()
   
3. 
   
4. '初始化日期
   
5.   '日期 = VBA.Date()
   
6.   '日期key = VBA.Date()
   
7.   
   
8.   '初始化场
   
9.     场.List = Array("金龙", "金龙2场")
   
10.     场.ListIndex = 0
    
11.     场.Style = fmStyleDropDownCombo
    
12. '初始性别
    
13.     性别.List = Array("男", "女")
    
14.     性别.ListIndex = 0
    
15.     性别.Style = fmStyleDropDownCombo
    
16. '初始部门
    
17.     部门.List = Array("生产部", "财务部", "后勤部", "采购部", "销售部", "人力资源部")
    
18.     部门.ListIndex = 0
    
19.     部门.Style = fmStyleDropDownCombo
    
20.   '初始当前状态
    
21.     当前状态.List = Array("在职", "离职")
    
22.     当前状态.ListIndex = 0
    
23.     当前状态.Style = fmStyleDropDownCombo
    
24. End Sub

复制代码

下面的代码新增

1. Private Sub 场_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   
2. If IsNumeric(场) Then
   
3. If CInt(场) <= 场.ListCount Then
   
4.     场.Value = 场.List(CInt(场.Value) - 1)
   
5. Else
   
6.    Cancel = True
   
7. End If
   
8. End If
   
9. End Sub
   
10. Private Sub 性别_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    
11. If IsNumeric(性别) Then
    
12. If CInt(性别) <= 性别.ListCount Then
    
13.     性别.Value = 性别.List(CInt(性别.Value) - 1)
    
14. Else
    
15.    Cancel = True
    
16. End If
    
17. End If
    
18. End Sub
    
19. 
    
20. Private Sub 部门_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    
21. If IsNumeric(部门) Then
    
22. If CInt(部门) <= 部门.ListCount Then
    
23.     部门.Value = 部门.List(CInt(部门.Value) - 1)
    
24. Else
    
25.    Cancel = True
    
26. End If
    
27. End If
    
28. End Sub
    
29. Private Sub 当前状态_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    
30. If IsNumeric(当前状态) Then
    
31. If CInt(当前状态) <= 当前状态.ListCount Then
    
32.     当前状态.Value = 当前状态.List(CInt(当前状态.Value) - 1)
    
33. Else
    
34.    Cancel = True
    
35. End If
    
36. End If
    
37. End Sub
    

复制代码

跳转到最佳答案楼层

小脏鬼

回复 飞云流水 的帖子

嘿嘿看也看不到了

mxg825

我用03版，打开你的文件，日期控件丢失！就不上附件了！
你自己改动一下！
第一个 窗体初始化 替换你原来的！
第二个代码是 新增的！

1. '初始化窗体数据
   
2. Private Sub UserForm_Initialize()
   
3. 
   
4. '初始化日期
   
5.   '日期 = VBA.Date()
   
6.   '日期key = VBA.Date()
   
7.   
   
8.   '初始化场
   
9.     场.List = Array("金龙", "金龙2场")
   
10.     场.ListIndex = 0
    
11.     场.Style = fmStyleDropDownCombo
    
12. '初始性别
    
13.     性别.List = Array("男", "女")
    
14.     性别.ListIndex = 0
    
15.     性别.Style = fmStyleDropDownCombo
    
16. '初始部门
    
17.     部门.List = Array("生产部", "财务部", "后勤部", "采购部", "销售部", "人力资源部")
    
18.     部门.ListIndex = 0
    
19.     部门.Style = fmStyleDropDownCombo
    
20.   '初始当前状态
    
21.     当前状态.List = Array("在职", "离职")
    
22.     当前状态.ListIndex = 0
    
23.     当前状态.Style = fmStyleDropDownCombo
    
24. End Sub

复制代码

下面的代码新增

1. Private Sub 场_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   
2. If IsNumeric(场) Then
   
3. If CInt(场) <= 场.ListCount Then
   
4.     场.Value = 场.List(CInt(场.Value) - 1)
   
5. Else
   
6.    Cancel = True
   
7. End If
   
8. End If
   
9. End Sub
   
10. Private Sub 性别_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    
11. If IsNumeric(性别) Then
    
12. If CInt(性别) <= 性别.ListCount Then
    
13.     性别.Value = 性别.List(CInt(性别.Value) - 1)
    
14. Else
    
15.    Cancel = True
    
16. End If
    
17. End If
    
18. End Sub
    
19. 
    
20. Private Sub 部门_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    
21. If IsNumeric(部门) Then
    
22. If CInt(部门) <= 部门.ListCount Then
    
23.     部门.Value = 部门.List(CInt(部门.Value) - 1)
    
24. Else
    
25.    Cancel = True
    
26. End If
    
27. End If
    
28. End Sub
    
29. Private Sub 当前状态_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    
30. If IsNumeric(当前状态) Then
    
31. If CInt(当前状态) <= 当前状态.ListCount Then
    
32.     当前状态.Value = 当前状态.List(CInt(当前状态.Value) - 1)
    
33. Else
    
34.    Cancel = True
    
35. End If
    
36. End If
    
37. End Sub
    

复制代码

飞云流水

回复 mxg825 的帖子

多谢老师，学习了