窗体不显示，也不报错，求各位大神看看是什么原因

伊丽莲蒙娜

coolall 发表于 2016-5-16 23:03
不是十分明白你的需求，我简单修改了一下。猜测你的意思可能这样吧？ 这个是课程设计啊？

想设置个权限在userform7和9，128106登录只能选择1 、2 、3班的
128107登录只能选择4 、5 、6班级的，但是所有的走得都是第一个if，求指教

1. Private Sub cmdAdd_Click()
   
2.    Sheet10.Activate
   
3.    clear
   
4.     Dim banji As String
   
5.     banji = ComboBox1.Text
   
6.     Dim kemu  As String
   
7.     kemu = ComboBox2.Text
   
8.     If banji <> "4" Or "5" Or "6" Then
   
9.         MsgBox "超出权限，您只能为您负责的4、5、6班录入成绩！"
   
10.         Me.ComboBox1.Text = ""
    
11.         Me.ComboBox2.Text = ""
    
12.         Else
    
13.         If checkStudentClass(ComboBox1.Text, ComboBox2.Text) Then
    
14.                 Sheet10.Visible = xlSheetVisible
    
15.                 Unload Me
    
16.                 Range("F2") = banji
    
17.                 Range("G2") = kemu
    
18.                 Call 查询班级
    
19.             Else
    
20.             MsgBox "请选择完整信息"
    
21.             Me.ComboBox1.Text = ""
    
22.         Me.ComboBox2.Text = ""
    
23.             Exit Sub
    
24.         End If
    
25.       End If
    
26. Application.Visible = True
    
27. Unload Me
    
28. 
    
29. End Sub

复制代码