[已解决]求助，错误424

liweihai

当我点击这个按钮时会出现 错误424，无法进入本科生界面，但是为啥其他的研究生、实验室、科研界面可以进入

为何ben画了黄线，但是其他的yan,ke,shi都没有黄线

最佳答案

月排行榜 / 总排行榜

冥王

2015-5-25 14:12

1. Private Sub UserForm_Initialize()
   
2.     a = Application.WorksheetFunction.CountA(Sheets("本科生教学工作量").Range("C3:C6"))
   
3.     For b = 1 To a
   
4.         ComboBox5.AddItem Sheets("本科生教学工作量").Cells(b + 2, 3)
   
5.     Next b
   
6.     c = Application.WorksheetFunction.CountA(Sheets("本科生教学工作量").Range("D9:D21"))
   
7. '    For d = 1 To c
   
8. '        ComboBox6.AddItem Sheets("本科生教学工作量").Cells(d + 8, 4)
   
9. '    Next d
   
10.     e = Application.WorksheetFunction.CountA(Sheets("本科生教学工作量").Range("E25:E32"))
    
11.     For f = 1 To e
    
12.         ComboBox8.AddItem Sheets("本科生教学工作量").Cells(f + 24, 5)
    
13.     Next f
    
14.     g = Application.WorksheetFunction.CountA(Sheets("本科生教学工作量").Range("F35:F40"))
    
15.     For h = 1 To g
    
16.         ComboBox10.AddItem Sheets("本科生教学工作量").Cells(h + 34, 6)
    
17.     Next h
    
18. End Sub

复制代码

ben窗体初始化事件中注释掉关于ComboBox6控件的这几句代码就可以进入本科生界面

跳转到最佳答案楼层

liweihai

初始用户名nuaa,密码1234

冥王

你的ben窗体里没有ComboBox6这个控件，而此窗体初始化事件中引用了这个不存在的控件对象，所以出错

冥王

1. Private Sub UserForm_Initialize()
   
2.     a = Application.WorksheetFunction.CountA(Sheets("本科生教学工作量").Range("C3:C6"))
   
3.     For b = 1 To a
   
4.         ComboBox5.AddItem Sheets("本科生教学工作量").Cells(b + 2, 3)
   
5.     Next b
   
6.     c = Application.WorksheetFunction.CountA(Sheets("本科生教学工作量").Range("D9:D21"))
   
7. '    For d = 1 To c
   
8. '        ComboBox6.AddItem Sheets("本科生教学工作量").Cells(d + 8, 4)
   
9. '    Next d
   
10.     e = Application.WorksheetFunction.CountA(Sheets("本科生教学工作量").Range("E25:E32"))
    
11.     For f = 1 To e
    
12.         ComboBox8.AddItem Sheets("本科生教学工作量").Cells(f + 24, 5)
    
13.     Next f
    
14.     g = Application.WorksheetFunction.CountA(Sheets("本科生教学工作量").Range("F35:F40"))
    
15.     For h = 1 To g
    
16.         ComboBox10.AddItem Sheets("本科生教学工作量").Cells(h + 34, 6)
    
17.     Next h
    
18. End Sub

复制代码

ben窗体初始化事件中注释掉关于ComboBox6控件的这几句代码就可以进入本科生界面

liweihai

冥王 发表于 2015-5-25 14:12
ben窗体初始化事件中注释掉关于ComboBox6控件的这几句代码就可以进入本科生界面

非常感谢！！！！